%@ 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 = "Breckenridge Property Inquiry (FindBreckenridge)"
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
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||
|