<%if dev="yes" then response.Write "home.asp"%> <% sqln1="Select * from tbl_events where zactive = 'yes' and date_end > #"&now()&"# order by events_date desc" 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 ""& vbcrlf response.Write "" response.Write "" response.Write ""& vbcrlf 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 ""& vbcrlf response.Write "" response.Write "" response.Write ""& vbcrlf end if %>

" 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 |