<% If request("SendEmail") = "Yes" Then 'Dimension variables Dim objCDOMail 'Holds the CDONTS NewMail Object 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Who the e-mail is from objCDOMail.From = request("email") 'Who the e-mail is sent to objCDOMail.To = "info@uvsystems.com" 'Who the carbon copies are sent to objCDOMail.Cc = "" 'Who the blind copies are sent to objCDOMail.Bcc = "" 'Set the subject of the e-mail objCDOMail.Subject = "New Mailing List" 'Set the e-mail body format (0=HTML 1=Text) objCDOMail.BodyFormat = 1 'Set the mail format (0=MIME 1=Text) objCDOMail.MailFormat = 1 'Set the main body of the e-mail objCDOMail.Body = "First Name: " & request("fname") & vbCRLF &_ "Last Name: " & request("lname") & vbCRLF &_ "Phone: " & request("phone") & vbCRLF &_ "Email: " & request("email") & vbCRLF &_ "Address 1: " & request("address1") & vbCRLF &_ "Address 2: " & request("address2") & vbCRLF &_ "City: " & request("city") & vbCRLF &_ "State/Province: " & request("state") & vbCRLF &_ "Zip/Postal Code: " & request("zip") & vbCRLF &_ "Country: " & request("country") & vbCRLF &_ "Comment: " & request("comment") 'Importance of the e-mail (0=Low, 1=Normal, 2=High) objCDOMail.Importance = 1 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing End If %>
   

<% If request("SendEmail") = "Yes" Then %> Thank you for submitting your information to UV SYSTEMS's mailing list.

<% Else %> UV SYSTEMS, Inc. would like to keep you abreast of what is happening.

If you are interested in joining our mailing list then fill out and submit the form below.

First Name   
Last Name
Email Address
-- Optional --
Address   
Address
City
State or Province
Zip or Code
Country
Phone Number
Comment
<% End If %>

* Note, none of that personal information will be sold, given, or otherwise distributed to anyone else. Notices of special sales or new items might be sent out via email to everyone entering. Note these sale notices (if sent) will not exceed four notices per year.