Infrared Saunas | Malibu, Delmar, Newport, Hollywood

<%@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)%>" />