Ron Sall Body Werx
6484 Chicago Dr.
Zeeland, MI 49464

Telephone
Local: (616)879-0291

<% Dim visited Dim firstname Dim lastname Dim email Dim phone Dim otherinfo Dim formcomplete Dim Errormsg dim HTMLBODY Dim name visited = request("visited") firstname = request("firstname") lastname = request("lastname") email = request("email") phone = request("phone") otherinfo = request("otherinfo") formcomplete=0 if visited = 1 then Dim re Dim re2 Set re = new RegExp set re2 = new RegExp 'Email Validation re.pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" 'Phone validation re2.Pattern="^[01]?\s*[\(\.-]?(\d{3})[\)\.-]?\s*(\d{3})[\.-](\d{4})$" If re2.Test(phone) = false and re.Test(email)=false Then Errormsg=Errormsg & "Provide an e-mail address or a phone number including area code(111-111-1111)
" formcomplete =2 End if If Errormsg = "" Then formcomplete =1 End if If formcomplete = 1 then 'Send Mail HTMLBODY = "" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "Name: " & firstname & " " & lastname & "
 
" HTMLBODY = HTMLBODY & "Phone Number: " & phone & "
 
" HTMLBODY = HTMLBODY & "Email Address: "& email & "
 
" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "" HTMLBODY = HTMLBODY & "" %> <% Dim cdoConfig Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.bodywerxonline.com" .Update End With Dim cdoMessage Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig if email="" then email="noemail@bodywerxonline.com" .From = email .To = "rsbwerx@yahoo.com" .Subject = "Website Contact" .HTMLBody = HTMLBODY .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing End if End if if formcomplete=1 then %>

Thank you for submitting your form <% =firstname%>.

Someone will be in contact with you shortly. Depending on the volume of emails you can expect to hear back from us within 24 hours or less.

<% End If if formcomplete=2 then Response.write("

" & Errormsg & "

") End if if formcomplete <> 1 then %>

First name
Last Name
Phone Number
E-mail address
Other Information <% =otherinfo%>

<% End if %>

Home   |   Pictures   |   About Us   |   Contact Us
Copyright © <% Response.Write Year(now) %> Ron Sall Body Werx