<%@Language = VBScript %> <% Option Explicit %> <% Const CGI_DIR = "." Const SHOW_OPTIONAL_FIELDS = "True" 'Const DESTINATION_EMAIL = "info@sandiegotreecare.com" Const DESTINATION_EMAIL = "clint@sandiegotreecare.com" Const SHOW_ATTACHMENT_FIELD = "True" Const TEMPPATH = "d:/inetpub/sandiegotreecare.com/tmp/" Const SUBJECT = "SDTree Estimate request" StartHTML If (Not Cbool(Request.QueryString("mail"))) Then PrintForm Else Response.Write("I am here") Response.End() Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") Dim byteCount byteCount = Request.TotalBytes Dim RequestBin RequestBin = Request.BinaryRead(byteCount) BuildUploadRequest RequestBin If (check_form_data) Then send_mail reply_to_user End If Set UploadRequest = Nothing End If FinishHTML Sub StartHTML %> REQUEST AN ESTIMATE :: San Diego Tree Care :: (858) 530-8733 :: <% End Sub Sub FinishHTML %>
<% End Sub Sub PrintForm %>





CALL US TODAY AT: 858-530-8733
REQUEST AN ESTIMATE

 

First Name:
Last Name:
Phone:
Email:
Address:
City:
State:
Zip:
Services Requested:
Tree Pruning / Trimming
Tree Removal
Stump Grinding
Root Pruning / Bio-Barrier
Brush / Land Clearing
Shrub / Hedge Pruning
Commercial Maintenance
Comments or Questions?
Upload Image?



Our Clients
Scripps Ranch Swim
and Racquet Club

Mossy Nissan

Professional HOA
Consultants

Villa Portofino HOA

Mesa Village HOA

Vista La Rosa Apts.

She Manages Properties

Tierra Mesa HOA

Summit Property Mgmnt

Dowling Construction

RCP Block & Brick

Paseo Landmark
Landscape Services

Borrego Holiday Homes

D.E. Contreras
Construction

NAI San Diego

Nature’s Image Inc.

Mariposa HOA

The Prescott Companies

Rio Terrace HOA

Mission Playmor COA

Lake Glen Park HOA

Belaire of Mission
Pacific HOA

Hill-n-Dale HOA

Valley View
Townhomes HOA

Park Cerro HOA

A to Z Contracting

Associated Professional
Services

Scott Memorial
Comm. Church

Colliers International

Del Mar Landscape

Bishops School

Triangle Investment Co.

Barbara’s
Landscape Services

Farmers Insurance

Murray Hill HOA

Casa Del Marlboro HOA

Elite Landscape

The Santaluz Club

Luecadia Village HOA

La Mesa Glass

Peerless Properties

Mediterranean Villas HOA

Louisiana Street HOA

Frank Race Landscape

Southwest Landscape

Beach Scene HOA

Sunset HOA

K & R Property Mgmnt.

Advantage Homes

S.D. Premier
Property Mgmnt.

Coldwell Banker

Northwest Development

A&C Int'l Business Co.

Palm Tree Apartments

Villa Isla HOA

Gold Coast Property Mgmnt.

Saint James Church

Dick Logan and Friends

Rancho Bernardo
Heights Center

American National Mgmnt.

Laurel St. Property
Owners Assoc.

Jon Del Construction

Rancho San Diego HOA

Carlton Country
Club Villas

Pernicano Realty

Hardtke Construction

Mossy Ford

Accord Condominium Mgmnt.

Valley Meadows North HOA

Telegraph Canyon
Terrace HOA

Steven Smith Landscape

Grossmont Terrace HOA

Saphire Sunset HOA

Mossy Toyota

Corsican Villas HOA

Allegis Residential
Services

King of the Painters

Central Parking Systems

Villa Colina HOA

Timberlane HOA

Huntington HOA

City of San Diego

United Methodist
Church

Hilltop Village HOA

River Greens HOA


We Proudly Serve the
Following Areas:

San Diego County, La Jolla, UTC, Del Mar, Carmel Valley, Rancho Santa Fe, Rancho Bernardo, Rancho Penasquitos, Carmel Mountain, Poway, Scripps Ranch, Sorrento Valley, Miramar, Mira Mesa, Santee, Tierra Santa, Mission Valley, Fashion Valley, Linda Vista, Clairemont Mesa, Kearny Mesa, North Park, Hillcrest, Downtown, Sports Arena, Pacific Beach, Mission Beach, Mission Viejo, Old Town, University City, Kensington, College Area, La Mesa, El Cajon, Lakeside, Spring Valley, San Clemente, National City, Chula Vista, Bonita, Imperial Beach, Lemon Grove, Coronado, North County , Solana Beach, San Marcos, San Clemente, Encinitas, Del Mar, Carlsbad, Oceanside, Vista, Escondido, Fallbrook,, Bonsall, Leucadia, Cardiff, La Costa
 
 

 
<% End Sub Function check_form_data If (UploadRequest.Item("email").Item("Value") = "" OR UploadRequest.Item("fname").Item("Value") = "" ) Then Response.Write ("" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("
" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("
We require your Name, Email, Address and a Message in order to reply to your message.
" & vbcrlf) Response.Write ("
Please click here or your browsers back button to try again.
") Response.Write ("
" & vbcrlf) check_form_data = False Else check_form_data = True End If End Function Sub reply_to_user 'Response.Write ("" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("
" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("" & vbcrlf) Response.Write ("
Thank you, we have received your message.
" & vbcrlf) Response.Write ("

You are now being redirected to our Homepage" & vbcrlf) Response.Write ("

" & vbcrlf) End Sub Sub send_mail Dim ScriptObject Dim MyFile Dim reqMsg Dim FromName Dim Body Dim filename Dim value Body = "Thankyou" Body = Body & "
" & _ "
" If (IsObject(UploadRequest.Item("fname"))) Then If (UploadRequest.Item("fname").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("lname"))) Then If (UploadRequest.Item("lname").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("phone"))) Then If (UploadRequest.Item("phone").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("email"))) Then If (UploadRequest.Item("email").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("address"))) Then If (UploadRequest.Item("address").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("city"))) Then If (UploadRequest.Item("city").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("state"))) Then If (UploadRequest.Item("state").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("zip"))) Then If (UploadRequest.Item("zip").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service1"))) Then If (UploadRequest.Item("service1").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service2"))) Then If (UploadRequest.Item("service2").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service3"))) Then If (UploadRequest.Item("service3").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service4"))) Then If (UploadRequest.Item("service4").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service5"))) Then If (UploadRequest.Item("service5").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service6"))) Then If (UploadRequest.Item("service6").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("service7"))) Then If (UploadRequest.Item("service7").Item("Value") <> "") Then Body = Body & "" End If End If If (IsObject(UploadRequest.Item("comments"))) Then If (UploadRequest.Item("comments").Item("Value") <> "") Then Body = Body & "" End If End If Set reqMsg = Server.CreateObject("CDONTS.NewMail") reqMsg.BodyFormat = 0 reqMsg.Mailformat = 0 If (SHOW_ATTACHMENT_FIELD) Then Dim contentType Dim filepathname contentType = UploadRequest.Item("attach").Item("ContentType") filepathname = UploadRequest.Item("attach").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("attach").Item("Value") If (value <> "") Then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(TEMPPATH & filename, True) Dim loopIndex For loopIndex = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,loopIndex,1))) Next MyFile.Close Body = Body & "" reqMsg.AttachFile TEMPPATH & filename End If End If Body = Body & "
First Name:" & _ UploadRequest.Item("fname").Item("Value") & _ "
Last Name:" & _ UploadRequest.Item("lname").Item("Value") & _ "
Phone:" & _ UploadRequest.Item("phone").Item("Value") & _ "
Email:" & _ UploadRequest.Item("email").Item("Value") & _ "
Address:" & _ UploadRequest.Item("address").Item("Value") & _ "
City:" & _ UploadRequest.Item("city").Item("Value") & _ "
State:" & _ UploadRequest.Item("state").Item("Value") & _ "
Zip:" & _ UploadRequest.Item("zip").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service1").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service2").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service3").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service4").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service5").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service6").Item("Value") & _ "
Service:" & _ UploadRequest.Item("service7").Item("Value") & _ "
Comments:" & _ UploadRequest.Item("comments").Item("Value") & _ "
Attached File:  " & _ filename & "
" If (IsOBject(UploadRequest.Item("lname"))) Then FromName = UploadRequest.Item("lname").Item("Value") & " <" & UploadRequest.Item("email").Item("Value") & ">" Else FromName = UploadRequest.Item("email").Item("Value") End If reqMsg.Send FromName, DESTINATION_EMAIL, SUBJECT, Body Set reqMsg = Nothing If (SHOW_ATTACHMENT_FIELD AND value <> "") Then Set MyFile = ScriptObject.GetFile(TEMPPATH & filename) MyFile.Delete True Set ScriptObject = Nothing Set MyFile = Nothing End If End Sub Sub BuildUploadRequest(RequestBin) Dim PosBeg PosBeg = 1 Dim PosEnd PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) Dim boundary boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) Dim boundaryPos boundaryPos = InstrB(1,RequestBin,boundary) Dim Name Dim Pos Dim PosFile Dim PosBound Dim Value Dim FileName Dim ContentType Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition")) Pos = InstrB(Pos,RequestBin,getByteString("name=")) PosBeg = Pos+6 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename=")) PosBound = InstrB(PosEnd,RequestBin,boundary) If ((PosFile<>0) AND (PosFile