<% If Request("area") = "area" Then Session.Contents.RemoveAll() response.Redirect("index.asp") End If If Request("accedi") = "ok" Then If Request("user") = "sonoassociato" AND Request("pass") = "voglioentrare" Then Session("riservato") = "ok" Response.Redirect("index.asp") Else Response.Redirect("index.asp?errore=errore") End If End If %>

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/db.mdb") Set Rs = Conn.Execute("SELECT id_home, titolo, messaggio,link FROM home WHERE visu = 's' ORDER BY ordine") Do Until Rs.EoF %> <% Rs.MoveNext Loop Rs.Close Set Rs = Nothing %> <% If Rs("link") <> "" Then %> " class="nerolink2" target="_blank"><%=Rs("titolo")%> <% Else %> " class="nerolink2" target="_blank"><%=Rs("titolo")%> <% End If %> <% Set Rs = Conn.Execute("SELECT * FROM centrale ORDER BY ordine") Do Until Rs.Eof %> <% Rs.MoveNext If Rs.EoF Then response.Write("") exit do End If %> <% Rs.MoveNext If Rs.EoF Then exit do End If Loop Rs.Close : Set Rs = Nothing %> <% If Rs("link") <> "" Then %> " target="_blank">.jpg" border="0"> <% Else %> .jpg" border="0"> <% End If %> <% If Rs("link") <> "" Then %> " target="_blank">.jpg" border="0"> <% Else %> .jpg" border="0"> <% End If %>

<% Conn.Close Set Conn = Nothing %>