<%@ Language=VBScript%> <% REM Connection Cache Set ConnectionCache = CreateConnectionCache() Set RScliente = CreateRS("RScliente", "politarghe", "admin", "", "select * from clienti", "", true, 2, 3, 3, "") 'Call RScliente_BeforeOpen() Call RScliente.Open() Call RScliente.ProcessAction() Call RScliente.SetMessages("","") Call RScliente_Server() REM server-side recordset Set RStarga = CreateRS("RStarga", "politarghe", "admin", "", "select * from modello", "", true, 2, 3, 3, "") 'Call RStarga_BeforeOpen() Call RStarga.Open() Call RStarga.ProcessAction() Call RStarga.SetMessages("","") Call RStarga_Server() %> <% Sub RScliente_BeforeOpen() VBeval("RScliente.Open = DSNLessRecordsetOpen") fn = "RScliente.filename = """ & "../../../httpdocs/dati/poli.mdb" & """" VBeval(fn) End Sub Sub RScliente_Server() if (CStr(Session("idcliente")) <> "") then serverVar = Session("idcliente") RScliente.Filter("idcliente" & " = '" & serverVar & "'") end if if (CStr(RScliente.GetColumnValue("idcliente")) <> CStr(Session("idcliente"))) then Response.Redirect(URLEscapeSpaces("Password.asp")) end if End Sub Sub RStarga_Server() if CStr(Request("ImageButton1"))<> "" then Response.Redirect(URLEscapeSpaces("risultato2.asp") & "?codcolore=" & CStr(Request.form("edit2"))) end if End Sub Sub RStarga_BeforeOpen() VBeval("RStarga.Open = DSNLessRecordsetOpen") fn = "RStarga.filename = """ & "../../../httpdocs/dati/poli.mdb" & """" VBeval(fn) End Sub Sub List1_Server(html) html_string = "" location = Instr(1, html, " 0 then html_string = Left(html, location) & "