<%
Dim BlankForm
Dim CustAdd
Sub SetupForm()
BlankForm = TRUE
For Each Item in Request.Form
If (Trim(Item) <> Empty) Then
BlankForm = FALSE
End If
Next
End Sub
Call SetupForm()
msg=""
' FORM VALIDATION SECTION
If ( Blankform = FALSE ) Then
If Request("email") = "" OR _
Request("comments") = "" Then
msg="
All required fields must have a valid non-empty response."
End if
If msg ="" Then
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.qmessage="true"
objMail.FromAddress="" & request.form("email") & ""
objMail.RemoteHost = "relay.datareturn.com"
objMail.AddRecipient "sales@homewireless.com", "sales@homewireless.com"
objMail.Subject="Phone Number:( " & request.form("phone1") & ")" & request.form("phone2") & "-" & request.form("phone3") & ""
objMail.BodyText="" & request.form("Firstname") & " " & request.form("Lastname") & _
vbCrLf & vbCrLf & ""& request.form("address") & " " & request.form("apt") & _
vbCrLf & vbCrLf & ""& request.form("city") & ", " & request.form("state") & " " & request.form("zip") & _
vbCrLf & vbCrLf & "" & request.form("comments") & ""
objMail.Sendmail
response.redirect "/company/contactusresponse.asp?firstname=" & request.form("firstname") & ""
End If
End If
%>
