Scervellamento update db

[Skyscraper84]

Cosa c'è di più semplice che aggiornare dei campi in un database?
Eppure nn và... ho letto e riletto il codice... sapete dirmi dove sbaglio?

<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/professionista.mdb")
Dim sql
sql = "SELECT * FROM fornitori where cod = " &  "'" & codd & "'" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3


' Preparazione e modifica record

rs(1) = cod
rs(2) = ragione
rs(3) = cf
rs(4) = indirizzo
rs(5) = cap
rs(6) = comune
rs(7) = pr
rs(8) = tel
rs(9) = fax
rs(10) = email
rs(11) = albo
rs(12) = sett
rs(13) = settnpc
rs(14) = cciaa
rs(15) = bil
rs(16) = bildom
rs(17) = viscert
rs(18) = cata
rs(19) = red
rs(20) = isee
rs(21) = cont
rs(22) = firma
rs(23) = f24
rs(24) = fall
rs(25) = conc
rs(26) = risa
rs(27) = fina
rs(28) = auto
rs(29) = rico
rs(30) = aut
rs(31) = coll
rs(32) = succ
rs(33) = sito
rs(34) = d
rs(35) = t
rs(36) = consenso
rs.update


' Chiusura del database
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing
response.redirect ("confermasegnalazione.asp")


%>

Si precisa che le variabili esistono tutte e hanno il loro valore alfanumerico

Grazie 1000
Ciao
Fabio

[deleted_b]

"SELECT * FROM fornitori where cod = " & "'" & codd & "'"

una "d" o due?! hai provato a controllare se il recordset continene qualcosa?!

quel codice è terribile VVoVe:

[Skyscraper84]

lo stesso sql lo utilizzo altrove e va alla grande... è con 2d

il codice l'ho "strapazzato" x renderlo più elementare possibile... ma nn funziona...

[optime]

dicci almeno che errore ti dà...

[Skyscraper84]

Impossibile visualizzare la pagina....

[[trodat]]

Originariamente inviato da Skyscraper84
Impossibile visualizzare la pagina....

x me questa query non va:

sql = "SELECT * FROM fornitori where cod = " &  "'" & codd & "'"

deve essere così:

sql = "SELECT * FROM fornitori where cod = '" & codd & "' "

[Skyscraper84]

Domani mattina la provo... ma nn cambia nulla... e poi in un'altra pagina l'ho usata identica...

[Skyscraper84]

Buongiorno....
ho sostituito la query... stessa minestra...
:berto:

[Skyscraper84]

Con questo ambaradad violentato dalla funesta violenza del programmatore stressato...

<%
if Session("Autenticato")<>"OK" then
 Response.Redirect("login.asp")
end if


codd = session("Cod")
cod = Session("Cod")
ragione = Session("Ragione")
cf = Session("CF")
email = Session("email")
indirizzo = Session("indirizzo")
cap = Session("cap")
comune = Session("comune")
pr = Session("provincia")
tel = Session("telefono")
fax = Session("fax")
albo = Session("albo")

sett = request("sett")
settnpc = request("settnpc")
cciaa = request("cciaa")
bil = request("bil")
bildom = request("bildom")
viscert = request("viscert")
cata = request("cata")
red = request("red")
isee = request("isee")
cont = request("cont")
firma = request("firma")
f24 = request("f24")
fall = request("fall")
conc = request("conc")
risa = request("risa")
fina = request("fina")
auto = request("auto")
rico = request("rico")
aut = request("aut")
coll = request("coll")
succ = request("succ")
consenso = request("consenso")
t = time ()
d = date ()
sito = request("sito")


Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/professionista.mdb")
Dim sql
sql = "SELECT * FROM fornitori where cod = '" & codd & "' "

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

' Dim cn
' Set cn = Server.CreateObject("ADODB.Connection")
' cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/professionista.mdb")
' Dim sql
' sql = "SELECT * FROM fornitori where cod = '" & codd & "' "
' Set rs = Server.CreateObject("ADODB.Recordset")
' rs.Open sql, conn ,3,3

response.write sql
response.Flush

' Preparazione e modifica record

response.Write codd & "
"
response.Write comune & "
"
response.Write sett & "
"
response.Write coll & "
"
response.Write succ & "
"
response.Write sito & "
"
response.Write d & "
"
response.Write pr & "
"
response.Write codd & "
"
response.Write codd & "
"
response.Write codd & "
"

rs(1) = cod
rs(2) = ragione
rs(3) = cf
rs(4) = indirizzo
rs(5) = cap
rs(6) = comune
rs(7) = pr
rs(8) = tel
rs(9) = fax
rs(10) = email
rs(11) = albo
rs(12) = sett
rs(13) = settnpc
rs(14) = cciaa
rs(15) = bil
rs(16) = bildom
rs(17) = viscert
rs(18) = cata
rs(19) = red
rs(20) = isee
rs(21) = cont
rs(22) = firma
rs(23) = f24
rs(24) = fall
rs(25) = conc
rs(26) = risa
rs(27) = fina
rs(28) = auto
rs(29) = rico
rs(30) = aut
rs(31) = coll
rs(32) = succ
rs(33) = sito
rs(34) = d
rs(35) = t
rs(36) = consenso
rs.update


' Chiusura del database
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing

%>

ottengo questo errore...


ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/editafornitori.asp, line 54


ovvero
rs.Open sql, conn ,3,3

[optime]

cod è numerico o testo?