Problemi guestbook con immagine captcha

byronbyron

Nuovo Utente
16 Nov 2007
1
0
0
Ciao a tutti sto cercando di inserire un immagine captcha nel mio guestbook le i struzioni le ho prese da questo link https://www.mrw.it/asp/artic...erne_914_2.html
le immagini si vedono il problema è che quando compilo il form mi da quest'errore:
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/inserisci.asp, line 82

credo proprio che non riesco a far interagire questi due script...pultroppo sono alle prime armi e ho perso tutto il giorno alla ricerca della soluzione ma nn l'ho trovata.

Codice:
<%@LANGUAGE = VBScript%>
<%
    Dim nominativo, codice, controllo
    nominativo = Request.Form("nominativo")
    codice = Request.Form("codice")
    Select Case Session("captcha")
        Case "1" : controllo = "ABC"
        Case "2" : controllo = "BCA"
        Case "3" : controllo = "CBA"
    End Select
%>
<html>
    <head>
        <title>Codice CAPTCHA in ASP con le immagini</title>
    </head>
</body>

<%If nominativo = "" Then%>
<p>Inserire il nominativo!</p>
<p><a href="java-script:window.history.back()">Torna indietro</a></p>
<%ElseIf codice <> controllo Then%>
<p>Inserire il codice di sicurezza!</p>
<p><a href="java-script:window.history.back()">Torna indietro</a></p>
<%Else%>
<p>Ciao <b><%=nominativo%></b>, l'operazione è andata a buon fine!</p>
<%End If%>

</body>
</html>
il secondo
Codice:
<html>
<head>
<title>MIO GUESTBOOK</title>
</head>
<!-- #INCLUDE FILE="adovbs.inc" -->
<body>
<%
' RICHIEDE I CAMPI DAL FORM
titolo = Replace(Request.Form("titolo"), "'", "′")

' IMPOSTA L'INVIO A CAPO 
'(RIMPIAZZA GLI INVII A CAPO NEL MESSAGGIO COL TAG HTML <BR> ), "'", "′")
messaggio = Replace(Replace(Request.Form("commento"), chr(13), "<BR>", 1) , "'", "′")

autore = Replace(Request.Form("autore"), "'", "′")
email = Replace(Request.Form("email"), "'", "′")
data = Date()


' CONTROLLO CHE I CAMPI SIANO STATI COMPILATI CORRETTAMENTE

IF titolo = "" or messaggio = "" or autore = "" or Instr(email, "@") = 0 or Instr(email, ".") = 0 then
' UNO DEI CAMPI E' VUOTO
%>
<hr>
<p align="center"><font face="Verdana" size="3"><b>Torna indietro e compila
tutti i campi correttamente!</b></font></p>
<hr>
<%
' ALTRIMENTI AGGIUNGE IL MESSAGGIO
else

' PERCORSO DEL DATABASE 
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open url_DB

' APRE LA CONNESSIONE AL DATABASE
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM GuestBook_Messaggi"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' AGGIUNGE IL MESSAGGIO NEL DATABASE
Recset.Addnew

RecSet("titolo") = titolo
RecSet("messaggio") = messaggio
RecSet("autore") = autore
RecSet("email") = email
RecSet("data") = data

' AGGIORNA IL DATABASE, CHIUDE LA CONNESSIONE
' E PORTA L'UTENTE NEL GUESTBOOK
RecSet.Update

RecSet.Close
Conn.Close
Response.Redirect "guestbook.asp"
end if
%>
</body>

</html>
se c'è bisogno che posti anche il form per una risposta più precisa,avvisatemi...
Scusate il disturbo
 
Discussioni simili
Autore Titolo Forum Risposte Data
N problemi con il guestbook appena creato Supporto Mr.Webmaster 0
V Problemi con un guestbook Discussioni Varie 2
S problemi con il guestbook Supporto Mr.Webmaster 2
F Problemi con i Guestbook Supporto Mr.Webmaster 3
M Problemi con il guestbook Supporto Mr.Webmaster 1
M Problemi con guestbook Supporto Mr.Webmaster 2
S problemi guestbook Supporto Mr.Webmaster 3
G Problemi col guestbook Supporto Mr.Webmaster 1
F Problemi visualizzazione mappa Android studio Sviluppo app per Android 0
S Problemi Javascript + Aruba Javascript 2
A Problemi con move_uploaded_file PHP 7
M Problemi con la stampa dei valori in php PHP 1
L Problemi con il login PHP 2
L Problemi form Pagina php HTML e CSS 3
R Tutto su utf-8 ma ancora problemi con i caratteri speciali in mysql MySQL 1
Z problemi con foreach insert into PHP 10
B javascript per problemi con pdf e Safari Javascript 0
N Problemi kit videosorveglianza IP Cam e Videosorveglianza 0
M Problemi con creazione maschere Presentati al Forum 1
M Problemi con query a più tabelle PHP 3
R Problemi anomalo insermento in db PHP 9
S Problemi delle funzioni eliminate con PHP e MySQL PHP 4
S Problemi di un principiante PHP 3
M Problemi con blog Grav CMS (Content Management System) 0
F Problemi di visualizzazione di un sito su più browser WordPress 0
S Problemi di visualizzazione form contatti sito web HTML e CSS 2
S incoerenza di stampa. problemi con il magenta Photoshop 3
A problemi con paypall Java 1
A Problemi di accesso da remoto a Ipcam IP Cam e Videosorveglianza 6
michele81 [WordPress] problemi plug meteo api key WordPress 4
E Problemi in registrazione telecamere Dahua IP Cam e Videosorveglianza 6
felino [Windows 8.1] Problemi con connessione WiFi Windows e Software 0
M [PHP] Problemi su inserimento array nel db PHP 7
E [PHP] problemi nuova riga con fwrite su piattaforma android PHP 5
M [PHP] Problemi di salvataggio su campo calcolato PHP 0
O [HTML] problemi con la regola "background-attachment: fixed" in EDGE HTML e CSS 0
M [PHP] Problemi con query unione PHP 11
M [PHP] Problemi con select PHP 6
Spown [WordPress] Problemi visualizzazione su più browser + voci menu in movimento WordPress 1
ANDREA20 [HTML] problemi con il footer HTML e CSS 1
D [MS Access] problemi con inserimento campo in una maschera MS Access 6
M [PHP] Problemi con il riconoscimento login. PHP 21
A [WordPress] problemi con xampp WordPress 2
M Problemi con database Apache/2.4.37 (Win32) OpenSSL/1.1.1a PHP/7.3.1 PHP 6
P Problemi comunicazioni Comunicazioni dallo Staff 8
G I problemi non vengono solo per nuocere Presentati al Forum 0
A Problemi Wi-Fi Fastweb Reti LAN e Wireless 4
C [WordPress] Url vulnerability e problemi sito da mobile WordPress 0
S [PHP] problemi con le sessioni PHP 3
B Problemi accesso Instagram Smartphone e tablet 1

Discussioni simili