codice:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("gb.mdb")
Set ObjRs = Server.CreateObject("ADODB.Recordset")
%>
<%
elenco= elenco & " <font color= ffffff font face= 'verdana' size= '2'>Nome:</font> " & "<font color= 000000 font face= 'verdana' size= '2'>" & Request.Form("nome") & "</font>
"
elenco= elenco & " <font color= ffffff font face= 'verdana' size= '2'>E-mail:</font> " & "<font color= 000000 font face= 'verdana' size= '2'>" & Request.Form("email")& "</font>
"
elenco= elenco & " <font color= ffffff font face= 'verdana' size= '2'>Messaggio:</font> " & "<font color= 000000 font face= 'verdana' size= '2'>" & Request.Form("messaggio")& "</font>
"
conferma= request.querystring("conferma")
IF conferma <> "si" THEN
nome = trim(Request("nome"))
email= trim(Request("email"))
messaggio= trim(Request("messaggio"))
stampa= "<form ACTION='gb_crea_risposta.asp?conferma=si' METHOD=post>"
stampa= stampa & "<input type='hidden' name='nome' value=" & nome & ">"
stampa= stampa & "<input type='hidden' name='email' value=" & email & ">"
stampa= stampa & "<input type='hidden' name='messaggio' value=" & messaggio & ">"
stampa= stampa & " <input type=submit value=CONFERMA></form> "
stampa= stampa & " <font color= ffffff font face= 'verdana' size= '2'>Torna indietro</font>"
ELSE
objRS.ActiveConnection = objConn
strSQL = "INSERT INTO messaggi (nome, email, messaggio) VALUES ('"
strSQL= strSQL & replace(nome, "'","''") & "', '"
strSQL= strSQL & replace(email, "'","''") & "', '"
strSQL= strSQL & replace(messaggio, "'", "''") & "')"
objconn.Execute(strSQL)
objconn.close
set objconn=nothing
STAMPA="DATI CARICATI
CON SUCCESSO"
END IF
%>
Roby