<%
if request.querystring("ORDERBY")="" then
ORDERBY = "start_dt,name"
else
ORDERBY = request.querystring("ORDERBY")
end if
%>
<%
event_id=request.querystring("event_id")
' this code opens the database
numrecords = "0"
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=GENESEE;uid=nothing;pwd=nothing"
sql = "select count(name) from calender_event WHERE event_id=" & event_id
set rs = conn.execute(sql)
if not rs.eof then numrecords = rs(0)
sql = "select * from calender_event WHERE event_id=" & event_id & " order by " & ORDERBY
set rs = conn.execute(sql)
'response.write("There are " & numrecords & " records listed.")
'//SECURITY TO MAKE SURE THE PAGE DOES NOT GET PROPOGATED IF NO RECORDS EXIST. SENDS USER TO searchfail.asp
If numrecords > "0" then
'do nothing
else
response.redirect "/default.asp"
end if
' Now lets grab all the records
DO UNTIL rs.eof
' put fields into variables
event_ID=rs("event_ID")
name=rs("name")
start_dt=rs("start_dt")
start_time=rs("start_time")
start_time2=fncFmtDate(start_time, "%h:%N %P")
end_dt=rs("end_dt")
end_time=rs("end_time")
end_time2=fncFmtDate(end_time, "%h:%N %P")
location=rs("location")
description=rs("description")
%>
