<% If request("action") = "save" Then sErrorMessage = "" If trim(request("name")) = "" Then sErrorMessage = sErrorMessage & "You must enter your name.
" Else If len(trim(request("name"))) < 4 Then sErrorMessage = sErrorMessage & "Name field must contain more then three characters.
" End If End If If len(trim(request("name"))) > 25 Then sErrorMessage = sErrorMessage & "Name field must contain less then 25 characters.
" End If If trim(request("phone")) = "" Then sErrorMessage = sErrorMessage & "You must enter your phone number.
" Else If len(trim(request("phone"))) < 9 Then sErrorMessage = sErrorMessage & "phone number must contact area code
" End If End If If len(trim(request("phone"))) > 16 Then sErrorMessage = sErrorMessage & "Phone field must contain less then 15 characters.
" End If If len(trim(request("cellphone"))) > 16 Then sErrorMessage = sErrorMessage & "Cellphone field must contain less then 13 characters.
" End If If len(trim(request("inquiry"))) > 1000 Then sErrorMessage = sErrorMessage & " field must contain less then 1000 characters.
" End If IF trim(request("email")) <> "" AND inStr(trim(request("email")),"@") <> 0 AND inStr(trim(request("Email")),".") <> 0 THEN Else If trim(request("email")) = "" Then sErrorMessage = sErrorMessage & "You must enter your email address.
" ElseIf inStr(trim(request("email")),"@") = 0 OR inStr(trim(request("email")),".") = 0 Then sErrorMessage = sErrorMessage & "You must enter a valid email address.
" End If End If If len(trim(request("email"))) < 10 Then sErrorMessage = sErrorMessage & "Bad Email Address
" End If If trim(request("llname")) <> "10" Then sErrorMessage = sErrorMessage & "You must enter the correct Security Code value.
" End If If sErrorMessage = "" Then DIM strEmail '### ############################################ ### ' change to address of your own SMTP server ' ### Replace with SMTP Server address ### strHost = "mail.verityinternet.net" ' ### Enter form filed names for each field of the form ### strname = Request("name") stremail = Request("email") strphone = Request("phone") strcellphone = Request("cellphone") strinquiry = Request("inquiry") '### Check to see if the field was filled out if not replace with " Not Provided" ### 'IF stremail <> "" AND strname <> "" THEN ' Process the form as you like here ' For example enter form to your database or send it via email Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = "postmaster@beaverheating.com" ' From Email address information Mail.AddAddress "info@beaverheating.com" ' Form Recipient ' message subject Mail.Subject = "Contact Request" ' message body Mail.Body = Mail.Body &"Contact Request" & vbcrlf Mail.Body = Mail.Body &"Contact Form" & vbcrlf Mail.Body = Mail.Body &" " & vbcrlf Mail.Body = Mail.Body &"Name: " & strname & vbcrlf Mail.Body = Mail.Body &"Email: " & stremail & vbcrlf Mail.Body = Mail.Body &"Phone: " & strphone & vbcrlf Mail.Body = Mail.Body &"Cell Phone: " & strcellphone & vbcrlf Mail.Body = Mail.Body &"Inquiry: " & strinquiry & vbcrlf strErr = "" bSuccess = False Mail.Queue = True Mail.Send If Err <> 0 Then strErr = Err.Description Else bSuccess = True response.redirect "thank_you.html" End If End If End If %> Contact US - Noblesville | Beaver Heating & Air Conditioning

PLEASE, ASK US A QUESTION OR REQUEST AN APPOINTMENT

Please type any questions here and include your e-mail address and we will be happy to get back with you. You may also ask to schedule a service call. Simply list your name, address, phone number and a date that you would like to have us arrive and we will call you to discuss your need and to confirm your appointment.

Thankyou


NOTE: Items with (*) must be completed.

Name:

  " /> *

Phone Number:

  " /> * (000 000 0000)   Cell Number:   " /> (000 000 0000)

Email Address:

  " /> *

Please ask your question here:

Please enter the answer of 20 minus 10.

"/>