<%@ Language=VBScript %> <% Dim objCDOMail Dim strSubject Dim strBody Dim bSendOk Dim strOtherinfo Dim strTimeframe Dim strPrice2 Dim strPrice1 Dim strSilvDillon Dim strCopper Dim strKeystone Dim strOther Dim strFrisco Dim strBlue Dim strBreck Dim strFractional Dim strLand Dim strDuplex Dim strTownhome Dim strCondos Dim strHomes Dim strPhone2 Dim strPhone Dim strEmail Dim strName strOtherinfo = Request.Form("otherinfo") strTimeframe = Request.Form("timeframe") strPrice2 = Request.Form("Price2") strPrice1 = Request.Form("Price1") strSilvDillon = Request.Form("SilvDillon") strCopper = Request.Form("Copper") strKeystone = Request.Form("Keystone") strOther = Request.Form("Other") strFrisco = Request.Form("Frisco") strBlue = Request.Form("Blue") strBreck = Request.Form("Breck") strFractional = Request.Form("Fractional") strLand = Request.Form("Land") strDuplex = Request.Form("Duplex") strTownhome = Request.Form("Townhome") strCondos = Request.Form("Condos") strHomes = Request.Form("Homes") strPhone2 = Request.Form("Phone2") strPhone = Request.Form("Phone") strEmail = Request.Form("Email") strName = Request.Form("Name") if (strEmail <> "") then strSubject = "Silverthorne Property Inquiry (FindSilverthorne)" strBody = "Name: " + strName + "
" + "Email: " + strEmail + "
" + "Phone: " + strPhone + "
" + "Alt Phone: " + strPhone2 + "
" + "Interested in Homes: " + strHomes + "
" + "Interested in Condos: " + strCondos + "
" + "Interested in Townhomes: " + strTownhome + "
" + "Interested in Duplexes: " + strDuplex + "
" + "Interested in Land: " + strLand + "
" + "Interested in Fractional: " + strFractional + "
" + "Location in Breck: " + strBreck + "
" + "Location in BlueRiver: " + strBlue + "
" + "Location in Frisco: " + strFrisco + "
" + "Location in Other Location: " + strOther + "
" + "Locationt in Silverthorne: " + strSilverthorne + "
" + "Location in Copper: " + strCopper + "
" + "Location in Silv/Dillon: " + strSilvDillon + "
" + "Starting Price Range: " + strPrice1 + "
" + "Ending Price Range: " + strPrice2 + "
" + "Timeframe: " + strTimeframe + "
" + "Other Info: " + strOtherinfo + "
" Set objErrMail= Server.CreateObject("CDO.Message") With objErrMail .From = "picard@colorado.net" .To = "picard@colorado.net" .Subject = strSubject .HTMLBody = CStr("" & strBody) .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.bluerivercon.com" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .Send End With Response.Redirect("thankyou.asp") end if %>
  
  
Home
Property Search
Suite of Services
Contact Us
   
  
  
Silverthorne
Real Estate
Information
  
  Sales History
  1031 Information
  Finance Information
  Buying Information
  Selling Information
  


Welcome to Find Silverthorne Real Estate
Your complete resource for Silverthorne Real Estate.

Please enter the following information and we will respond as soon as possible. Thank you for your interest in Silverthorne property.

       
  * Indicates Required Data  
* Name:     
* Email:     
* Phone:  Alternate
Phone: 
Interests:  Home Condo Townhome
   Duplex Land/Lot Fractional
 
Location:  Breckenridge Blue River Frisco Other
   Keystone Copper Silverthorne/Dillon
 
Price Range: $ to $
 
Time Frame:  Immediate 3 Months 6 Months 1 Year or Greater
Other Information:    
 
   




Don Picard
Summit Real Estate Service/MB
Mobile: 970-485-9388   303-335-0545 (from Denver)
email: picard@colorado.net    
  
  
  
  
  
Silverthorne
Links
  
  Yellow Pages
  Mountain Cams
  Restaurants
  Area Information
  
  
  
Click for Weather USA Forecast for Silverthorne
 
Silverthorne
Weather Links
  
  CNN Weather
  Weather Channel
  Accu Weather