<% 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

OUR LATEST EXHIBITIONS
2011-10-8 11:01:54

WELCOME TO VISIT THE FOLLOWING EXHIBITIONS FOR OUR LATEST NEW MODEL.

KANTON FAIR : FROM 15TH TO 19TH, OCT IN GUANGZHOU, CHINA BOOTH NUMBER: 10.1L 36

AQUANALE: FROM 26TH TO 29TH, OCT IN COLOGNE, GERMANY. BOOTH NUMBER: 10.1 H071

POOL/SPA/PATIO EXPO: FROM 2ND TO 4TH, NOV IN LAS VEGAS, USA. BOOTH NUMBER: 4237

 

 

 

 

 

 

 

 

 

Back to News Center


next:none

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