Old Bengal Events
<%
Dim objConn 'Connection var
Dim objRS 'Recordset var
Dim strSQL 'SQL Statement var
Dim i
i = 0
'Create a Connection Object
Set objConn = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM events WHERE past=0 ORDER BY event_id DESC;"
objConn.ConnectionString = strconn
objConn.Open
set RS = objconn.execute(strSQL)
If RS.eof or RS.bof Then
response.write "No Event Found."
Else
response.write("
")
Do
response.write "| "
response.write "» " & RS("event_title") & " | "
response.write "" & RS("event_date") & " " & RS("event_time") & " | "
response.write "
"
RS.movenext
i = i + 1
Loop Until i>7 or RS.bof or RS.eof
If i>7 Then
response.write "| MORE EVENTS » |
"
End if
response.write "
"
End If
%>
<%
i = 0
strSQL = "SELECT * FROM events WHERE past=1 ORDER BY event_id DESC;"
set RS = objconn.execute(strSQL)
If RS.eof or RS.bof Then
response.write "No Event Found."
Else
response.write("
")
Do
response.write "| "
response.write "» " & RS("event_title") & " | "
response.write "" & RS("event_date") & " " & RS("event_time") & " | "
response.write "
"
RS.movenext
i = i + 1
Loop Until i>7 or RS.bof or RS.eof
if i>7 Then
response.write "| MORE EVENTS » |
"
End If
response.write "
"
End If
%>
