 |
|
 |
 |
 |
|
<%Set RSMONTHNAME = Server.CreateObject("ADODB.Recordset")
SQLMONTHNAME = "SELECT * from MonthName"
RSMONTHNAME.Open SQLMONTHNAME, Conn, 1, 3%>
<%RSMONTHNAME.close
set RSMONTHNAME = nothing%><%If RSBODY("Upcoming_Events") = True Then%><%Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Events ORDER BY Date"
RS.Open SQL, Conn, 1, 3
i = 1
Do while NOT RS.EOF
If i <= CInt(RSBODY("Upcoming_Events_Number")) AND datediff("D",now(),RS("Date")) >= 0 Then%>
|
 |
 |
|
|
 |
 |
|
|
 |
 |
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
