<%
strPath = server.mapPath("data/Nea.mdb")
set Conn = server.createobject("ADODB.connection")
driver = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & strPath
Conn.connectionstring = driver
Conn.Open
erotisi= "SELECT * FROM Nea order by ora DESC"
Set RS = Conn.Execute(erotisi)
While not RS.EOF
%>
<%Response.Write RS("ora")%>
"
<%Response.Write RS("titlos")%>
"
<%Response.Write RS("perigrafi")%>
<%
RS.MoveNext
Wend
%>
<%
RS.Close
Conn.Close
Set Conn=Nothing
%>