<% session("realname")=request("realname") session("lastname")=request("lastname") session("email")=request("email") session("company")=request("company") session("Business_Type")=request("Business_Type") session("address")=request("address") session("city")=request("city") session("state")=request("state") session("zipcode")=request("zipcode") session("country")=request("country") session("codearea")=request("codearea") session("phone")=request("phone") if trim(request("realname"))="" or trim(request("lastname"))="" or trim(request("email"))="" or trim(request("company"))="" then session("message")="You forgot to fill out any required fileds" response.redirect("contact.asp") else session.Abandon() str="Customer Information:
Realname:"&request("realname")&"
Last Name:"&request("lastname")&"
E-mail Address:"&request("email")&"
Company:"&request("company")&"
Type of Business:"&request("Business_Type")&"
Address:"&request("address")&"
City:"&request("city")&"
State:"&request("state")&"
Zip Code:"&request("zipcode")&"
Country:"&request("country")&"
Phone:"&request("codearea")&" "&request("phone")&"
" Dim objMail1 Set objMail1 = Server.CreateObject("CDONTS.NewMail") objMail1.From = request("email") objMail1.To = "jgoodrich@markhamstreetmedia.com" objMail1.Subject = "A new Contact Request has been received at Markhamstreetmedia.Com from "&request("email") objMail1.Body = str objMail1.MailFormat = 0 objMail1.BodyFormat = 0 objMail1.Send Set objMail1 = Nothing Dim objMail2 Set objMail2 = Server.CreateObject("CDONTS.NewMail") objMail2.From = request("email") objMail2.To = "aholm@markhamstreetfilms.com" objMail2.Subject = "A new Contact Request has been received at Markhamstreetmedia.Com from "&request("email") objMail2.Body = str objMail2.MailFormat = 0 objMail2.BodyFormat = 0 objMail2.Send Set objMail2 = Nothing Dim objMail3 Set objMail3 = Server.CreateObject("CDONTS.NewMail") objMail3.From = request("email") objMail3.To = "kleber@mindspring.com" objMail3.Subject = "A new Contact Request has been received at Markhamstreetmedia.Com from "&request("email") objMail3.Body = str objMail3.MailFormat = 0 objMail3.BodyFormat = 0 objMail3.Send Set objMail3 = Nothing thankyou="Dear "&request("realname")&" "&request("lastname")&"

Thank you very much for submitting your request.

A Markham Street Midia consultant will contact you shortly.

" Dim objResponse Set objResponse = Server.CreateObject("CDONTS.NewMail") objResponse.From = "info@markhamstreetfilms.com" objResponse.To = request("email") objResponse.Subject = "Thank You for Contact Markham Street Media" objResponse.Body = thankyou objResponse.MailFormat = 0 objResponse.BodyFormat = 0 objResponse.Send Set objResponse = Nothing response.Redirect("thankyou.asp") end if %>