<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
SideBar - Join the Experience
<%
Dim rsEvents
Dim rsEvents_cmd
Dim rsEvents_numRows
Set rsEvents_cmd = Server.CreateObject ("ADODB.Command")
rsEvents_cmd.ActiveConnection = MM_events_STRING
rsEvents_cmd.CommandText = "SELECT SortOrder, EventTitle, EventDate, EventDetails, LinkText, LinkURL, imgPath FROM tblEvents ORDER BY SortOrder ASC"
rsEvents_cmd.Prepared = true
Set rsEvents = rsEvents_cmd.Execute
rsEvents_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 5
Repeat1__index = 0
reEvents_numRows = rsEvents_numRows + Repeat1__numRows
%>
