John Comer California Artist

<%@ Language=VBScript %> <% if request.querystring("Action")="Send" then dim msgBody msgBody="The following person has requested information from The Solar Energy Company Web Site." & Chr(13) & Chr(13) msgBody=msgBody & " Name: " & request.form("name") & Chr(13) msgBody=msgBody & " Address1: " & Request.Form("address1") & Chr(13) msgBody=msgBody & " Address2: " & Request.Form("address2") & Chr(13) msgBody=msgBody & " City: " & Request.Form("city") & Chr(13) msgBody=msgBody & " State: " & Request.Form("state") & Chr(13) msgBody=msgBody & " Zip: " & Request.Form("zip") & Chr(13) msgBody=msgBody & " Email: " & Request.Form("email") & Chr(13) msgBody=msgBody & " Phone: " & Request.Form("phone") & Chr(13) msgBody=msgBody & " Work Phone: " & Request.Form("work") & Chr(13) msgBody=msgBody & " Cell Phone: " & Request.Form("cell") & Chr(13) msgBody=msgBody & " Pager: " & Request.Form("pager") & Chr(13) msgBody=msgBody & " Other Phone: " & Request.Form("other") & Chr(13) & Chr(13) msgBody=msgBody & " System: " & Request.Form("selectsystem") & Chr(13) msgBody=msgBody & " Type Application: " & Request.Form("application") & Chr(13) msgBody=msgBody & "New Cnst Location: " & Request.Form("location") & Chr(13) msgBody=msgBody & " New Cnst Contact: " & Request.Form("contact") & Chr(13) msgBody=msgBody & " Contact Phone: " & Request.Form("contactphone") & Chr(13) msgBody=msgBody & " Retrofit: " & Request.Form("retrofit") & Chr(13) msgBody=msgBody & " Gas Bill: " & Request.Form("gasbill") & Chr(13) msgBody=msgBody & " Elec Bill: " & Request.Form("electbill") & Chr(13) msgBody=msgBody & " Average kW Usage: " & Request.Form("kw") & Chr(13) msgBody=msgBody & " Follow Up: " & Request.Form("followup") & Chr(13) msgBody=msgBody & " Best Time: " & Request.Form("timetocall") & Chr(13) msgBody=msgBody & "Service or Repair: " & Request.Form("servicerepair") & Chr(13) msgBody=msgBody & " Send Info: " & Request.Form("sendinfo") & Chr(13) msgBody=msgBody & " I am a: " & Request.Form("iama") & Chr(13) & Chr(13) msgBody=msgBody & " Comments: " & Request.Form("comments") & Chr(13) Dim myCDO Set myCDO=Server.CreateObject("CDONTS.NewMail") ' Replace example.com with your domain name. Fields listed in order: ' From email (must be your domain's mailbox), Send to, Subject, Message myCDO.Send "john@johncomer.com", "krome@silcom.com ; john@johncomer.com " , "Web Info Request", msgBody Set myCDO=nothing Select Case Err.number Case 0: 'EVERYTHING IS GOOD Response.Redirect "requestsent.html" Case Else: 'ERROR PROCESSING Response.Redirect "error.html" End Select end if %> John Comer California Artist - Contact

Contact John

John Comer Fine Art
625 Pacific Avenue
Cayucos, CA 93430 USA

email: john@johncomer.com

Please put me on John's mailing list

Name

Address 1

Address 2

City

State
Zip

Email

Phone Fax

Notify me when New Work is available for viewing

Tell me about upcoming shows & openings

I am interested in taking one of John's workshops

Comments: