Site hosted by Angelfire.com: Build your free website today!
*Indicates required fields
First Name*
Last Name*
Mailing Address
City, State, Zip
Phone Number (INCLUDE AREA CODE)
E-mail Address*
Enquiry*
<% Response.Buffer = True Dim strBody Dim objCDOMail Dim strMyEmailAddress Dim strCCEmailAddress Dim strBCCEmailAddress Dim strReturnEmailAddress strMyEmailAddress = "arproject@hotmail.com" strCCEmailAddress = "mycc@hotmail.com" strBCCEmailAddress = "mybcc@hotmail.com" strReturnEmailAddress = Request.Form("email") strBody = "

E-mail sent from Contact Us Form on Web Site

" strBody = strBody & "
Name: " & Request.Form("firstName") & " " & Request.Form("lastName") strBody = strBody & "

Address: -" If (Request.Form("domain")) > "" Then strBody = strBody & "
" & Request.Form("domain") End If If (Request.Form("account_number")) > "" Then strBody = strBody & "
" & Request.Form("account_number") End If strBody = strBody & "

Telephone: " & Request.Form("tel") strBody = strBody & "
E-mail: " & strReturnEmailAddress strBody = strBody & "

Enquiry: -
" & Replace(Request.Form("enquiry"), vbCrLf, "
") If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Cc = strCCEmailAddress objCDOMail.Bcc = strBCCEmailAddress objCDOMail.Subject = "Enquiry sent from enquiry form on website" objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Body = strBody objCDOMail.Importance = 2 objCDOMail.Send Set objCDOMail = Nothing %>

Thank-you <% = Request.Form("firstName") %>   <% = Request.Form("lastName") %> for filling out the online membership application.

You should expect a confirmation email within a few days.