Legacy Whirlpool Registration

<%@ Language=VBScript %> <% If request("submit") = "Send Registration" then Dim strHTML, objWelcome, strDate strDate = Date() strHTML = "****************************************************" & vbCrLf strHTML = strHTML & "WARRANTY REGISTRATION CARD SENT VIA WEB" & vbCrLf strHTML = strHTML & "****************************************************" & vbCrLf strHTML = strHTML & "" & vbCrLf strHTML = strHTML & "CUSTOMER INFORMATION" & vbCrLf strHTML = strHTML & "" & vbCrLf strHTML = strHTML & "First Name: " & Request.Form("nameFirst") & vbCrLf strHTML = strHTML & "Last Name: " & Request.Form("nameLast") & vbCrLf strHTML = strHTML & "Street Address: " & Request.Form("address") & vbCrLf strHTML = strHTML & "City: " & Request.Form("city") & vbCrLf strHTML = strHTML & "State: " & Request.Form("state") & vbCrLf strHTML = strHTML & "Zip: " & Request.Form("zip") & vbCrLf strHTML = strHTML & "Country: " & Request.Form("Country") & vbCrLf strHTML = strHTML & "Telephone: " & Request.Form("phone") & vbCrLf strHTML = strHTML & "Email Address: " & Request.Form("email") & vbCrLf strHTML = strHTML & "" & vbCrLf strHTML = strHTML & "----------------------------------------------------" & vbCrLf strHTML = strHTML & "" & vbCrLf strHTML = strHTML & "SPA INFORMATION" & vbCrLf strHTML = strHTML & "" & vbCrLf strHTML = strHTML & "Serial Number: " & Request.Form("serialNumber") & vbCrLf strHTML = strHTML & "Model Name: " & Request.Form("modelName") & vbCrLf strHTML = strHTML & "Color of Spa: " & Request.Form("color") & vbCrLf strHTML = strHTML & "Name of Dealer: " & Request.Form("dealerName") & vbCrLf strHTML = strHTML & "Date Purchased: " & Request.Form("datePurchased") & vbCrLf strHTML = strHTML & "" &vbCrLf strHTML = strHTML & "----------------------------------------------------" & vbCrLf strHTML = strHTML & "" & vbCrLf strHTML = strHTML & "This form was sent to on: " & strDate & vbCrLf strHTML = strHTML & "" & vbCrLf Set iConf = Server.CreateObject ("CDO.Configuration") Set Flds = iConf.Fields 'Set and update fields properties Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.Update Set objNewMail = Server.CreateObject("CDO.Message") Set objNewMail.Configuration = iConf objNewMail.Subject = "Warranty Registration Card from Web" objNewMail.From = "register@masterspas.com" objNewMail.To = "wschweyer@masterspas.com,registration@masterspas.com" objNewMail.Cc = "dhess@masterspas.com,deronhess@gmail.com" objNewMail.TextBody = strHTML objNewMail.send Response.Redirect "registerThanks.asp?email=complete" End If %> Legacy Whirlpool Registration

FEATURES

CUSTOMER SUPPORT
What makes the Legacy line even more of a value is that it is manufactured by Master Spas, the award winning global leader in luxury spas.

OWNERS MANUAL
WARRANTY
REGISTRATION

Product Registration
Please register your new spa with us to assure prompt professional service.

First Name:
Last Name:
Street Address:
City:
State:
Zip:
Country:
Telephone:
Email Address:
Serial Number:
	(on the U.L. plate on the access panel)
Model Name:
Color of Spa:
Name of Dealer:
Date of Purchase:

Registration | Warranty | About Us