Non riesco a capire cosa manca. il sorgente è quello dell'articolo di Cavalleri, a parte il tipo di connessione. Vi prego aiutatemi
<%
on error resume next
surfer = Request.form("surfer")
luogo = Request.form("luogo")
spot = Request.form("spot")
dormire = Request.form("dormire")
mangiare = Request.form("mangiare")
periodo = Request.form("periodo")
attrezzature = Request.form("attrezzatura")
trasferimenti = Request.form("trasferimenti")
temperatura = Request.form("temperatura")
altro = Request.form("altro")
email = Request.form("email")
Dim conn
Dim rs
Set conn = Server.CreateObject("ADODB.Connection")
Dim connstr
'Using the Microsoft Access driver
connstr = "DRIVER={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("/surfitalia/db/surfitalia.mdb")
conn.Open connstr
SQL = "INSERT INTO surfari (Surfer, luogo, spot, dormire, mangiare, periodo, attrezzatura, trasferimenti, temperatura, altro, email)"
Set rs = conn.Execute(SQL)
sql = sql & "VALUES ('" & Surfer & "','" & luogo & "','" & spot & "','" & dormire & "','" & mangiare & "','" & periodo & "','" & attrezzatura & "','" & trasferimenti & "','" & temperatura & "','" & altro & "','" & email & "')"
rs.open sql, conn
If err.number>0 then
response.write "<p>¤ - Attenzione, hai commesso un errore nello script, controlla e riprova.</P>"
else if conn.errors.count> 0 then
response.write "<p>Attenzione!</P>"
response.write "<p>I dati inseriti non sono corretti, controllare se i campi obbligatori sono stati compilati.</P>"
Else
response.write "<p>Ok, i dati sono stati inseriti correttamente!!!!</p>"
End if
conn.Close
%>
<hr>
<p>
<%' Su questo script dice Expected 'End' ma gli If mi sembrano tutti chiusi
Response.Write("<a href="""&Request.ServerVariables ("HTTP_REFERER")&""">Torna alla pagina precedente</a>")
%>
</p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><img src="Img/surfit.gif" width="460" height="60"> </p>
</body>
</html>
