CECMD - Conductive Education Michigan

<% if request.form("NAME") <> "" then dim objNewMail dim strBodyContent Set objNewMail = Server.CreateObject("Persits.MailSender") strBodyContent = "Email From CECMD.com Contact Page!" & vbcrlf & vbcrlf strBodyContent = strBodyContent & "Name : " strBodyContent = strBodyContent & request.form("NAME") & vbcrlf strBodyContent = strBodyContent & "Phone : " strBodyContent = strBodyContent & request.form("PHONE") & vbcrlf strBodyContent = strBodyContent & "City : " strBodyContent = strBodyContent & request.form("CITY") & vbcrlf strBodyContent = strBodyContent & "State : " strBodyContent = strBodyContent & request.form("STATE") & vbcrlf 'strBodyContent = strBodyContent & "Zip : " 'strBodyContent = strBodyContent & request.form("ZIP") & vbcrlf strBodyContent = strBodyContent & "Email : " strBodyContent = strBodyContent & request.form("EMAIL") & vbcrlf strBodyContent = strBodyContent & "Comments : " strBodyContent = strBodyContent & request.form("COMMENTS") & vbcrlf on error resume next with objNewMail .Host = "EXCHANGE" .From = request.Form("email") .mailfrom = "mailengine@viscon.com" .addaddress "info@cecmd.com" .subject = "Email From CECMD.COM Contact us Page" .body = strBodyContent .username = "mailengine" .password = "viscon" .send end with If Err <> 0 Then Response.Write "Error encountered: " & Err.Description response.end end if set objNewMail = nothing response.clear response.redirect "index.asp " end if %> CECMD - Conductive Education Michigan - Contact Us

Home - About Us - How to Help - Links - Pictures - Bios - Events - Parents

Visit Our Message Board

Conductive Education Center of Metro Detroit
P.O. Box 7083
Sterling Heights, MI 48331-7083
phone: 586-786-5535 fax: 586-786-9935
e-mail: info@cecmd.com

To Contact Us, Please Fill Out This Form and Press Submit

Please fill in all fields marked with a *

Name *
Phone *
City *
State *
Email *
Comments *