Tell us how to get in touch with you:

Name:
E-mail:
Tel.:
Fax:

Please contact me as soon as possible regarding this matter.

<% quote=chr(34) If(Request("btnSubmitContactUs") <> "") Then Session("CUComments") = request("CUComments") Session("UserName") = request("UserName") Session("UserEMail") = request("UserEMail") Session("UserTel") = request("UserTel") Session("UserFax") = request("UserFax") Session("ContactRequested") = request("ContactRequested") End If If(Request("btnSubmitContactUs") <> "") Then Session("AWFContactUs") = "Date Sent: " + quote + Cstr(Date) + " " + Cstr(Time) + quote + "," + vbCrLf + vbCrLf + _ "Name: " + quote + Session("UserName") + quote + "," + vbCrLf + _ "E-Mail: " + quote + Session("UserEMail") + quote + "," + vbCrLf + _ "Telephone: " + quote + Session("UserTel") + quote + "," + vbCrLf + _ "Fax: " + quote + Session("UserFax") + quote + "," + vbCrLf + _ "Urgent Flag: " + quote + Session("ContactRequested") + quote + "," + vbCrLf + vbCrLf + _ "Comment: " + quote + Session("CUComments") + quote + vbCrLf ' call sendmail("AWF Contact Us","joe.varvara@tristateemployment.com","joe.varvara@tristateemployment.com","AWF Contact Us",Session("AWFContactUs")) ''' call sendmail("AWF Contact Us","joe.varvara@tristateemployment.com","joe.varvara@tristateemployment.com","AWF Contact Us",Session("AWFContactUs")) Call SendTextEmail("AWF Contact Us ", "joe.varvara@tristateemployment.com", "AWF Contact Us", Session("AWFContactUs")) Response.Write ("Your message was successfully sent to American Work Force.") ' Response.Redirect("Payment.ASP") End If %> <% ''' The following function added by Mark Jensen (mjensen@appleone.com) ''' as a replacement for "sendmail()" function below Sub SendTextEmail(sFrom, sTo, sSubject, sMsg) Dim oMail Dim oConfig Dim oFields Set oMail = Server.CreateObject("CDO.Message") Set oConfig = Server.CreateObject("CDO.Configuration") Set oFields = oConfig.Fields oFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" oFields.Update Set oMail.Configuration = oConfig oMail.From = sFrom oMail.To = sTo oMail.Subject = sSubject oMail.TextBody = sMsg oMail.Send() Set oFields = Nothing Set oConfig = Nothing Set oMail = Nothing End Sub Function sendmail(strfromname,strfromaddress,strRecip,strSub,strBodyText) Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.RemoteHost = "mail-fwd.dulles19-verio.com" ' Specify a valid SMTP server, should be for www.a-w-f.com Mail.FromAddress = strfromaddress ' Specify sender's address Mail.FromName = strfromname ' Specify sender's name Mail.AddRecipient "", strRecip ' "Biff","Biff@Me.COM" Mail.Subject = strSub Mail.BodyText = strBodyText if Mail.SendMail then ' Message sent sucessfully response.write ("Your message was successfully sent to American Work Force.") 'Response.Redirect("emailyes.ASP") else ' Message send failure response.write ("Your message was not sent. Please contact American Work Force by telephone.") 'response.write ("The error was: " & Mailer.Response) 'Response.Redirect("emailno.ASP") end if end function %>