Modificare un singolo elemento di un record

[Mir]

Ho questo ASP:

<%
Id = request("id")
Stato = Replace(request("Stato"),"'", "''")

StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database") & "\xxx.mdb;pwd=xxx"
	
Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open StrConnessione
response.write Conn

SQL = "Update Corsi set Stato='"& Stato &"' where ID=" & Id

response.write SQL:response.end

Conn.execute SQL
Conn.Close
set Conn=nothing
%>

col quale cerco di modificare solo il valore numerico di Stato nell'ID del DB.
Da notare che il record contiente molti altri campi!
Non compaiono errori nell'asp ma però il valore Stato non cambia!

Potete aiutarmi?
GRAZZZIE

Mir

PS: id e Stato sono numeri!

[santino83_11_04]

SQL = "Update Corsi set Stato="& Stato &" where ID=" & Id

[Mir]

Non è quello l'errore :S

Ecco sa ottengo con la tua modifica dal response.write:

Provider=MSDASQL.1;Extended Properties="DBQ=D:\***\***\***\mdb-database\***.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;PWD=***;"U pdate Corsi set Stato=2 where ID=84

Scrivendo questo nel browser:
http://www.***.it/***.asp?id=86&Stato=2

Non è che devo passare tutto il record?

[santino83_11_04]

esiste qualcosa con id=84 nella tabella?

e poi mi spieghi perchè devi stampare Conn?

Update Corsi set Stato=2 where ID=84

eseguila direttamente nel dbaccess...se non funziona, controlla che l'id sia giusto...

[Mir]

Se provo direttamente nel DB funzuiona tutto correttamente!
il recordo con ID 84 certo che esiste ma comunque l'ho testato anche su altri ID ma niente!

ho dei response.write strani perchè mi interfaccio con flash!

Dove sbaglio?!?!?

'Azzo mi son accorto che nel DB il campo Stato è di testo ... che possa dipendere da quello l'errore?

Grazie comunque

Mir

[santino83_11_04]

se stato è di testo ci devi mettere gli apici

poi mi raccomando di TOGLIERE response.end quando fai la prova per vedere se funziona la pagina, altrimenti il codice conn.execute non te lo farà mai

[Macosx]

Id = request("id")
Stato = Replace(request("Stato"),"'", "''")

StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database") & "\xxx.mdb;pwd=xxx"

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open StrConnessione

SQL = "Update Corsi set Stato='"& Stato &"' where ID=" & Id 'togli gli apici se è un campo numerico

Conn.execute (SQL) 'devi usare le parentesi
Conn.Close
set Conn=nothing
%>