Gestione
<% sinistro=(request("T1")) dbPath = Server.MapPath(DirDb) query= "select * from testmodu WHERE testmodu.Sinistrn = '"&sinistro&"' " strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath set conn = Server.CreateObject("ADODB.Connection") conn.Open strConn Set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, conn variabile=rs.fields("nrif") perito=rs.fields("CodColl") compagnia=rs.fields("RagSocialeCom") codAssicurato=rs.fields("CodAss") sinistro=rs.fields("Sinistrn") CodAmm=rs.fields("Codamm") Assicurato=rs.fields("RagSocialeAss") Amministratore=rs.fields("RagSocialeAmm") Incarico=rs.fields("Incaricodel") Sopraluogo= "Appuntamento da fissare" app=rs.fields("Sopraluogodel") CodFiscAssicurato=rs.fields("CodFiscaleAss") IndirizzoAssicurato=rs.fields("IndirizzoAss") IndirizzoA2=rs.fields("CapLocProvAss") TelAss=rs.fields("TelUfficioAss") annotazioni=rs.fields("annotazioni") rel=rs.fields("rel") rs.close set rs = nothing conn.Close set conn = nothing %>
Sinistro <%=sinistro%>