kronos
11-03-2002, 13.58.25
salve mi è capitato questo errore........
errore "80020009'
Eccezione.
/gemini/asp/s.asp, riga 14
pasto il codice:
<%
'Apre il database
dbfile = Server.MapPath("../dati/carrello.mdb")
Set Con = Server.CreateObject( "ADODB.Connection" )
con.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"
Con.Open
sqlString = "SELECT * FROM carrello WHERE codice like '" & Request.cookies("codice") & "%'"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.Open sqlString
if rs("codice") = "" Then 'riga 14
Response.Cookies("data") = Request.Form("data")
Set objrs = CreateObject("ADODB.Recordset")
Set objrs.ActiveConnection = Con
objrs.LockType = 2
objrs.open "SELECT * FROM carrello"
objRS.AddNew
objrs("id_utente") = Request.Cookies("id")
objrs("data") = Request.Form("data")
objrs("articolo") = Request.Form("tipo")
objrs("foto") = Request.Form("foto")
objrs("quantita") = Request.Form("pezzi")
objrs("codice") = Request.Cookies("id")
objrs("id_articolo") = Request.Form("id_ar")
objRS.Update
objRS.Close
Set objRS = Nothing
Con.Close
Set Con = Nothing
Else
ecc qua funge da dio
dove sbaglio???????
grazieeeee
errore "80020009'
Eccezione.
/gemini/asp/s.asp, riga 14
pasto il codice:
<%
'Apre il database
dbfile = Server.MapPath("../dati/carrello.mdb")
Set Con = Server.CreateObject( "ADODB.Connection" )
con.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"
Con.Open
sqlString = "SELECT * FROM carrello WHERE codice like '" & Request.cookies("codice") & "%'"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.Open sqlString
if rs("codice") = "" Then 'riga 14
Response.Cookies("data") = Request.Form("data")
Set objrs = CreateObject("ADODB.Recordset")
Set objrs.ActiveConnection = Con
objrs.LockType = 2
objrs.open "SELECT * FROM carrello"
objRS.AddNew
objrs("id_utente") = Request.Cookies("id")
objrs("data") = Request.Form("data")
objrs("articolo") = Request.Form("tipo")
objrs("foto") = Request.Form("foto")
objrs("quantita") = Request.Form("pezzi")
objrs("codice") = Request.Cookies("id")
objrs("id_articolo") = Request.Form("id_ar")
objRS.Update
objRS.Close
Set objRS = Nothing
Con.Close
Set Con = Nothing
Else
ecc qua funge da dio
dove sbaglio???????
grazieeeee