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"
%>

Rispondi quotando