|
SPECIAL EVENTS
<%
Dim rs
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DSN=pagemaster;UID=socceruser;PWD=1qazxsw2"
conn.Open
SQL = "SELECT * FROM pagemaster WHERE pagemaster = 'Special Events' "
SQL = SQL + " order by dateofevent, timeofevent"
set RS=conn.Execute(SQL)
'Response.Write(SQL)
'ad if
'Setup a recordset object
' Go through database once to get links
Session("pagemaster")= Request.form("pagemaster")
%>
<%
if rs.eof = true or rs.bof = true then
%>
<%
else
dim desc1
dim desc2
rs.movefirst
do while not rs.eof
desc1=rs("description")
desc2=rs("paragraph2")
%>
<% if rs("title") <> "" then %>
|
Click Here to Print Schedule |
<% else %>
<% end if %>
<% if rs("dateofevent") <> "" then %>
Date(s) of Event: <%= rs("dateofevent")%>
<% else %>
<% end if %>
<% if rs("timeofevent") <> "" then %>
Time of Event: <%= rs("timeofevent")%>
<% else %>
<% end if %>
<% if rs("locationofevent") <> "" then %>
Location of Event: <%= rs("locationofevent")%>
<% else %>
<% end if %>
<% if rs("room_number") <> "" then %>
Room Number: <%= rs("room_number")%>
<% else %>
<% end if %>
<% if rs("agegroup") <> "" then %>
Age Group: <%= rs("agegroup")%>
<% else %>
<% end if %>
<% if rs("contact") <> "" then %>
Contact: <%= rs("contact")%>
<% if rs("contactemail") <> "" then %>
Contact Email: "><%= rs("contactemail")%>
<% else %>
<% end if %>
<% if rs("contactphone") <> "" then %>
Contact Phone: <%= rs("contactphone")%>
<% else %>
<% end if %>
|
<% else %>
<% end if %>
<% if desc1 <> "" then %>
|
<%= desc1%>
<% else %>
<% end if %>
<% if desc2 <> "" then %>
<%= desc2%>
<% else %>
<% end if %>
| |
|
<%
rs.movenext
loop
end if
%>
[ BACK TO TOP ]
Site designed and developed by Sun Flare Marketing, Inc.
System Designs© Sun Flare Marketing, Inc.; unless otherwise indicated.
| |
