Welcome to Royal Saunas

<% If (Request.QueryString("ClassID") <> "") Then rsProduct__MMColParam = Request.QueryString("ClassID") End If %> <% Dim rsProduct Dim rsProduct_numRows Set rsProduct = Server.CreateObject("ADODB.Recordset") rsProduct.ActiveConnection = MM_JH_STRING If (Request.QueryString("ClassID") <> "") Then rsProduct.Source = "SELECT * FROM JH_Product WHERE ClassID = " + Replace(rsProduct__MMColParam, "'", "''") + "" else rsProduct.Source = "SELECT * FROM JH_Product" end if rsProduct.CursorType = 0 rsProduct.CursorLocation = 2 rsProduct.LockType = 1 rsProduct.Open() rsProduct_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = 4 Dim HLooper1__index HLooper1__index = 0 rsProduct_numRows = rsProduct_numRows + HLooper1__numRows %> <% If (Request.QueryString("ClassID") <> "") Then Dim rsLei Dim rsLei_numRows Set rsLei = Server.CreateObject("ADODB.Recordset") rsLei.ActiveConnection = MM_JH_STRING rsLei.Source = "SELECT * FROM JH_Class inner join JH_Sort on JH_Class.SortID = JH_Sort.SortID WHERE JH_Class.ClassID = " + Replace(rsProduct__MMColParam, "'", "''") + " " rsLei.CursorType = 0 rsLei.CursorLocation = 2 rsLei.LockType = 1 rsLei.Open() rsLei_numRows = 0 end if %> Welcome to Royal Saunas