|
MANAGER'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 objrs2 = Server.CreateObject("ADODB.Recordset")
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open DSNtemp
strSQL = "SELECT * FROM Man_Corner ORDER BY PostDate DESC"
'strSQL2 = "SELECT * FROM Sup_Corner ORDER BY DESC PostDate "
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
'On Error Resume Next
'objrs2.Open strSQL2,objcon
'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
%>
|
