<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set Cn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") CONNDir_STRING = "DBQ=" & Server.MapPath("/db/db1.mdb") & ";" CONNDir_STRING = CONNDir_STRING & "Driver={Microsoft Access Driver (*.mdb)};" Cn.Open CONNDir_STRING rs.open "SELECT * FROM gallery ORDER BY dateStamp DESC", Cn %>
 
 
<% rs.Close Cn.Close Set rs = Nothing Set Cn = Nothing %>