%
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
|
Guests from Holland exchange technology with my company
2012-03-28 11:25:59
2012.02.07 , Guests from Holland exchange technology with my company.

The picture description: Guests and workers exchanged technological.

The picture description: Guests and Managers exchanged technological.
Back to News Center
|
|
|
|
Copyright © 2003-2007 Royal Saunas. All Rights Reserved. |
|
|
 |
|