 |
|
CONTACT INFORMATION
<%
Select Case strPage
'---------------------------------------------------------------------------------------------------
' Case Mailer Failed
'---------------------------------------------------------------------------------------------------
Case "Failed"
%>
<%
'---------------------------------------------------------------------------------------------------
' Case Try to send the mail
'---------------------------------------------------------------------------------------------------
Case "SendMail"
DIM sHTML
sHTML = "Information sent from www.ilworkerscomp.com "
sHTML = sHTML & "do not hit reply it will not work ... use data below to contact customer
"
sHTML = sHTML & "Date sent: "&Request.Form("date")&"
"
sHTML = sHTML & "Client Information: "&Request.Form("Name")&" "
sHTML = sHTML & Request.Form("Address")&" "
sHTML = sHTML & Request.Form("City")&", "&Request.Form("MyState")&" "&Request.Form("Zip")&"
"
sHTML = sHTML & "D.O.B.: "&Request.Form("bmonth")&"/"&Request.Form("bday")&"/"&Request.Form("byear")&"
"
sHTML = sHTML & "Phone: ("&Request.Form("AreaCode")&")"&Request.Form("Phone")&" "
sHTML = sHTML & "Cell Phone: ("&Request.Form("CellAreaCode")&")"&Request.Form("CellPhone")&"
"
sHTML = sHTML & "Email: "&Request.Form("EmailAddress")&"
"
sHTML = sHTML & "Currently working: "&Request.Form("radioWorking")&" "
sHTML = sHTML & "Date of last employment: "&Request.Form("emonth")&"/"&Request.Form("eday")&"/"&Request.Form("eyear")&" "
sHTML = sHTML & "Position at old job: "&Request.Form("oldJob")&" "
sHTML = sHTML & "Date became disabled: "&Request.Form("dmonth")&"/"&Request.Form("dday")&"/"&Request.Form("dyear")&" "
sHTML = sHTML & "Has applied for SS Diablility: "&Request.Form("radioApplied")&" "
If Request.Form("radioApplied") = "yes" Then
sHTML = sHTML & "Date has applied: "&Request.Form("SSmonth")&"/"&Request.Form("SSday")&"/"&Request.Form("SSyear")&" "
End If
sHTML = sHTML & "What stage is the claim: "&Request.Form("stage")&" "
sHTML = sHTML & "Currently seeing a doctor: "&Request.Form("radioDoctor")&"
"
sHTML = sHTML & "other information: "&Request.Form("moreInfo")&" "
sHTML = sHTML & " "
'Response.Write sHTML
'Response.End
call SendMail("info@ilworkerscomp.com", "info@ilworkerscomp.com", "", "abginc@aol.com", "||| website contact form |||", sHTML, true, false)
' ENABLE TO TEST
' call SendMail("info@ilworkerscomp.com", "marekk@americaneagle.com", "", "", "||| website contact form |||", sHTML, true, false)
' DIM objMail
' Set objMail = Server.CreateObject("CDO.Message")
' with objMail
' .From = "info@ilworkerscomp.com"
' .To = "info@ilworkerscomp.com"
'.To = "abginc@aol.com"
' .Bcc = "abginc@aol.com"
' .Subject = "||| website contact form |||"
' .HTMLBody = sHTML
' .Send()
' End With
' Set objMail = Nothing
Response.Redirect(strURL&"?page=ThankYou")
'--------------------------------------------------------
'---------------------------------------------------------------------------------------------------
' Case THANK YOU!
'---------------------------------------------------------------------------------------------------
Case "ThankYou"
%>
<%
'---------------------------------------------------------------------------------------------------
' Case ELSE
'---------------------------------------------------------------------------------------------------
Case else
%>
LAW OFFICE OF ROBERT B. WILLIAMS
33 North LaSalle Street
Suite 2119
Chicago, Illinois 60602
312.782.9400
312.444.9400 fax
info@ilworkerscomp.com
rbw@ilworkerscomp.com
Location Map
<%
End Select
%>
|