<%@ language=vbscript %> <% if request.form <> "" then ' Create a recordset object to store specific table information Set objRS = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblWishList" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 strUserName2 = session("UserName") strType = request("Type") strTerms = request("Terms") 'strLowPrice = request("LowPrice") strHighPrice = request("HighPrice") If Len(strHighPrice) < 1 Then strHighPrice = 0 Else strHighPrice = CCur(strHighPrice) End If strTotalFt = request("TotalFt") If Len(strTotalFt) < 1 Then strTotalFt = 0 strBedrooms = request("Bedrooms") If Len(strBedrooms) < 1 Then strBedrooms = 0 strBathrooms = request("Bathrooms") If Len(strBathrooms) < 1 Then strBathrooms = 0 strState = request("State") strCity = request("City") strZip = request("Zip") strCountry = request("Country") objrs.addnew objrs("PropertyType") = strType objrs("PropertyTerms") = strTerms 'objrs("LowPrice") = strLowPrice objrs("HighPrice") = strHighPrice objrs("Bedrooms") = strBedrooms objrs("Bathrooms") = strBathrooms objrs("TotalFt") = strTotalFt objrs("State") = strState objrs("City") = strCity objrs("Zip") = strZip objrs("Country") = strCountry objrs("UserName") = strUserName2 objrs.update Msg= "
Your wish list entry has been updated." Msg = Msg + "
Click here to view your wish list." end if %>

ADD A WISH LIST ENTRY

Choose your wish list parameters below. Properties that match your criteria will be be emailed to you as soon as they are available.

<% if Msg <> "" then %>
Message(s):<%= Msg %>
<% end if %>
<% ' Create a recordset object to store specific table information Set objRS = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblPropertyTypes" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 %>

Type of Property

Property Terms

Maximum Price
    

Minimum # of Bedrooms
Minimum # of Baths
Minimum Sq. Ft

Location
State/Province <% sSQL = "SELECT * FROM TblStates order by StateId ASC" Set rsState = Server.CreateObject("ADODB.Recordset") rsState.Open sSQL, objADO, 3, 3 %>    
City  
Zip    
Country <% sSQL = "SELECT * FROM TblCountries order by Country_Id ASC" Set rsCountry = Server.CreateObject("ADODB.Recordset") rsCountry.Open sSQL, objADO, 3, 3 %>