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.
il secondo
se c'è bisogno che posti anche il form per una risposta più precisa,avvisatemi...
Scusate il disturbo
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>
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>
Scusate il disturbo