BROWN LEGAL GROUP ::: GENERAL PRACTICE

Brown Legal Group

382, Avenue John Brown
Haut Bourdon Route Petion-Ville.
Port-au-Prince, HAITI

P.O BOX: 2048, P-A-P, HAITI

Toll free: 1866 210 5279 (USA & CAN)

Telephone: (509) 446-6612 / (509) 710-9331

FAX:     (305) 402-0114

E-MAIL:         info@brownlegalgroup.com
                     ...........................................

<% If Request("submit") <> "" Then dim errors(4) errored = false if request("name") = "" then errors(0) = "Please enter your name" errored = true end if if request("email") = "" then errors(1) = "Please enter your email address" errored = true end if if request("email") <> "" and not IsEmail(request("email")) then errors(1) = "Your email address appears to be invalid" errored = true end if if request("subject") = "" then errors(2) = "Please enter a subject" errored = true end if if request("message") = "" then errors(3) = "Please enter a message" errored = true end if if not errored then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = mailHost message = replace(request("message"), VbCrLf, "
") message = clearUnSafeTags(message) subject = clearUnSafeTags(request("subject")) name = clearUnSafeTags(request("name")) email = clearUnSafeTags(request("email")) emailHtml = "

" emailHtml = emailHtml & "

The following submission was made on the " & date & " at " & time & "

" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" if request("rating") <> "" then emailHtml = emailHtml & "" end if emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "

Name	" & name & "
Email	" & email & "
Subject	" & subject & "
Site Rating	" & request("rating") & "
Message	" & message & "
IP	" & request.serverVariables("REMOTE_ADDR") & "
User Agent	" & request.serverVariables("HTTP_USER_AGENT") & "

" emailHtml = emailHtml & "

" Mail.From = email Mail.FromName = name Mail.AddAddress adminEmailAddress Mail.Subject = subject Mail.Body = emailHtml Mail.IsHTML = true success = false On Error Resume Next Mail.Send if Err <> 0 then errors(4) = Err.Description errored = true else success = true end if end if end if if success then thankYouMessage = Replace(thankYouMessage, "%name%", name) thankYouMessage = Replace(thankYouMessage, "%email%", email) thankYouMessage = Replace(thankYouMessage, "%subject%", subject) thankYouMessage = Replace(thankYouMessage, "%message%", message) response.write(thankYouMessage) else if errored then response.write("

") response.write(errorMessage) response.write("

" & errors(i) & "

") response.write("

") end if %> <% end if %>

<% end if %>