impossibile visualizzare pagina con objRs.Close

[raphi01]

Ciao a tutti,
mi potete aiutare con questo codice semplice semplice?
da una pagina con un form prendo dei dati e li voglio mettere in un database.
Con il codice qua sotto il database viene scritto ma, se non commento la riga "objRs.Close", invece di fare il redirect mi esce l'errore "impossibile visualizzare la pagina".. se la commento sembra che funzioni tutto bene..
da cosa dipende?
Grazie


<%
Dim name, email, msg, date_gb, time_gb

name = Request.Form("name")
email = Request.Form("email")
msg = Request.Form("msg")
date_gb = date()
time_gb = time()

Dim strsql

strsql = "INSERT INTO tbl_guestbook (name, email, msg, date_gb, time_gb)"
strsql = strsql & " Values ('"
strsql = strsql & name & "','"
strsql = strsql & email & "','"
strsql = strsql & msg & "','"
strsql = strsql & date_gb & "','"
strsql = strsql & time_gb & "')"

'Response.Write strsql & "
"

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\ineub\wes\ltrom\mdb-database\giv.mdb")

Dim objRs
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute (strsql)

objRs.Close
Set objRs = Nothing

objConn.Close
Set objConn = Nothing

response.redirect "scrivi_guestbook.asp"
%>

[Domenix]

Togli questa
Set objRs = Server.CreateObject("ADODB.Recordset")

[raphi01]

anche cosi' mi da lo stesso errore..

[optime]

togli tranquillamente la chiusura del recordset (lascia tutto il resto). la .execute NON apre nessun recordset

[Domenix]

In effetti, visto che la SQL non deve mostrar alcun dato:

Dim name, email, msg, date_gb, time_gb
name = Request.Form("name")
email = Request.Form("email")
msg = Request.Form("msg")
date_gb = date()
time_gb = time()

Dim strsql
strsql = "INSERT INTO tbl_guestbook (name, email, msg, date_gb, time_gb)"
strsql = strsql & " Values ('"
strsql = strsql & name & "','"
strsql = strsql & email & "','"
strsql = strsql & msg & "','"
strsql = strsql & date_gb & "','"
strsql = strsql & time_gb & "')"

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\ineub\wes\ltrom\mdb-database\giv.mdb")
objConn.Execute (strsql)
objConn.Close
Set objConn = Nothing

response.redirect "scrivi_guestbook.asp"

[raphi01]

perfetto grazie a entrambi
ciao!!