<%if dev="yes" then response.Write "events.asp"%> <% sqln1="Select * from tbl_events where event_id is not null and zactive = 'yes' and date_end > #"&now()&"#" Set rsn1=MyConnSC.Execute(sqln1) If rsn1.eof = false then E = 0 while not rsn1.eof E = E + 1 if E <= nu_events_list then response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" else nu_event_more = "yes" end if rsn1.movenext Wend rsn1.close MyConnSC.Close else end if 'rsn1 if nu_event_more = "yes" then response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" end if 'if nu_event_more = "yes" then %>

" response.Write "" response.Write "" response.Write "" response.Write "" response.Write " "& rsn1("events_date") &" "& rsn1("events_title") &"

" response.Write "" response.Write "" response.Write "" response.Write "" response.Write " | more info |