This is the code:

codice:
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("repe.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset") 
set objRs = objConn.Execute("SELECT * from principe") 
da1=session("xcucina")
da=Replace(da1,"'","''")
dal=Request.Form("dal")
al=Request.Form("al")
1a=Request.Form("1a") 
1af=Replace(1a,"'","''")
......................