<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("MyDatabase.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath
SQLcmd = "Select * From MESSAGE Order By A_Time Desc"
Set RS = conn.Execute(SQLcmd)
Do While Not RS.EOF
%>