<% Function isEmailValid(email) Set regEx = New RegExp regEx.Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w{2,}$" isEmailValid = regEx.Test(trim(email)) End Function If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then SenderName = Request.Form("name") SenderEmail = Request.Form("emailaddress") SenderState = Request.Form("state") SenderZip = Request.Form("zipcode") SenderPhone = Request.Form("phone") ContactByEmail = Request.Form("ContactByEmail") ContactByPhone = Request.Form("ContactByPhone") Message = Request.Form("message") Disclaimer = Request.Form("disclaimer") If Not isEmailValid(SenderEmail) Then errMessage = "Please provide a valid email address." Elseif Disclaimer <> "yes" Then errMessage = "You must acknowledge that you have read the disclaimer." End If If Len(errMessage) = 0 Then MailBody = "" MailBody = MailBody & "
" MailBody = MailBody & "

" MailBody = MailBody & "

" MailBody = MailBody & "

Message from mshlegal.com

" MailBody = MailBody & "

From:
" MailBody = MailBody & SenderName & "

" If ContactByPhone = "Yes" Then MailBody = MailBody & "

Phone (preferred):
" Else MailBody = MailBody & "

Phone:
" End If MailBody = MailBody & SenderPhone & "

" If ContactByEmail = "Yes" Then MailBody = MailBody & "

Email (preferred):
" Else MailBody = MailBody & "

Email:
" End If MailBody = MailBody & SenderEmail & "

" MailBody = MailBody & "

State & Zip:
" MailBody = MailBody & SenderState & " " & SenderZip & "

" MailBody = MailBody & "

Message:
" MailBody = MailBody & Message & "

" 'Write IP Address & Time Stamp into Email body MailBody = MailBody & "
" MailBody = MailBody & "
" & Request.ServerVariables("REMOTE_ADDR") & "
" MailBody = MailBody & "
" Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Findlaw FirmSite Message From SiteDomain : Contact" objMessage.From = SenderName & " <" & SenderEmail & ">" objMessage.To = "mhoward@mshlegal.com" objMessage.CC = "joni@mshlegal.com" objMessage.HTMLBody = MailBody '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.epolk.net" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mshlegal.relay@epolk.org" 'Your password on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "llWxp%7w" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send Set objMessage = Nothing Response.Redirect("Thank-You.shtml") End If End If %> Contact | Mark S. Howard, P.A. | Tampa, Florida onload="document.getElementById('intakeFormIName').focus();"<% End If %>>

Contact

Contact Mark S. Howard, P.A.

Attorney Mark Howard is an AV* rated attorney and experienced trial lawyer based in Tampa, Florida. Since 1988 he has represented individuals and small businesses with a wide variety of matters and today is focused on family law and commercial litigation.

At our law firm we believe in being efficient as well as effective and work toward accomplishing your legal goals while keeping the net result in mind at all times.

At Mark S. Howard, P.A., we offer free initial consultations. It is our goal to consult as long as necessary to: develop a comfortable attorney/client relationship; gain a clear understanding of our clients' legal issue and potential options; and enable our clients to make an informed decision about retaining our services.

We welcome your phone call or e-mail to discuss your legal need.

Bold labels and This graphic indicates a required field. indicate required information.

<% If Len(errMessage) > 0 Then Response.Write("

" & errMessage & "

") End If %>
Personal Information
Contact Preferences

How would you like to be contacted?
Check all that apply.

How Can We Help You?

The use of the Internet or this form for communication with the firm or any individual member of the firm does not establish an attorney-client relationship. Confidential or time-sensitive information should not be sent through this form.

Privacy Policy

Mark S. Howard, P.A.
400 N Tampa Street, Suite 1100
Tampa, FL 33602
Phone: 813-282-3563
mhoward@mshlegal.com
Map and Directions

*AV Preeminent and BV Distinguished are certification marks of Reed Elsevier Properties Inc., used in accordance with the Martindale-Hubbell certification procedures, standards and policies. Martindale-Hubbell is the facilitator of a peer review rating process. Ratings reflect the confidential opinions of members of the bar and the judiciary. Martindale-Hubbell ratings fall into two categories: legal ability and general ethical standards.