<%@ Language=VBScript %> <% Option explicit Response.Buffer=true Response.CacheControl = "Private" Response.Expires=-1 %> <% function displayError(comName, searchURL, errNumber, errSource, errDescription) on error resume next if instr(errDescription, "Server.CreateObject Failed~Invalid ProgID") <> 0 then searchText = errNumber & "+" & server.urlencode("Server.CreateObject Failed Invalid ProgID") else searchText = errNumber & "+" & server.urlencode(errDescription) end if displayError = "" & comName & " Error:
Error Number: " & errNumber & "
Error Source: " & errSource & "
Error Description: " & errDescription & "
More Info
" end function '====================================== ' Sends an email with CDONTS and passes back fail/success function CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, errText, searchURL) on error resume next Dim Mailer Set Mailer = Server.CreateObject("CDONTS.NewMail") if err.number <> 0 then errText = displayError("CDONTS", searchURL, err.Number, err.Source, err.Description) CDONTS_Mailer = false : set Mailer = nothing : err.clear() : err = 0 exit function end if Mailer.To = ToEmail Mailer.From = FromEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.MailFormat = 1 Mailer.BodyFormat = 1 Mailer.Send if err.number <> 0 then errText = displayError("CDONTS", searchURL, err.Number, err.Source, err.Description) CDONTS_Mailer = false : set Mailer = nothing : err.clear() : err = 0 exit function end if Set Mailer = Nothing CDONTS_Mailer = true end function %> <% Dim ContactRs Set ContactRs = Server.CreateObject("ADODB.Recordset") Dim EmailList Set EmailList = New clsContactList '*********** Begin Page Logic ******************* EmailList.GetRequest() 'If TestString(Request("con_id"))=True Then EmailList.ConAbsPaging=False EmailList.ConGroupSize="one" EmailList.ConFunction="any" EmailList.CreateLoadSQL() 'End If %> <% Sub DisplayHTMLHead() End Sub %> <% Sub DisplayMainContent1() Call GetPageContent(cPAGECONTENTHTML) End Sub %> <% Sub DisplayMainContent2() %> <%=WebPage.PageTitle%>
<% if Request.Form("mode") = "send" then Dim sMessage, sFromEmail, sToEmail, sFromName, sToName Dim sSubject, sMailerPath, iMailerPort, sErrText, sSearchURL Dim sResults, sYEResults, sClientResults Dim sDateInfo, sQuestion sDateInfo="On " & WeekdayName(Weekday(DatePart("d",Date()))) & " " & MonthName(DatePart("m",Date())) & " " & Day(DatePart("d",Date())) & ", " & Year(Date()) & " " sMessage = "This Contact Email was sent by http://www.b-rlaw.com/ " & VbCrLf & _ sDateInfo & VbCrLf & _ "Name: " & Request.Form("txtName") & VbCrLf &_ "Email: " & Request.Form("txtEmail") & VbCrLf &_ "Message: " & Request.Form("txtMessageBody") & VbCrLf sFromEmail=Request.Form("txtEmail") sToEmail=EmailList.GetField(EmailList.ConRecsShown, cCONEMAIL) sFromName=" Balisle & Roberson S.C. Website " sToName=" " & EmailList.GetField(EmailList.ConRecsShown, cCONFNAME) & " " & EmailList.GetField(EmailList.ConRecsShown, cCONLNAME) & " " sSubject="Contact Form Email" sMailerPath="mail.b-rlaw.com" 'sMailerPath="mail.216.240.142.188" iMailerPort=25 sErrText="Error!" sSearchURL="contactus_home.asp" sResults=CDONTS_Mailer(sMessage, sFromEmail, sToEmail, sFromName, sToName, sSubject, sMailerPath, iMailerPort, sErrText, sSearchURL) sYEResults=CDONTS_Mailer(sMessage, sFromEmail, "jondagnon@yaharaconsulting.com", sFromName, "Yahara", sSubject, sMailerPath, iMailerPort, sErrText, sSearchURL) sMessage = Null %>

<% If sResults=False Then Response.Write(" There was an error submitting your question. ") Response.Write ("You may use your browsers back button and attempt to submit again, or email us with your question. ") 'Response.Write("sResults=" & sResults & " ") 'Response.Write("searchText=" & searchText & " ") Else 'Response.Write("sResults=" & sResults & " ") Response.Write (" Thank You for submitting your email. ") Response.Write ("We will respond appropriately to your email as soon as possible. ") End If Response.Write (" " & VbCrLf) %>

<% else %>

If you want to send an e-mail to Balisle & Roberson, please complete and submit this form. Please remember to enter an accurate return e-mail address so that we can reply to you. If you would like to direct your e-mail to a particular person at Balisle & Roberson, please indicate his or her name. Please be aware that any e-mail sent to and from Balisle & Roberson is not sent via a secure server and is not encrypted. Name:   Email Address:   Message:

<% End If %> <% End Sub %> <% Set EmailList = Nothing %>