<%
filePath = Server.MapPath("/Exhibits/frankenstein/activities/frankenstein.mdb")
set myconn= server.createobject("ADODB.Connection")
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
set myRst = server.createObject("ADODB.Recordset")
vSort = request.querystring("Sort")
if vSort = "By Title" then
strSQL = "select * from tblMain order by title"
myRst.open strSQL, myconn
response.write ("
" & vbcrlf)
Do while not myRst.EOF
response.write ("| " & myRst("Title") & " | " & "" & formatdatetime(myRst("A_Date"),2) & " |
")
myRst.movenext
Loop
response.write ("
")
elseif vSort = "By Date" then
strSQL = "select * from tblMain order by A_Date"
myRst.open strSQL, myconn
response.write ("
" & vbcrlf)
Do while not myRst.EOF
response.write ( "| " & formatdatetime(myRst("A_Date"),2) & " | "& " " & myRst("Title") & " | ")
myRst.movenext
Loop
response.write ("
")
End if
set myRst = nothing
set myconn = nothing
%>
