Content for id "header_wrapper" Goes Here

Find a Dealer

<%@ language="VBSCRIPT" %> <% dim SQL_1,SQL_2, path, recCount, state_val, email_1, Do_Not_Email_Dealer SQL_1 = "select email, zip, Do_Not_Email_Dealer from solar where service_state='%state' order by zip" SQL_1 = replace(SQL_1,"%state",request.QueryString("state")) SQL_2 = "select state_lookup.state_desc, solar.* from state_lookup left JOIN solar ON solar.service_state = state_lookup.state_code order by state_lookup.state_desc, solar.company" Set objConn = Server.CreateObject("ADODB.Connection") dbstring="driver={Microsoft Access Driver (*.mdb)};dbq=" &server.MapPath("statelist.mdb")&";readonly=0" objConn.Mode = 3 objConn.Open dbstring Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorType = 3 objRS.LockType = 2 objRS.Source = SQL_1 objRS.Open recCount = objRS.recordCount If recCount <> 0 then email_1 = objRS("email") Do_Not_Email_Dealer = objRS("Do_Not_Email_Dealer") if(not(isnull(email_1)) and isnull(Do_Not_Email_Dealer)) then call getFormVals(email_1) else call getFormVals(null) end if else call getFormVals(null) end if objRS.Close objRS.Source = SQL_2 objRS.Open call getStates(objRS.GetRows()) objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing sub getFormVals(mm_addy) dim EmailStr, FormFields, FormValue, FileStr, mydate FormFields = array("name" ,"address","city","state","zip","phone","from", "ownpool","pooltype","Heated","HeaterType",+_ "HeatingCost","MonthsOfUse","FTemperature","HowDidYouFindUs") For each FormField in FormFields FormValue = trim(request.QueryString(FormField)) FileStr = FileStr &" , " & FormValue if FormValue <> "" then EmailStr = EmailStr & FormField &" : "& FormValue & vbNewLine end if next mydate = Date FileStr = FileStr & " , " & Month(myDate) & "/" & Day(myDate) & "/" & Year(myDate) call Send_Mail(mm_addy,EmailStr) 'call Open_File(FileStr & vbNewLine) end sub sub Send_Mail(sm_addy,sm_body) Const CdoMailFormatMime = 0 Const CdoBodyFormatText = 1 Const CdoMailImportance = 1 Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.BodyFormat = CdoBodyFormatText objMail.MailFormat = CdoMailFormatMime objMail.Importance = CdoMailImportance objMail.To = "graf@grafweb.com,"& sm_addy objMail.Subject = "Solar Industries website submission" objMail.From = "graf@grafweb.com" objMail.Body = sm_body objMail.Send Set objMail = Nothing end sub sub Open_File(txt) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objStream= objFSO.openTextFile("e:\Graf\solarindustries_com\web\dealerlist\dealerlist.txt", 8, true) objStream.Write(txt) objStream.Close end sub sub getStates(alldata) cols = Ubound(alldata,1) rows= Ubound(alldata,2) prevState = "" FOR rowcounter = 0 TO rows state = alldata(0,rowcounter) service_state = alldata(1,rowcounter) if(prevState <> state) then state_str = "

" & state & "" state_str = state_str & "TOP
" state_str = state_str & "
" state_str = state_str & "" response.write(state_str) prevState = state end if Do_Not_List_Dealer = alldata(13,rowcounter) company = alldata(2,rowcounter) if (isnull(company)) then response.write("

Thank you for visiting our website and for your interest in our pool heating systems. We will forward your information to the Aquatherm/Solar Industries' dealer who can best serve your needs. You should be contacted in the next several days. If you have any questions in the mean time please feel free to contact us directly.

800/227-7657 1940 Rutgers University Blvd.
Lakewood, NJ 08701
aquatherm@aol.com

") elseif(isnull(Do_Not_List_Dealer)) then 'This portion is specific to the column order on the spreadsheet. If you 'change the order then you will need to change the code below. contact = alldata(3,rowcounter) address = alldata(4,rowcounter) city = alldata(5,rowcounter) state = alldata(6,rowcounter) zip = alldata(7,rowcounter) tel = alldata(8,rowcounter) fax = alldata(9,rowcounter) email = alldata(10,rowcounter) website = alldata(11,rowcounter) map = alldata(12,rowcounter) Do_Not_List_Map = alldata(14,rowcounter) Do_Not_List_Email = alldata(15,rowcounter) Do_Not_List_Website = alldata(16,rowcounter) Do_Not_Hyper_Email = alldata(17,rowcounter) Do_Not_Hyper_Website = alldata(18,rowcounter) if(not isnull(zip)) then if(len(zip) = 4) then zip = "0" & zip end if end if add_str = "
" add_str = add_str & "" & company & "
" add_str = add_str & contact & "
" add_str = add_str & address & "
" add_str = add_str & city & ", " & state & "  " & zip & "
" add_str = add_str & "Phone: " & tel & "
" add_str = add_str & "Fax: " & fax & "
" if(isnull(Do_Not_List_Email)) then email_str = "E-mail: " & email & "
" if(isnull(Do_Not_Hyper_Email)) then email_str = "E-mail: "&email&"
" end if add_str = add_str & email_str end if if(isnull(Do_Not_List_Website)) then web_str = "Web: " & website & "
" if(isnull(Do_Not_Hyper_Website)) then web_str = "Web: "&website&"
" end if add_str = add_str & web_str end if if(isnull(Do_Not_List_Map)) then add_str = add_str & "Clip Here for Map
" end if response.write(add_str &"

"& vbnewline) elseif(not isnull(Do_Not_List_Dealer)) then if(alldata(0,rowcounter-1)<> state and state <> alldata(0,rowcounter+1)) then response.write("

Thank you for visiting our website and for your interest in our pool heating systems. We will forward your information to the Aquatherm Industries dealer who can best serve your needs. You should be contacted in the next several days. If you have any questions in the mean time please feel free to contact us directly.

800/535-6307

Aquatherm Industries, Inc.
1940 Rutgers University Blvd.
Lakewood, NJ 08701
Info@warmwater.com

") end if end if NEXT end Sub %>

Top of Solar pool heater page

 

Great Offer!

Installation Photos

Solar pool heater sidebar
More solar pool heater sidebar

 

Facts about solar pool heaters
"No more gas bills and lots more swimming!"

- Las Vegas, NV
"We swim until October… I get my money's worth from my swimming pool now!"

- Brick, NJ
"We researched all the options, and SI was the best buy at any price!"

- Palo Alto, CA
"For the first time in 32 years, we swam in May!"

- Portland, OR
"This thing is fantastic, it's doubled our swimming season and a temperatures where we enjoy the pool 200% more than without heat. Keep up the good work."
- Poquoson, VA
Bottome of solar pool heater facts sidebar

 

Solar Industries

1940 Rutgers University Blvd.
Lakewood, New Jersey 08701

Tel. 800-535-6307
Fax 732-905-9899

 

Our Mission News Our Technology Our Quality GuaranteeInstallations
Find a dealer by state Our dealer pledge Become a dealer Dealer feedback
Media System Service Maintenance Winterizing Steps Site Map
Legal Privacy Policy Terms of Use Contact Us
Copyright 2011
Solar pool heater