<% if request.totalbytes > 0 And request.servervariables("HTTP_CONTENT_TYPE") = "application/x-www-form-urlencoded" then '************************ '****************Header '************************ '************************ '***Sends the Email '************************ SUB sendmail( fromWho, toWho, Subject, Body ) Dim objCDO Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = fromWho objCDO.To = toWho objCDO.Subject = Subject objCDO.TextBody = Body objCDO.Send END SUB fromWho = "website@masterscapes.com" toWho = "estimates@masterscapes.com" Subject = "Estimate Request" '************************ '***Collect the values '***in the form '************************ ms_firstname = TRIM(Request.Form("ms_firstname")) ms_lastname = TRIM(Request.Form("ms_lastname")) ms_address = TRIM(Request.Form("ms_address")) ms_city = TRIM(Request.Form("ms_city")) ms_email = TRIM(Request.Form("ms_email")) ms_phone = TRIM(Request.Form("ms_phone")) ms_propertyCare = TRIM(Request.Form("ms_propertyCare")) ms_landscapeDesign = TRIM(Request.Form("ms_landscapeDesign")) ms_turfmanagement = TRIM(Request.Form("ms_turfmanagement")) ms_comments = TRIM(Request.Form("ms_comments")) Body = Body & "NAME : " & ms_firstname & " " & ms_lastname & vbCrLf & vbCrLf Body = Body & "ADDRESS : " & ms_address & vbCrLf & vbCrLf Body = Body & "CITY : " & ms_city & vbCrLf & vbCrLf Body = Body & "EMAIL : " & ms_email & vbCrLf & vbCrLf Body = Body & "PHONE : " & ms_phone & vbCrLf & vbCrLf Body = Body & "COMMENTS : " & vbCrLf & ms_comments & vbCrLf & vbCrLf Body = Body & "SERVICES INTERESTED IN : " & vbCrLf & ms_propertyCare & vbCrLf & ms_landscapeDesign & vbCrLf & ms_turfmanagement If toWho <> "" THEN sendMail fromWho, toWho, Subject, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing END IF end if %> MasterScapes
Request an Estimate
<% if request.totalbytes > 0 And request.servervariables("HTTP_CONTENT_TYPE") = "application/x-www-form-urlencoded" then %>

Your information has been recieved. We will contact you shortly.

<% else %>

Thank you for your interest in MasterScapes. If you'd like more information, please submit
the required fields. We will respond to you by the next business day.

*First Name

*Last Name

*Address

*City

*Email Address

*Phone Number

Services

 Property Care
 Landscape and Design
 Sports Turf Management

Comment
 
<% end if %>