<% If IsObject(Session("ONLUS_conn")) Then Set conn = Session("ONLUS_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "ONLUS","","" Set Session("ONLUS_conn") = conn End If %> <% If IsObject(Session("Soci_rs")) Then Set rs = Session("Soci_rs") Else sql = "SELECT * FROM [Soci]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("Soci_rs") = rs End If %>
<% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>
Soci
<%=Server.HTMLEncode(rs.Fields("Titolo").Value)%>
<%=Server.HTMLEncode(rs.Fields("Nome").Value)%>
<%=Server.HTMLEncode(rs.Fields("Cognome").Value)%>
<%=Server.HTMLEncode(rs.Fields("CittāAbitazione").Value)%>
<%=Server.HTMLEncode(rs.Fields("StatoOProvinciaAbitazione").Value)%>
<%=Server.HTMLEncode(rs.Fields("CAPAbitazione").Value)%>