|
Contact Klezmer Maudlin
<% If Request("submitform") <> "yes" Then%>
Every Worker's Compensation case is different. Let us answer your case specific
questions and assist you in receiving the compensation you need and deserve.
Please complete our FREE Case Evaluation form and one of our attorneys or our case manager will review your case and contact
you within hours via phone and or email within 24 hours.
- While you do not have to fill-out all fields, the more
information you provide, the better we can help you and answer
your questions.
|
<%
Else
Name = request.form("name")
Address = request.form("Address")
City = request.form("City")
State = request.form("State")
zip = request.form("zip")
email = request.form("email")
phone = request.form("phone")
CaseDescription = request.form("CaseDescription")
If name = "" then
process = "n"
errmsg = errmsg & "Please provide us with your Name. "
end if
If phone = "" or phone = "Phone" then
process = "n"
errmsg = errmsg & "Please provide us with your phone number. "
end if
If CaseDescription = "" then
process = "n"
errmsg = errmsg & "Please provide us with your question or details of your case. "
end if
'check phone number
temptel = phone
For I = 1 To Len(temptel)
strCurrentChar = Mid(temptel, I, 1)
' Numbers (0 to 9)
If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then
strTemp = strTemp & strCurrentChar
End If
'Upper Case Chars (A to Z)
If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then
strTemp = strTemp & strCurrentChar
End If
Next 'I
if not isnumeric(strTemp) OR len(strTemp) < 7 then
process = "n"
errmsg = errmsg & "Please enter a valid numeric telphone number "
end if
'if not isvalidemail(email) then
' process = "n"
' errmsg = errmsg & "Please enter a valid email address. "
'end if
if process <> "n" then
'****************************************************
' Customize this section
'****************************************************
' email SMTP server
emailserver = "relay-hosting.secureserver.net"
' email address to where you want this form submitted
emailto = "RKlezmer@randyklezmer.com"
'emailto = "laurie@legalmarketingpros.com"
' subject of email
subject = "Website Request: RandyKlezmer.com"
'****************************************************
'Send email (CDOSYS version).
emailbody = "You have received a request for information from the RandyKlezmer.com website!"
emailbody = emailbody & " Below are the details of the request:" & "
"
emailbody = emailbody & "Name: " & Name & "
"
emailbody = emailbody & "Address: " & Address & "
"
emailbody = emailbody & "Address2: " & City & ", " & state & " " & zip & "
"
emailbody = emailbody & "Telephone: " & phone & "
"
emailbody = emailbody & "Email: " & Email & "
"
emailbody = emailbody & "Question or Comment: " & CaseDescription & "
"
set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = emailserver
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
if email <> "" then
cdoMessage.From = EMail
else
cdoMessage.From = emailto
end if
cdoMessage.To = emailto
cdoMessage.Subject = subject
cdoMessage.HtmlBody = emailbody
on error resume next
cdoMessage.Send
if Err.Number <> 0 then
SendMail = "Email send failed: " & Err.Description & "."
end if
set cdoMessage = Nothing
set cdoConfig = Nothing
end if
'Redirect back to page
'response.redirect "eval.asp?mx=true&Ex=0"
'response.write BodyMessage
%>
Thank you for contacting Randy Klezmer and Associates. Your message has been received. Randy
Klezmer or our case manager will review your case and contact you via phone and/or by email within 24 hours.
<%
End If
%>
|