<% displayMenu true,true,true,true,true,true,true dim task : task = Request.QueryString("task") dim ref : ref = ucase(request.ServerVariables("Http_referer")) if task = "send" then fName = Request.Form("contactName") msg = Request.Form("contactMessage") email = Request.Form("contactEmail") phone = Request.Form("contactPhone") finalMsg = "Thank you.
" finalMsg = finalMsg & "
Your message has been sent successfully." if instr(ref,"ENTIRELANDSCAPES") < 1 then finalMsg = "Sorry, an error has occured please phone 905.629.2583 for comments or suggestions.

" error = true end if if len(msg) > 500 then finalMsg = "We're sorry, your message is too long please reduce your message by " & len(msg) - 500 & " characters. RETURN" error = true end if if len(msg) < 4 then finalMsg = "We're sorry, you must specify a message to send. RETURN" error = true end if dim mail,fname,msg,sFrom,sTo,sCC,sBCC,sSubject,sBody,email,phone if not error then sFrom = "WebRequest@entirelandscapes.com" sTo = "myfriendlee@rogers.com" 'sTo = "eric@myfriendlee.com" 'sTo = "del@entirelandscapes.com" 'sCC = "nomadlee@hotmail.com" sBCC = "eric@myfriendlee.com" sSubject = "Web Request" sBody = sBody & "" sBody = sBody & "" sBody = sBody & "" sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & "
" sBody = sBody & " " sBody = sBody & "
" sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & " " sBody = sBody & "
" sBody = sBody & "

Web Message

" sBody = sBody & " Sent: " & formatdatetime(now(),1) & "
" if len(phone) > 1 then sBody = sBody & "Phone: " & phone & "
" end if if len(fName) > 1 then sBody = sBody & "Message Sent By: " & fName & "
" end if sBody = sBody & " Email: " & email & "
" sBody = sBody & " Message:

" & replace(Msg,chr(13),"
") & "


" sBody = sBody & "
" sBody = sBody & "
" sBody = sBody & "
" sBody = sBody & "" sBody = sBody & "" 'response.Write sBody 'response.End 'Response.Write typename(mail) set mail = server.CreateObject("CDO.Message") mail.To = sTo 'mail.CC = sCC 'mail.BCC = sBCC mail.HTMLBody = sBody mail.From = sFrom mail.Subject = sSubject Response.Write typename(mail) mail.Send 'set mail = nothing end if end if %>

Contact us

Entire Landscapes Inc.
Frank Del Vecchio
4296 Hartfield Grove
Mississauga ON L4W 2Y7
905-629-2583
frank@entirelandscapes.com

<%'if task = "send" then 'response.Write "

" & finalMsg & "

" 'else %> <%'end if %>
 
 
about us |portfolio |services
<%footerDistanceFMtop="630" %>