<% strAccessLevel = session("AccessLevel") strUserName2 = session("userName") ' Create a recordset object to store specific table information Set objrs = Server.CreateObject("ADODB.Recordset") SQL = "Select * From TblWishList where (UserName = '" + strUserName2 + "')" 'Set the recordset object equal to the SQL query string objrs.Open SQL, objADO, 1, 3 if not objrs.EOF then strId = objrs("Id") strType = objrs("PropertyType") strTerms = objrs("PropertyTerms") strHighPrice = objrs("HighPrice") strTotalFt = objrs("TotalFt") strBedrooms = objrs("Bedrooms") strBathrooms = objrs("Bathrooms") strState = objrs("State") strCity = objrs("City") strZip = objrs("Zip") strCountry = objrs("Country") end if %>

VIEW YOUR WISH LIST

<% if not objRs.EOF then %> View your wish list entries and matching properties below. <% end if %>

<% IF (objRS.EOF) THEN %>
You currently do not have any wish list entries.
Click here to add an entry to your wish list.
<% end if %> <% IF (objRS.EOF) THEN %>
You currently do not have any wish list entries.
Click here to add an entry to your wish list.
<% end if %>
<% while not objrs.EOF %>
Property Type <% if objrs("PropertyType") <> "" then %> <%= objrs("PropertyType") %> <% else %> Any <% end if %>
Terms <% if objrs("PropertyTerms") <> "" then %> <%=objrs("PropertyTerms")%> <% else %> Any <% end if %>
Max. Price <% if objrs("HighPrice") <> "$0.00" then %> <%=formatcurrency(objrs("HighPrice"))%> <% else %> Any <% end if %>
Min. Sq. Ft. <% if objrs("TotalFt") <> "0" then %> <%=objrs("TotalFt")%> <% else %> Any <% end if %>
Min. Bedrooms <% if objrs("Bedrooms") <> "0" then %> <%=objrs("Bedrooms")%> <% else %> Any <% end if %>
Min. Bathrooms <% if objrs("Bathrooms") <> "0" then %> <%=objrs("Bathrooms")%> <% else %> Any <% end if %>
City <% if objrs("City") <> "" then %> <%=objrs("City")%> <% else %> Any <% end if %>
State <% if objrs("State") <> "" then %> <%=objrs("State")%> <% else %> Any <% end if %>
Zip <% if objrs("Zip") <> "" then %> <%=objrs("Zip")%> <% else %> Any <% end if %>
Country <% if objrs("Country") <> "" then %> <%=objrs("Country")%> <% else %> Any <% end if %>
">[ View Matching Properties ]
[ Add A Wish List Entry ]
">[ Edit This Wish List Entry ]
">[ Delete This Wish List Entry ]

<% objRS.MoveNext wend %>