| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| St. Joseph the Worker Catholic Church | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 455 Ames Blvd, Marrero Louisiana 70072 | Email: [email protected] | Telephone: 504-347-8438 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<%
Dim Connect, accessdb, objRec, strSQL, strOrder
strOrder = Request.QueryString("tblSort")
accessdb = "litsched.mdb"
myDB = "DRIVER={Microsoft Access Driver (*.mdb)};"
myDB = myDB & "DBQ=" & server.mappath(accessdb) & ";"
Set Connect= Server.CreateObject("ADODB.Connection")
Connect.Open myDB
Set objRec = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM litsched"
if strOrder <> "" then
strSQL = strSQL & " order by " &StrOrder;
End if
objRec.open strSQL, Connect
%>
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
