<% 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
 
q home q about_us de news center q pouducts q whyinfrared q why hemlock fir q Sauna FAQ q Contect_us q
 
 
  infrared Sauna
heng
  Sauna heater
heng
  Feature
heng
  Index
heng
  about_us
heng
  Sauna FAQ
heng
  Why infrared
heng
  Contect_us
heng
  News Center
heng
News Center

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.

Guests from Holland exchange technology with my  company

The picture description: Guests and workers exchanged technological.

Guests from Holland exchange technology with my  company

The picture description: Guests and Managers exchanged technological.

backBack to News Center


 
Copyright © 2003-2007 Royal Saunas. All Rights Reserved.