<% Dim strFrom, strSubject, strBody Dim objCDOMail strFrom = request.form("From") strSubject = "Sunny International - New Customer" strBody = "This message was sent from a sunico.com" & vbCrLf strBody = strBody & "Your request has been received at Sunny International, Inc" & vbCrLf strBody = strBody & "You will receive a copy of the Request Form" & vbCrLf strBody = strBody & "Customer service will get in touch with you very soon" & vbCrLf strBody = strBody & "Question and comments are welcome" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Name: " & request.form("name") & vbCrLf strBody = strBody & "Email: " & request.form("From") & vbCrLf strBody = strBody & "Company: " & request.form("company") & vbCrLf strBody = strBody & "Address-1: " & request.form("address1") & vbCrLf strBody = strBody & "Address-2: " & request.form("address2") & vbCrLf strBody = strBody & "City: " & request.form("city") & vbCrLf strBody = strBody & "State: " & request.form("state") & vbCrLf strBody = strBody & "ZipCode: " & request.form("zipcode") & vbCrLf strBody = strBody & "Country: " & request.form("country") & vbCrLf strBody = strBody & "Phone: " & request.form("phone") & vbCrLf strBody = strBody & "Comment: " & request.form("comment") & vbCrLf strBody = strBody & vbCrLf If strFrom = "" Or Not IsValidEmail(strFrom) Then %>

Request Form
Thank you for your interest in becoming a customer of Sunny International, Inc. The information you are submitting to us will be kept strictly confidential and will not be sold to any mailing lists. So that we can service you better, please, take some time now to fill out the following form. When finished, click "Send Message".
<% If strFrom = "" then else If Not IsValidEmail(strFrom) then %> Your Email must have a valid non-empty response. <% End if %> <% End If %>
Name
Company
Address - 1
Address - 2
City
State
Zip Code
Country
Phone
	Do you have a specific question ?
Your E-mail address
Sunny International,  Inc. 8900 NW 33rd Street - Miami, FL 33172 Tel.: 305.591.3065 - Fax.: 305.599.1301 Toll free: 800.327.0032 email@sunico.com Copyright 1999,2000 Sunny International, Inc. All rights registered.

<% Else Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "Sunico.com " objCDOMail.To = "email@sunico.com" objCDOMail.Cc = StrFrom objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing %>

Thank you for your Order

Your request has been received at Sunny International. You will receive a copy of the Request Form. Customer service will get in touch with you very soon. Question and comments are welcome email@sunnico.com

<% End If %> <% Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>