<%
If Request.Form("Submit") = "Submit Response" Then
'Response.Write("Submit button clicked")
dim submitString
dim submit
submit = true
submitString = ""
dim fname
fname = Request.Form("FirstName")
If fname <> "" Then
submitString = submitString & "FirstName:" & fname
Else
submit = false
End If
dim lname
lname = Request.Form("LastName")
If lname <> "" Then
submitString = submitString & "~LastName:" & lname
Else
submit = false
End If
dim email
email = Request.Form("Email")
If email <> "" Then
submitString = submitString & "~Email:" & email
Else
submit = false
End If
dim phone
phone = Request.Form("Phone")
If phone <> "" Then
submitString = submitString & "~Phone:" & phone
Else
submit = false
End If
dim commID
commID = Request.Form("CommunityNumber")
If commID <> "" Then
submitString = submitString & "~CommunityNumber:" & commID
Else
submit = false
End If
dim source
source = Request.Form("Source")
If source <> "" Then
submitString = submitString & "~Source:" & source
Else
submit = false
End If
submitString = submitString & "~FollowupCode:B"
dim cellP
cellP = Request.Form("CellPhone")
If cellP <> "" Then
submitString = submitString & "~CellPhone:" & cellP
End If
dim workP
workP = Request.Form("WorkPhone")
If workP <> "" Then
submitString = submitString & "~WorkPhone:" & workP
End If
dim streetAdd
streetAdd = Request.Form("StreetAddress2")
If streetAdd <> "" Then
submitString = submitString & "~StreetAddress:" & streetAdd
End If
dim city
city = Request.Form("City")
If city <> "" Then
submitString = submitString & "~City:" & city
End If
dim state
state = Request.Form("State")
If state <> "" Then
submitString = submitString & "~State:" & state
End If
dim zip
zip = Request.Form("Zip")
If zip <> "" Then
submitString = submitString & "~Zip:" & zip
End If
dim WstreetAdd
WstreetAdd = Request.Form("WorkStreetAddress3")
If WstreetAdd <> "" Then
submitString = submitString & "~WorkStreetAddress:" & WstreetAdd
End If
dim Wcity
Wcity = Request.Form("WorkCity")
If Wcity <> "" Then
submitString = submitString & "~WorkCity:" & Wcity
End If
dim Wstate
Wstate = Request.Form("WorkState")
If Wstate <> "" Then
submitString = submitString & "~WorkState:" & Wstate
End If
dim Wzip
Wzip = Request.Form("WorkZip")
If Wzip <> "" Then
submitString = submitString & "~WorkZip:" & Wzip
End If
dim currentOwn
currentOwn = Request.Form("CurrentlyOwn")
If currentOwn <> "" Then
submitString = submitString & "~CurrentlyOwn:" & currentOwn
Else
submit = false
End If
dim secondaryRes
secondaryRes = Request.Form("SecondaryResidence")
If secondaryRes <> "" Then
submitString = submitString & "~SecondaryResidence:" & secondaryRes
Else
submit = false
End If
dim purchaseTF
purchaseTF = Request.Form("PurchaseTimeframe")
If purchaseTF <> "" Then
submitString = submitString & "~PurchaseTimeframe:" & purchaseTF
Else
submit = false
End If
dim maritalStatus
maritalStatus = Request.Form("MaritalStatus")
If maritalStatus <> "" Then
submitString = submitString & "~MaritalStatus:" & maritalStatus
Else
submit = false
End If
dim income
income = Request.Form("IncomeLevel")
If income <> "" Then
submitString = submitString & "~IncomeLevel:" & income
Else
submit = false
End If
dim priceRange
priceRange = Request.Form("PriceRange")
If priceRange <> "" Then
submitString = submitString & "~PriceRange:" & priceRange
Else
submit = false
End If
dim desiredBed
desiredBed = Request.Form("DesiredBedrooms")
If desiredBed <> "" Then
submitString = submitString & "~DesiredBedrooms:" & desiredBed
Else
submit = false
End If
submitString = "http://www.buildercms.com/cms/custom/ProspectImport.aspx?ProspectData=" & Server.URLencode(submitString)
'Response.Write(" submit: " & submit & "
")
If submit = true then
'Response.Write(submitString & "
")
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", submitString, false
xmlhttp.send ""
'Response.write xmlhttp.responseText
set xmlhttp = nothing
End If
End If
%>
Contact Us
Caliber Communities
2315 N. 52nd Street
Phoenix, AZ 85008
(602) 252-2129
