<%
' dichiaro la variabile Conn di connessione
Dim Conn
' eseguo la connessione con password
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("areanews/dbdata/db_gest.mdb") & ";PWD=sx52"
%>
<%
' dichiaro la variabile che conterr l'oggetto Recordset
Dim rs
'creo l'oggetto Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
if Request.QueryString("id_news") <> "" then
where = " WHERE id_news = " & Request.QueryString("id_news")
else
where = ""
end if
'Eseguo la query SQL SELECT
rs.Open "SELECT * FROM news" & where, Conn
%>
<%
Do While not rs.EOF
%>
<%=rs("data") %> - <%=rs("titolo") %>
<%=rs("testo") %>
<% rs.MoveNext Loop %>
Torna all'elenco NEWS
<%=rs("testo") %>
<% rs.MoveNext Loop %>
Torna all'elenco NEWS
