%@LANGUAGE="VBSCRIPT"%> <% Dim rsBlurbSelect Dim rsBlurbSelect_numRows Set rsBlurbSelect = Server.CreateObject("ADODB.Recordset") rsBlurbSelect.ActiveConnection = MM_conn_SideCounter_STRING rsBlurbSelect.Source = "SELECT * FROM qryBlurbSelect WHERE pageName='Home Page'" rsBlurbSelect.CursorType = 0 rsBlurbSelect.CursorLocation = 2 rsBlurbSelect.LockType = 1 rsBlurbSelect.Open() rsBlurbSelect_numRows = 0 %> <% Dim rs_ListClasses Dim rs_ListClasses_numRows Set rs_ListClasses = Server.CreateObject("ADODB.Recordset") rs_ListClasses.ActiveConnection = MM_conn_SideCounter_STRING rs_ListClasses.Source = "SELECT * FROM tblPageLists WHERE AreaID='Class'" rs_ListClasses.CursorType = 0 rs_ListClasses.CursorLocation = 2 rs_ListClasses.LockType = 1 rs_ListClasses.Open() rs_ListClasses_numRows = 0 %> <% Dim rs_ListNewsletter Dim rs_ListNewsletter_numRows Set rs_ListNewsletter = Server.CreateObject("ADODB.Recordset") rs_ListNewsletter.ActiveConnection = MM_conn_SideCounter_STRING rs_ListNewsletter.Source = "SELECT * FROM tblPageLists WHERE AreaID='Newsletter'" rs_ListNewsletter.CursorType = 0 rs_ListNewsletter.CursorLocation = 2 rs_ListNewsletter.LockType = 1 rs_ListNewsletter.Open() rs_ListNewsletter_numRows = 0 %> <% Dim rs_ImgMenuList Dim rs_ImgMenuList_numRows Set rs_ImgMenuList = Server.CreateObject("ADODB.Recordset") rs_ImgMenuList.ActiveConnection = MM_conn_SideCounter_STRING rs_ImgMenuList.Source = "SELECT * FROM tblImgButtons WHERE Area='Fabrics' ORDER BY button_Name" rs_ImgMenuList.CursorType = 0 rs_ImgMenuList.CursorLocation = 2 rs_ImgMenuList.LockType = 1 rs_ImgMenuList.Open() rs_ImgMenuList_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_ListClasses_numRows = rs_ListClasses_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_ListClasses_numRows = rs_ListClasses_numRows + Repeat2__numRows %><% Dim Repeat_rs_ImgMenuList__numRowsHL Dim Repeat_rs_ImgMenuList__indexHL Repeat_rs_ImgMenuList__numRowsHL = -1 Repeat_rs_ImgMenuList__indexHL = 0 rs_ImgMenuList_numRows = rs_ImgMenuList_numRows + Repeat_rs_ImgMenuList__numRowsHL %>