<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim company Dim company_cmd Dim company_numRows Set company_cmd = Server.CreateObject ("ADODB.Command") company_cmd.ActiveConnection = MM_company_STRING company_cmd.CommandText = "SELECT * FROM company" company_cmd.Prepared = true Set company = company_cmd.Execute company_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_string_STRING Recordset1_cmd.CommandText = "SELECT * FROM saunas" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Infrared Saunas | Malibu, Delmar, Newport, Hollywood in <%=(company.Fields.Item("astate").Value)%> <%=(company.Fields.Item("defaultdesc").Value)%>" /> " /> , <%=(company.Fields.Item("acountry").Value)%>" />
HOME ABOUT BENEFITS SAUNAS FEATURES TECHNOLOGY TESTIMONIALS FAQ SAFETY WARRANTY LIBRARY CONTACT

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
">" alt="Infrared Saunas for home" width="200" height="200" hspace="9" />">

<%=(Recordset1.Fields.Item("nname").Value)%>

">Specifications ">More images ">Order Now.
Free Shipping in the US

Canadian orders, call or email for quote.
800-327-5122 / sales@coastalsaunas.com

<%=FormatCurrency(Recordset1.Fields.Item("nprice").Value)%> Includes Shipping in the<%=(company.Fields.Item("shortcountry").Value)%>!
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

 

Click Here to view
all of our Saunas
Features

 
Footer

Home | About | Benefits | Products | Features | Technology | Testimonials

Safety | Warranty | Library | Contact

© Coastal Saunas. 1-800-327-5122 - All rights reserved. 2000-2009
Copyright 2009 All Rights Reserved Website Design & Hosting by NTech
<% company.Close() Set company = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>