%@Language = VBScript%>
<%Option Explicit %>
<%
dim conn, cmd, strConn
'********************************************************
' © copyright 2003 by Net Tango, Inc.
' All Rights Reserved.
'********************************************************
%><%
Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open Application("georgetown_ConnectionString")
conn.Open strConn
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = 4
dim rsInfo
set rsInfo = server.CreateObject("ADODB.Recordset")
cmd.commandtext = "upGetCardomeEvents"
set rsInfo = cmd.execute
dim section
section = 24 'Cardome Calendar
dim rsOrd
cmd.CommandText="upGetDeptordinance"
cmd.Parameters.refresh
cmd.Parameters(1) = section
cmd.Parameters(2) = date()
set rsOrd = cmd.Execute
dim rsNews
cmd.CommandText="upGetDeptNews"
cmd.Parameters.refresh
cmd.Parameters(1) = section
cmd.Parameters(2) = date()
set rsNews = cmd.Execute
%>
Events - Cardome Centre - City of Georgetown
|
|
 |
Events |
|
|
| Date |
Title |
<%if not rsInfo.eof then
do until rsInfo.eof%>
| <%=rsInfo("d_from")%>
<%if rsInfo("d_to") <> rsInfo("d_from") then%>
- <%=rsInfo("d_to")%>
<%end if%>
|
"><%=rsInfo("title")%> |
<%rsInfo.movenext
loop
end if%>
|
|
|