%
dim submit, strError, CdoBodyFormatHTML, CdoMailFormatMime
select case request("action")
case "submit"
if (request("name") <> "" and request("phone") <> "" and request("email") <> "") then
submit = "1"
else
submit = "0"
strError = "Please fill in the following information: "
if request("name") = "" then strError = strError & "Please enter your name. "
if request("phone") = "" then strError = strError & "Please enter your phone number. "
if request("email") = "" then strError = strError & "Please enter your email address. "
end if
if submit = "1" then
dim objCDOMail
set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = request("email")
objCDOMail.To = "info@rcimino.com"
objCDOMail.Subject = "Contact From rcimino.com"
dim strBody
strBody = ""
strBody = "
"
strBody = strBody & "
Name:
" & request("name") & "
" & vbcrlf
strBody = strBody & "
Phone:
" & request("phone") & "
" & vbcrlf
strBody = strBody & "
Email:
" & request("email") & "
" & vbcrlf
strBody = strBody & "
Message:
" & request("message") & "
" & vbcrlf
strBody = strBody & "
"
objCDOMail.Body = strBody
objCDOMail.BodyFormat = CdoBodyFormatHTML
objCDOMail.MailFormat = CdoMailFormatMime
objCDOMail.Send
set objCDOMail = nothing
end if
end select
%>
Richard Cimino| Attorney Real Estate, Probate, Transactions, Litigation. Naples, Bonita Springs, Ft. Myers, Florida.
<% if submit = "1" then %>
Thanks for expressing an interest
in The law offices of Richard D. Cimino. Your message
has been successfully sent
<% else %>
<% end if %>
Submission
of this contact form does not create an attorney-client
relationship between Richard
Cimino and you or your company.