Find Keystone Real Estate

<%@ 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 = "Keystone Property Inquiry (FindKeystone)" 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 Keystone: " + strKeystone + "
" + "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

Keystone
Real Estate
Information

Sales History

1031 Information

Finance Information

Buying Information

Selling Information

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

Please enter the following information and we will respond as soon as possible. Thank you for your interest in Keystone 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

Keystone
Links

Yellow Pages

Mountain Cams

Restaurants

Area Information

Keystone History

Keystone
Weather Links

CNN Weather

Weather Channel

Accu Weather