<% thisAction = request.Form("action") if thisAction = "send" then thisName = request.form("Name") thisEmail = request.form("Email") thisPhone = request.form("Phone") thisComments = request.form("Comments") 'Send confirmation email Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.mosaicmedia.com" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "relay@mosaicmedia.com" .Item(cdoSendPassword) = "relay1!" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig x_message = "

You have received a message sent through the website

" x_message = x_message & "Name: " & thisName & "
" x_message = x_message & "Email: " & thisEmail & "
" x_message = x_message & "Phone: " & thisPhone & "
" x_message = x_message & "Comments / Question: " & thisComments & "
" With objMessage .To = "ronaldjbajorek@yahoo.com" .From = "Ronald Bajorek Website" .Subject = "Contact From Website" .htmlBody = x_message .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing messagesent = 1 end if %> Ronald J. Bajorek & Associates | Divorce/Family Law Specialists
187 South Old Woodward Avenue
Suite 250
Birmingham, Michigan 48009
Call Today (248) 540-3800
Divorce / Family Law Specialists
Ronald J. Bajorek
& Associates

Contact Us

<% if messagesent = 1 then %>

Thank you. Your message has been received.
<% end if %>

Ronald J. Bajorek & Associates
187 South Old Woodward Avenue
Suite 250
Birmingham, Michigan 48009
(248) 540-3800 

Name

Email

Phone

Question / Comments


Ronald J. Bajorek
187 South Old Woodward Avenue
Suite 250
Birmingham, Michigan 48009
Call Today (248) 540-3800
Located in the historic Birmingham Theatre Office Building 1 block south of Maple, in the heart of downtown Birmingham.

Providing comprehensive divorce representation throughout Michigan including cities of Bloomfield Hills, Birmingham, West Bloomfield, Franklin, Bingham Farms, Beverly Hills, Huntington Woods, Troy, Rochester, Rochester Hills, Novi, Southfield, Royal Oak, Farmington Hills, Clarkston, Livonia, Canton, Plymouth, Northville, Commerce, Milford, Brighton, Grosse Pointe, Sterling Heights, Bloomfield Twp., Shelby Twp., Macomb, Ann Arbor, Lake Orion, Oakland County, Wayne County, Macomb County, Washtenaw County and Livingston County among others.

Have a Question?

Name

Email

Question