<%
dim strSql
dim Conn
dim strEventId
dim strEventTitle
dim strHtml
GetConn Conn
strHtml = ""
strSql = "Select EventID,EventTitle from Event where isActive='Y' and eventCode='A' order by eventdate"
'strSql = "Select EventID,EventTitle from Event where isActive='Y' order by eventdate"
GetQueryResults strSql,rsData,Conn
While Not rsData.EOF
strEventId = rsData("EventId")
strEventTitle = rsData("EventTitle")
strHtml = strHtml & "
