codice:
<%@language=vbscript%>
codice:
<%option Explicit%>
codice:
<body bgcolor="#FFFFFF" text="#000000">
codice:
<% dim irichiesta,inome,mail,icognome,date
codice:
irichiesta= request("richiesta")
codice:
inome=request("nome")
codice:
icognome=request("cognome")
codice:
mail=request("email")
codice:
<title>Untitled Document</title>
codice:
<%dim objconn, strconn
codice:
objconn= server.createobject("adodb.connection")
codice:
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("pino.mdb")
codice:
objconn.open strconn
codice:
set objrs=server.createobject("adodb.recordset")
codice:
objrs.open "tblex", objconn, adlockoptimistic, adcmdtable
codice:
objrs("inchiesta")=irichiesta
codice:
objrs("name")=inome
codice:
objrs("gnome")=icognome
codice:
objrs("ail")=mail
codice:
objrs("ate")=date
codice:
set objrs= nothing
codice:
set objconn=nothing%>