%
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
|
|
Copyright © 2003-2007 Royal Saunas. All Rights Reserved. |
|
|
 |
|