L'update di un recordset

[yalesh]

Salve a tutti,
carico un recordset nei campi di un form per la modifica, come in questa pagina:http://www.gremiviaggi.com/offerte/m...p?IdOfferta=44

e lo faccio in questo modo...

<%
'Crea l' oggetto recordset e preleva i dati dalla
'tabella autunno.
   
   Dim strSQL
   strSQL = "select * from Autunno where IdOfferta = " & request.querystring("IdOfferta") 
	
   Dim objRS     
   Set objRS = Server.CreateObject("ADODB.Recordset")
   objRS.Open strSQL, objConn
%>

Vorrei passare i dati a un'altra pagina per salvarli con un update, è corretto fare cosi?

<%
UPDATE Autunno SET IdOfferta = objRS("IdOfferta"), Localita = objRS("Localita"), DataPartenza = objRS("DataPartenza"),  ecc. ecc. ..... WHERE IdOfferta="&request.querystring("IdOfferta")
%>

[albis]

devi passare i valori con il submit di una form
e poi sulla pagina target del submit

<%

       
       Dim strSQL
       strSQL = "UPDATE Autunno SET   Localita = '" & Replace(request.form("Localita"),"'","''") & "', DataPartenza = '" & request.form("DataPartenza") & "',  ecc. ecc. ..... WHERE IdOfferta= " & request.querystring("IdOfferta")
    	
		objConn.Execute(strSQL)
       
    %>

[yalesh]

Dunque nella pagina del form devo aggiungere all'action
action="SalvaAutunno.asp?txtIdOfferta=IdOfferta&tx tLocalita=Localita&txtDataPartenza=DataPartenza"

e poi aggiornarli con l'update

<%
dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

Dim strSQL
strSQL = "UPDATE Autunno SET IdOfferta = '" & Replace(request.form("IdOfferta"),"'","''") & "', Localita = '" & request.form("Localita") & "', DataPartenza = '" & request.form("DataPartenza") & "', DataRientro = '" & request.form("DataRientro") & "', Volo = '" & request.form("Volo") & "', Trattamento = '" & request.form("Trattamento") & "', Posti = '" & request.form("Posti") & "', Link = '" & request.form("Link") & "', Foto = '" & request.form("Foto") & "', WHERE IdOfferta= " & request.querystring("IdOfferta")

objConn.Execute(strSQL)
%>


Scusami se ti assillo, credevo fosse più semplice e mi rendo conto di non avere le conoscenze necessarie per farlo. Prima di chiedere aiuto ho provato a farlo da solo cercando tutorial e altro materiale su google ma non sono sono riuscito a interfacciarlo

[albis]

Nonella pagina
http://www.gremiviaggi.com/offerte/m...p?IdOfferta=44
dovrebbe andare bene così
ho visto al volo che i campi sono contenuti in una form
che ha cme action SalvaEliminaAutunno.asp
(era quello che intendevo dicendo "come target del submit")

 
poi in SalvaEliminaAutunno.asp
<%
dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

Dim strSQL
strSQL = "UPDATE Autunno SET  Localita = '" & replace( request.form("Localita"),"'","''") & "', DataPartenza = '" & request.form("DataPartenza") & "', DataRientro = '" & request.form("DataRientro") & "', Volo = '" & Replace( request.form("Volo"),"'","''") & "', Trattamento = '" & Replace( request.form("Trattamento"),"'","''") & "', Posti = '" & Replace( request.form("Posti"),"'","''") & "', Link = '" & Replace( request.form("Link"),"'","''") & "', Foto = '" & Replace( request.form("Foto"),"'","''") & "', WHERE IdOfferta= " & request.querystring("IdOfferta")

objConn.Execute(strSQL)
%>

poi una altra cosa
in
modificaAutunno.asp
la textbox IdOfferta la metterei di tipo hidden

[yalesh]

Ok credo di aver fatto tutto quello che mi hai detto ma mi da questo errore

ADODB.Recordset error '800a0bb9'

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

/offerte/SalvaAutunno.asp, line 212

Alla linea 212 ho:
objRS.Open strSQL, objConn

poi una altra cosa
in
modificaAutunno.asp
la textbox IdOfferta la metterei di tipo hidden

Grazie per il consiglio, fatto.

[albis]

fai una modifica temporanea
al posto della riga 212 scrivi

Response.Write strSQL
Response.End()
objRS.Open strSQL, objConn

e posta il risultato

[yalesh]

Nessun messaggio di errore carica la pagina vuota, insomma non succede niente.

[albis]

se scrivi cos'

 
Response.Write "|"  & strSQL & "|"
Response.End()
objRS.Open strSQL, objConn

[deio]

dopo

objConn.Execute(strSQL)

metti il codice scritto da albis

PS come sta il pupone?

[yalesh]

Il risultato di questo

dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Response.Write "|"  & strSQL & "|"
Response.End()
objRS.Open strSQL, objConn

è ||