<%
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("shiv.mdb")&""
'Recordset3.ActiveConnection = MM_conn_STRING
for i=1 to 12
if m="" then
m=month(now())
else
m=m+1
end if
if m=13 then
m=1
end if
if m=1 then
month1="January"
end if
if m=2 then
month1="February"
end if
if m=3 then
month1="March"
end if
if m=4 then
month1="April"
end if
if m=5 then
month1="May"
end if
if m=6 then
month1="June"
end if
if m=7 then
month1="July"
end if
if m=8 then
month1="August"
end if
if m=9 then
month1="September"
end if
if m=10 then
month1="October"
end if
if m=11 then
month1="November"
end if
if m=12 then
month1="December"
end if
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_conn_STRING
Recordset3.Source = "SELECT * FROM event where Month1='"&month1&"' order by Date1 asc"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 3
Recordset3.Open()
if not Recordset3.eof then
%>
| |
| Program |
Location |
Date |
Timings |
<%
while not Recordset3.eof=true
%>
| <%=Recordset3("Program1")%> |
<%=Recordset3("Location1")%> |
<%=Recordset3("Date1")%> |
<%=Recordset3("Time1")%> |
<%
Recordset3.movenext
wend
%>
<%
end if
next
%>
|
Prior
registration required for all Programs For
Registration or any other information
please contact +91 09811016531, 09999985961,
09999985962, 09999985963 |
