|
SUPERINTENDENT'S
CORNER
| |
<%
'OPEN A CONNECTION TO DB
' DSNless connection to Access Database
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("information.mdb")
Set objrs = Server.CreateObject("ADODB.Recordset")
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open DSNtemp
strSQL = "SELECT * FROM Sup_Corner ORDER BY PostDate DESC"
On Error Resume Next
objrs.Open strSQL,objcon
'Error Trapping
If Err.number <> 0 Then
Response.Write "Script Error: " & Err.Description & " " & Err.Source
End if
%>
<%Do While Not objrs.EOF%>
<%=objrs("subject")%>
<%=objrs("Info")%>
<%objrs.MoveNext%>
<%Loop
objrs.Close
objCon.Close
%>
|
