Upcoming Events - <%Response.Write(Request.QueryString("RegionChosen"))%>

<% Session("sRegionChosen")=Request.QueryString("RegionChosen") Set oConn=Server.CreateObject("ADODB.Connection") Set oRS=Server.CreateObject("ADODB.Recordset") oConn.Open gblConnectString If Request.QueryString("RegionChosen")="AllRegions" Or Request.QueryString("RegionChosen")=""Then oRS.Open "SELECT * FROM tblEvents ORDER BY [strRegion]", oConn Else oRS.Open "SELECT * FROM tblEvents WHERE strRegion= '" & Request.QueryString("RegionChosen") & "'", oConn End If Do While not(oRS.EOF) %>
Title: <%Response.Write oRS("strEventTitle")%>
Date: <%Response.Write oRS("dteEventDate")%> Time: <%Response.Write oRS("dteEventTime")%> Duration: <%Response.Write oRS("intEventDuration")%> day(s)
Location: <%Response.Write oRS("strEventLocation")%>
Agenda: <%Response.Write oRS("memEventAgenda")%>

<%oRS.MoveNext Loop %>