<% strAccessLevel = session("AccessLevel") strUserName2 = session("userName") strId = request("Id") ' Create a recordset object to store specific table information Set objrs = Server.CreateObject("ADODB.Recordset") SQL = "Select * From TblWishList where Id =" & strId '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") strLowPrice = objrs("LowPrice") 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 if Request.Form <> "" then straction = request("cmdAction") if strAction="Yes" then Set objRS = Server.CreateObject("ADODB.Recordset") SQL = "Delete * From TblWishList where Id =" & strId 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 msg = "The selected wish list entry has been deleted.
Click here to view your entire wish list.

" end if if strAction = "No" then msg = "The selected wish list entry has NOT been deleted.
Click here to view your entire wish list.

" end if end if %>

DELETE FROM YOUR WISH LIST

<% if strAction <> "Yes" then %> <% if not objRs.EOF then %> Are you sure you want to delete the wish list below? <% end if %> <% end if %>

<% if msg <> "" then%> <%= msg %> <% end if %>
<% if strAction <> "Yes" then %> <% while not objrs.EOF %>
Property Type <% if strType <> "" then %> <%=strType%> <% else %> Any <% end if %>
Terms <% if strTerms <> "" then %> <%=strTerms%> <% else %> Any <% end if %>
Low Price <% if strLowPrice <> "0" then %> <%=formatcurrency(strLowPrice)%> <% else %> Any <% end if %>
High Price <% if strHighPrice <> "0" then %> <%=formatcurrency(strHighPrice)%> <% else %> Any <% end if %>
Min. Sq. Ft. <% if strTotalFt <> "0" then %> <%=strTotalFt%> <% else %> Any <% end if %>
Min. Bedrooms <% if strBedrooms <> "0" then %> <%=strBedrooms%> <% else %> Any <% end if %>
Min. Bathrooms <% if strBathrooms <> "0" then %> <%=strBathrooms%> <% else %> Any <% end if %>
City <% if strCity <> "" then %> <%=strCity%> <% else %> Any <% end if %>
State <% if strState <> "" then %> <%=strState%> <% else %> Any <% end if %>
Zip <% if strZip <> "" then %> <%=strZip%> <% else %> Any <% end if %>
Country <% if strCountry <> "" then %> <%=strCountry%> <% else %> Any <% end if %>

<% objRS.MoveNext wend %> <% end if %>