Errore nel codice - chi mi puo' aiuare?

**diegalax** · 06-04-2006, 12:04

Ciao! ho uno scriptino in asp che fa da guestbook

mi da questo errore che credo sia una bagianata:

codice:

Microsoft VBScript compilation error '800a03ea' 

Syntax error 

/inserisci.asp, line 83 

else if
^

questo invece è il codice del file incriminato...qualcuno puo' aiutarmi?

codice:

<html>
<head>
<title>My guestbook</title>
</head>

<body>
<%
' RICHIEDE I CAMPI DAL FORM
nome = Replace(Request.Form("nome"), "'", "′")
cognome = Replace(Request.Form("cognome"), "'", "′")
citta = Replace(Request.Form("citta"), "'", "′")
datadinascita = Replace(Request.Form("datadinascita"), "'", "′")
nazione = Replace(Request.Form("nazione"), "'", "′")
url = Replace(Request.Form("url"), "'", "′")
commento = Replace(Request.Form("commento"), "'", "′")
piatto= Replace(Request.Form("piatto"), "'", "′")
sogno = Replace(Request.Form("sogno"), "'", "′")
fare40anni = Replace(Request.Form("fare40anni"), "'", "′")
' IMPOSTA L'INVIO A CAPO 
'(RIMPIAZZA GLI INVII A CAPO NEL MESSAGGIO COL TAG HTML 
), "'", "′")
fanculo = Replace(Replace(Request.Form("fanculo"), chr(13), "
", 1) , "'", "′")
email = Replace(Request.Form("email"), "'", "′")
hardcore1 = Replace(Request.Form("hardcore1"), "'", "′")
hardcore2 = Replace(Request.Form("hardcore2"), "'", "′")
hardcore3 = Replace(Request.Form("hardcore3"), "'", "′")


data = Date()


' CONTROLLO CHE I CAMPI SIANO STATI COMPILATI CORRETTAMENTE

'IF nome = "" or cognome = "" or fanculo = "" or hardcore1 = ""or hardcore2 = ""  or Instr(email, "@") = 0 or Instr(email, ".") = 0 then
' UNO DEI CAMPI E' VUOTO
%>
<hr>
<p align="center"><font face="Verdana" size="3">Torna indietro e compila
tutti i campi correttamente!</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("nome") = nome
RecSet("cognome") = cognome
RecSet("citta") = citta
RecSet("datadinascita") = datadinascita
RecSet("nazione") = nazione
RecSet("email") = email
RecSet("url") = url
RecSet("commento") = commento
RecSet("piatto") = piatto
RecSet("fare40anni") = fare40anni
RecSet("sogno") = sogno
RecSet("data") = data
RecSet("fanculo") = fanculo
RecSet("hardcore1") = hardcore1
RecSet("hardcore2") = hardcore2
RecSet("hardcore3") = hardcore3


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

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

</html>


grazie mille  :ciauz:

**maximum** · 06-04-2006, 12:14

L'errore è qui:

codice:

RecSet.Close
Conn.Close
Response.Redirect "guestbook.asp"
else if

else if cosa??????

O fai solo else oppure metti un test di controllo.

**eliane** · 06-04-2006, 12:58

che c'è nella linea 83 ?

**diegalax** · 06-04-2006, 14:45

Originariamente inviato da eliane
che c'è nella linea 83 ?

else if

cmq ho provato a tenere solo

else ma non funziona..... dopo else ci vuole qualche parentisi o che cosa?

Oppure come si puo' mettere questo test di controllo? Non so se si vede ma non sono affatto un programmatore

**Pippolino** · 06-04-2006, 16:45

If <condizioni> Then
'quello che vuoi
Else
'quello che vuoi
End If

**diegalax** · 06-04-2006, 17:29

Originariamente inviato da Pippolino
If <condizioni> Then
'quello che vuoi
Else
'quello che vuoi
End If

si ma non so se si è capito che non ci capisco una cippa di programmazione...

nel mio caso (c'e' il codice sopra) cosa dovreis crivere esattamente?

**maximum** · 06-04-2006, 17:39

La parte in grassetto che ti ha postato pippolino al posto di else if.

**diegalax** · 06-04-2006, 17:59

Originariamente inviato da maximum
La parte in grassetto che ti ha postato pippolino al posto di else if.

ho sostituito Else if con End if

ma mi da un altro erore alla stessa riga purtroppo

codice:

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/inserisci.asp, line 83 

End If
^

**diegalax** · 06-04-2006, 18:00

Originariamente inviato da diegalax
ho sostituito Else if con End if

ma mi da un altro errore alla stessa riga

codice:

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/inserisci.asp, line 83 

End If
^

**maximum** · 06-04-2006, 21:40

Prova ora.

codice:

<html>
<head>
<title>My guestbook</title>
</head>

<body>
<%
' RICHIEDE I CAMPI DAL FORM
nome = Replace(Request.Form("nome"), "'", "Œ")
cognome = Replace(Request.Form("cognome"), "'", "Œ")
citta = Replace(Request.Form("citta"), "'", "Œ")
datadinascita = Replace(Request.Form("datadinascita"), "'", "Œ")
nazione = Replace(Request.Form("nazione"), "'", "Œ")
url = Replace(Request.Form("url"), "'", "Œ")
commento = Replace(Request.Form("commento"), "'", "Œ")
piatto= Replace(Request.Form("piatto"), "'", "Œ")
sogno = Replace(Request.Form("sogno"), "'", "Œ")
fare40anni = Replace(Request.Form("fare40anni"), "'", "Œ")
' IMPOSTA L'INVIO A CAPO 
'(RIMPIAZZA GLI INVII A CAPO NEL MESSAGGIO COL TAG HTML 
 ), "'", "Œ")
fanculo = Replace(Replace(Request.Form("fanculo"), chr(13), "
", 1) , "'", "Œ")
email = Replace(Request.Form("email"), "'", "Œ")
hardcore1 = Replace(Request.Form("hardcore1"), "'", "Œ")
hardcore2 = Replace(Request.Form("hardcore2"), "'", "Œ")
hardcore3 = Replace(Request.Form("hardcore3"), "'", "Œ")


data = Date()


' CONTROLLO CHE I CAMPI SIANO STATI COMPILATI CORRETTAMENTE

IF nome = "" or cognome = "" or fanculo = "" or hardcore1 = ""or hardcore2 = ""  or Instr(email, "@") = 0 or Instr(email, ".") = 0 then
' UNO DEI CAMPI E' VUOTO
%>
<hr>
<p align="center"><font face="Verdana" size="3">Torna indietro e compila
tutti i campi correttamente!</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("nome") = nome
RecSet("cognome") = cognome
RecSet("citta") = citta
RecSet("datadinascita") = datadinascita
RecSet("nazione") = nazione
RecSet("email") = email
RecSet("url") = url
RecSet("commento") = commento
RecSet("piatto") = piatto
RecSet("fare40anni") = fare40anni
RecSet("sogno") = sogno
RecSet("data") = data
RecSet("fanculo") = fanculo
RecSet("hardcore1") = hardcore1
RecSet("hardcore2") = hardcore2
RecSet("hardcore3") = hardcore3


' 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>

Discussione: Errore nel codice - chi mi puo' aiuare?

Strumenti discussione

Ricerca discussione

Visualizza

Errore nel codice - chi mi puo' aiuare?

Permessi di invio