<% dim strCmd dim Mailer dim strbody dim SiteParamsEmail dim MailConn dim MailRS dim strSQL dim SendTo dim rsParams dim objConn dim strContactEmail strCmd = Request.Form("cmd").item select case strCmd case "process" ' connect and get e-mail address set objSecure = server.createobject("inetsolution.secure") set objConn = objSecure.Conn set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "select SITETITLE,SITEDOMAIN,CONTACTEMAIL from SITEPARAMS" objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText strSiteTitle = trim(objRS("SITETITLE")) strSiteDomain = trim(objRS("SITEDOMAIN")) ' Send an e-mail to the proper contact person Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = strSiteTitle & " InetActive" Mailer.FromAddress= "webmaster@" & strSiteDomain Mailer.RemoteHost = "relay.inetsolution.com;smtp.inetsolution.com" Mailer.Subject = "A site visitor has sent an inquiry" on error resume next arrEmailAddress = split(trim(objSecure.Conn.execute("select CONTACTEMAIL from SITEPARAMS")(0)),",") on error goto 0 if isarray(arrEmailAddress) then for intA = 0 to ubound(arrEmailAddress) Mailer.AddRecipient "John J. Boyd & Associates, Inc.", arrEmailAddress(intA) next 'intA else Mailer.AddRecipient strSiteTitle & " Contact Form issue(email problem)","webmaster@inetsolution.com" end if objRS.Close set objRS = nothing objConn.Close strbody = "Creation Time: " & Time() & vbCrLf strbody = strbody & "Creation Date: " & Date() & vbCrLf & vbCrLf strbody = strbody & "The following information was submitted through our web site..." & vbCrLf & vbCrLf 'strbody = strbody & "The following information was received." & vbCrLf & vbCrLf strbody = strbody & " Name : " & trim(Request.Form("FNAME").item) & " " & trim(Request.Form("LNAME").item) & vbCrLf strbody = strbody & " Company : " & trim(Request.Form("COMPANY").item) & vbCrLf strbody = strbody & " Address : " & trim(Request.Form("ADDRESS").item) & vbCrLf strbody = strbody & " : " & trim(Request.Form("ADDRESS2").item) & vbCrLf strbody = strbody & " City : " & trim(Request.Form("CITY").item) & vbCrLf strbody = strbody & " State : " & trim(Request.Form("STATE").item) & vbCrLf strbody = strbody & " Zip : " & trim(Request.Form("ZIP").item) & vbCrLf strbody = strbody & " Phone : " & trim(Request.Form("PH1").item) & "." & trim(Request.Form("PH2").item)& "." & trim(Request.Form("PH3").item) & vbCrLf strbody = strbody & " E-mail : " & trim(Request.Form("EMAIL").item) & vbCrLf strbody = strbody & " Comment : " & trim(Request.Form("COMMENT").item) & vbCrLf & vbCrLf strbody = strbody & "--- SERVICES SELECTED ---- " & vbCrLf strbody = strbody & " Individual Health Insurance: " & trim(Request.Form("individual").item) & vbCrLf strbody = strbody & " Group Health Insurance : " & trim(Request.Form("group").item) & vbCrLf strbody = strbody & " Retirement Planning : " & trim(Request.Form("retirement").item) & vbCrLf strbody = strbody & " Life & Disability Insurance: " & trim(Request.Form("life").item) & vbCrLf Mailer.BodyText = strbody if not Mailer.SendMail then strError = Mailer.Response session("strMessage") = session("strMessage") & "
A problem occured while trying to send a message to InetSolution.
Please notify us by sending a message to dnsadmin@inetsolution.com." session("strMessage") = session("strMessage") & "
" & strError & "" else Response.Redirect("submission-success.asp") end if case else end select %> John J. Boyd & Associates, Inc. - Contact Us

We’d like to hear from you!

The John J. Boyd and Associates team values relationships. We believe personal assistance is the best way to get what you need.

Contact us for any assistance or information you need to help answer your questions. Or, just stop by our office.

John J. Boyd and Associates, Inc.
45174 Cass Avenue
Utica, MI 48317
View at MapQuest (in new window)

586-314-3400 (Phone)
586-314-3405 (Fax)

Contact Us

<%=session("strMessage")%>
Your contact information
How may we contact you?
(555) 555-1212 x203
rmahoney@somedomain.com
Which services are you interested in?
Tell us how we can help you:

Our friendly staff is ready to assist you.

John J. Boyd

Diane Hardin

Lani Wheatley

Tracy Shippy

Anne Lewis

Driving directions:

Take M-59 to Van Dyke Ave. One block west of Van Dyke head north on Cass Ave. Our building is two blocks north on the corner of Summers Street. For detailed directions from your location, please visit MapQuest.