<%@ Language=VBScript %> <% 'Option Explicit %> <% Response.Buffer=true %> <% 'Contact Us Form Display Program: Contact_Us.asp %> <% 'Mailer Form Program: Contact_Us.asp %> <% on error resume next If Request( "entry" ) = "true" Then on error resume next 'Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'Mailer.RemoteHost = "mail.ravenservices.us" lcName = Request("visitor_name") lcPhon = Request("phone_number") lcAddy = Request("visitor_email_address") lcSubj = Request("choose_topic") lcDept = Request("department_needed") Set objMailer = CreateObject("CDONTS.NewMail") objMailer.To = "Customer Care" If (len(lcName)>0 and len(lcPhon)>0 and len(lcAddy)>0 and len(lcSubj)>0 and len(lcSubj)<>12 and len(lcDept)>0 and len(lcDept)<>17) Then 'Mailer.FromName = "Contact Us Web Form" 'Mailer.FromAddress = "Erik@RavenServices.us" 'Mailer.Subject = lcSubj objMailer.Subject = lcSubj objMailer.From = "Contact Us Web Form" If lcdept = "Human Resources" Then objMailer.BCC = "Human Resources," 'Mailer.AddRecipient "Human Resources","HumanResources@RavenServices.us" ElseIf lcdept = "Marketing" Then 'Mailer.AddRecipient "Marketing","Marketing@RavenServices.us" objMailer.BCC = "Marketing," ElseIf lcdept = "Accounting" Then 'Mailer.AddRecipient "Accounting","Accounting@RavenServices.us" objMailer.BCC = "Accounting," Else 'Mailer.AddRecipient "Marketing","Marketing@RavenServices.us" End If 'For Testing 'Mailer.AddRecipient "Erik","Erik@eRasch.com" strMsgHeader = "Raven Services Web Contact Us Form information follows:" & vbCRLF strMsgHeader = strMsgHeader & "Form processed: " & now() & "(GMT)" & vbCRLF For i = 1 to Request.form.Count strMsgInfo = strMsgInfo & Request.form.Key(i) & " - " & Request.form.Item(i) & vbCrLf Next 'Mailer.BodyText = strMsgHeader & strMsgInfo 'Mailer.SendMail objMailer.Body= strMsgHeader & strMsgInfo objMailer.Send set objMailer=nothing ' Mail True (All required fields filled in) Mail = 1 Else ' Mail False (Form submitted but not all required fields filled in) Mail = 0 End If Set Mailer = Nothing End If %> Contact Raven Services Corporation
Raven Services Corporation "Performance and Solution as Promised" Email & Login
HomeAbout Raven ServicesCorporate NewsContact UsEmploymentHuman Resources
eMail Login
   
Contact Us
FAQ
Search
Legal Information
Privacy Policy
 
 
   
         

<%on error resume next If Request( "entry" ) = "true" Then If Mail = 1 Then Response.Write "

Thank you for your submission.

You will be redirected shortly.

" Response.Write "" ElseIf Mail = 0 Then Response.Write "

Attention ! !

The following information is needed to process your request:

* First & Last Name
* My Email Address
* My Daytime Phone Number
* Your Topic
* Department Needed

Please provide the required information so we can process your request in a timely manner.

" 'Response.Write "" End If Else Response.Write "

We respect your privacy. Raven will use the information you provide to communicate with you and provide information about product and services. Also, if you have any technical questions, problems or issues, please feel free to contact us. Read about online privacy at Raven Services Corporation.

" Response.Write "

Corporate Headquarters" Response.Write "


" Response.Write "

Raven Services Corporation
9200 Church Street, Suite 203
Manassas, VA 20110
Phone: 703.368.8611
Fax: 703.368.8450

" Response.Write "

*Indicates a Required Field

" End If %> <% IF mail <> 1 Then %>
Mr. Mrs. Ms. Dr.
*First Name *Last Name
Address  
City State
Zip Country
*My Email Address
*My Daytime Phone Number
Your Company

*Your Topic
*Department Needed
Contact Preference
   
I would like a Raven representative to contact me about:

 

<% End If %>
 


Contract GS-06F-0051P

Click on this link to visit our GSA Schedule contract information and pricing.

 
       
       
  Prince William County  
       
     
       
           
© 2011 Raven Services Corporation. All Rights Reserved.
"Performance and Solutions as Promised"