Ho una pagina che dovrebbe inserire i dati provenienti da un modulo, ma qualcosa non funziona, continua a darmi errore, qualcuno mi sà dire dove sbaglio. grazie
<%
on error resume next
articolo = Request.form("articolo")
commento = Request.form("commento")
sconto = Request.form("sconto")
dim objconn
dim objrs
set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("_private\offerte.mdb")
SQL = "INSERT INTO Tab_offerte(articolo, commento, sconto)"
SQL = SQL & "VALUES ('"&articolo& "','" &commento& "','" &sconto& "')"
set objrs = Server.CreateObject("ADODB.Recordset")
objrs.Open SQL, objconn
If err.number>0 then
response.write "<p>Errore nell'inserimento</P>"
response.write " Numero Errore --> " & err.number & "<br>"
response.write " Descrizione Errore --> " & err.description & "<br>"
elseif conn.errors.count> 0 then
response.write "<p>Attenzione!</P>"
response.write "<p>I dati inseriti non sono corretti.</P>"
response.write " Numero Errore --> " & err.number & "<br>"
response.write " Descrizione Errore --> " & err.description & "<br>"
Else
response.write "<p>I dati sono stati inseriti correttamente!</p>"
End if
objconn.Close
%>
<hr>
<p><%
Response.Write("<a href="""&Request.ServerVariables("HTTP_REFERER")&""">Torna alla pagina precedente</a>")
%> </p>
<%
on error resume next
articolo = Request.form("articolo")
commento = Request.form("commento")
sconto = Request.form("sconto")
dim objconn
dim objrs
set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("_private\offerte.mdb")
SQL = "INSERT INTO Tab_offerte(articolo, commento, sconto)"
SQL = SQL & "VALUES ('"&articolo& "','" &commento& "','" &sconto& "')"
set objrs = Server.CreateObject("ADODB.Recordset")
objrs.Open SQL, objconn
If err.number>0 then
response.write "<p>Errore nell'inserimento</P>"
response.write " Numero Errore --> " & err.number & "<br>"
response.write " Descrizione Errore --> " & err.description & "<br>"
elseif conn.errors.count> 0 then
response.write "<p>Attenzione!</P>"
response.write "<p>I dati inseriti non sono corretti.</P>"
response.write " Numero Errore --> " & err.number & "<br>"
response.write " Descrizione Errore --> " & err.description & "<br>"
Else
response.write "<p>I dati sono stati inseriti correttamente!</p>"
End if
objconn.Close
%>
<hr>
<p><%
Response.Write("<a href="""&Request.ServerVariables("HTTP_REFERER")&""">Torna alla pagina precedente</a>")
%> </p>