<% SUB sendmail( fromWho, toWho, Subject, name, address1, Address2, City, State, Zip, Country, Telephone, Purchase, Inforequest, Saunadepth, Saunawidth, Saunaheight, Saunaunits, ProductText, WebSiteText, FindMethod, Keywords, OtherFindMethod ) Dim objCDO Dim cdoConfig Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set cdoConfig = Server.CreateObject("CDO.Configuration") Set Flds = cdoConfig.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = cdoConfig objCDO.From = fromWho objCDO.To = toWho objCDO.Subject = Subject objCDO.TextBody = "Name: " & name & vbCrLf & "Address1: " & address1 & vbCrLf & "Address2: " & address2 & vbCrLf & "City: " & city & vbCrLf & "State: " & state & vbCrLf & "Zip: " & zip & vbCrLf & "Country: " & country & vbCrLf & "Telephone: " & telephone & vbCrLf & "Purchase: " & purchase & vbCrLf & "Info request: " & Inforequest & vbCrLf & "Sauna depth: " & Saunadepth & vbCrLf & "Sauna width: " & Saunawidth & vbCrLf & "Sauna height: " & saunaheight & vbCrLf & "Sauna units: " & saunaunits & vbCrLf & "Product text: " & producttext & vbCrLf & "Website text: " & websitetext & vbCrLf & "Find method: " & findmethod & vbCrLf & "Keywords: " & keywords & vbCrLf & "Other find method: " & otherfindmethodect objCDO.Send END SUB fromWho = TRIM( Request.Form( "fromWho") ) toWho = TRIM( Request.Form( "toWho") ) Subject = TRIM( Request.Form( "Subject" ) ) name = TRIM( Request.Form( "name") ) address1 = TRIM( Request.Form( "address1") ) address2 = TRIM( Request.Form( "address2") ) city = TRIM( Request.Form( "city") ) state = TRIM( Request.Form( "State") ) Zip = TRIM( Request.Form( "Zip") ) Country = TRIM( Request.Form( "Country") ) Telephone = TRIM( Request.Form( "Telephone") ) Purchase = TRIM( Request.Form( "Purchase") ) Inforequest = TRIM( Request.Form( "Inforequest") ) Saunadepth = TRIM( Request.Form( "Saunadepth") ) Saunawidth = TRIM( Request.Form( "Saunawidth") ) Saunaheight = TRIM( Request.Form( "Saunaheight") ) Saunaunits = TRIM( Request.Form( "Saunaunits") ) ProductText = TRIM( Request.Form( "ProductText") ) WebSiteText = TRIM( Request.Form( "WebSiteText") ) FindMethod = TRIM( Request.Form( "FindMethod") ) Keywords = TRIM( Request.Form( "Keywords") ) OtherFindMethod = TRIM( Request.Form( "OtherFindMethod") ) If toWho <> "" THEN sendMail fromWho, toWho, Subject, name, address1, Address2, City, State, Zip, Country, Telephone, Purchase, Inforequest, Saunadepth, Saunawidth, Saunaheight, Saunaunits, ProductText, WebSiteText, FindMethod, Keywords, OtherFindMethod Response.redirect "http://www.airmist.com/pages/mailthanks.html" END IF 'Cleanup Set ObjCDO = Nothing Set cdoConfig = Nothing Set Flds = Nothing %> Sauna Stove Sauna Stoves

Address:
Airmist, Inc.
52 Hamel Road
Hamel, MN 55340
Phone:
800-SAUNACO
800-(728-6226)
Local:
763-478-2002
Fax:
763-478-3241
To send us email, please fill out the following form and submit.

">
Email: REQUIRED
Name:
Address 1:
Address 2:
City:
State/Province: Zip/Postal : Country :
Telephone :
I plan to purchase within
I am interested in more information on...
Saunas

General
Custom
Cedar Prefab
Spruce Prefab
Kit
Approximate Sauna Size:
Depth Width Height Units
X X

Heaters

Electric
Wood
Gas
Steam Baths

Residential
Commercial
Steam Generators
Parts

Heaters
Steam Baths
Accessories

General
Services

Repairs
CAD Drawings
Sauna Specs


Product Comments:

Web Site Comments:


What method did you use for locating our site?
Select Method...

Enter Keyword(s)
 ...Or Please Explain

Saunas • Heaters • Steam Suites • Steam Generators • Parts
Accessories • Services • Common Questions • Photo Gallery