Condor Request for Info Page

<% @Language="VBScript" %> <% ErrorMessage = "" ' Check to see if we are displaying the form or processing it If Request("SubmitButton") <> "" Then ProcessRequest() End If %> Condor Request for Info Page

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

<% 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 = "info@condorac.com" oMail.From = "viki@condorac.com" oMail.Subject = "Condor 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 %>