Request for Information

Please tell us what you think about our web site, company, products, or services. If you provide us with your contact information, we will be able to reach you in case we have any questions.

Comments

Category

 
   

Contact Information

Name
Title
Company
Address
City
Province/State
Postal/Zip Code
Country
Telephone
Fax
E-mail

 

  

| home | contact us | site map |
copyright (2005) Custom Electric Ltd.               website by CanadaWeb Inc.
<% Sub ProcessRequest ' If we got here then everything is okay ' Built the e-mail to be sent Body = "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "Condor Web Site: Information Request Submission

" & vbNewLine & vbNewLine If Request("Category") <> "" Then Body = Body & "Category: " & Request("Category") & "

" & vbNewLine End If If Request("Name") <> "" Then Body = Body & "Name: " & Request("Name") & "

" & vbNewLine End If If Request("Title") <> "" Then Body = Body & "Title: " & Request("Title") & "

" & vbNewLine End If If Request("Company") <> "" Then Body = Body & "Company: " & Request("Company") & "

" & vbNewLine End If If Request("Address") <> "" Then Body = Body & "Address: " & Request("Address") & "

" & vbNewLine End If If Request("City") <> "" Then Body = Body & "City: " & Request("City") & "

" & vbNewLine End If If Request("Province") <> "" Then Body = Body & "Province/State: " & Request("Province") & "

" & vbNewLine End If If Request("PostalCode") <> "" Then Body = Body & "Postal/Zip Code: " & Request("PostalCode") & "

" & vbNewLine End If If Request("Country") <> "" Then Body = Body & "Country: " & Request("Country") & "

" & vbNewLine End If If Request("Telephone") <> "" Then Body = Body & "Telephone: " & Request("Telephone") & "

" & vbNewLine End If If Request("Fax") <> "" Then Body = Body & "Fax: " & Request("Fax") & "

" & vbNewLine End If If Request("EMail") <> "" Then Body = Body & "EMail: " & Request("EMail") & "

" & vbNewLine End If If Request("Address1") <> "" Then Body = Body & "Address 1: " & Request("Address1") & "

" & vbNewLine End If If Request("Comments") <> "" Then Body = Body & "Comments:
" & vbNewLine & Request("Comments") & "

" & vbNewLine End If ' Send the e-mail Set oMail = Server.CreateObject("CDONTS.NewMail") oMail.To = "ryan@customelectric.com" oMail.From = "reqinfo@customelectric.com" oMail.Subject = "Custom Electric Web Site: Information Request Submission" oMail.BodyFormat = 0 oMail.MailFormat = 0 oMail.Body = Body oMail.Send Set oMail = Nothing ' Redirect user to success message Response.Redirect("ReqInfoCompleted.html") End Sub %>