Allow user to select the search result to see details for the item

Hi All,

I have a search page that returns results from a sql server database.  I would like the results to be similar to a listbox, allowing the user to select the result they want when multiple results are retuned and see the details in a seperate page.  How can I allow the user to step through the results, select the item they want and open the detailed results in another window?  Below is the code I am using to search the dataset and return the possible results.  Thanks!

<%
Dim strURL    
Dim strConnect
Dim rstSearch  
Dim strDBPath
Dim strSQL    
Dim strSearch

strURL = Request.ServerVariables("URL")
strSearch = Request.QueryString("search")

%>
<p>Search by Parcel Number, Name or Address</p>
<form action="<%= strURL %>" method="get">
<input name="search" value="<%= strSearch %>" size="20" />
<input type="submit" />
</form>
<%
If strSearch <> "" Then
            strDBPath = Server.MapPath("database.mdb")
                      Set strConnect = Server.CreateObject("ADODB.Connection")
strConnect.Open "Provider=SQLOLEDB; DRIVER=SQLServer; SERVER=na; UID=na; PWD=na; DATABASE=na;"

strSQL = "SELECT distinct last_name, first_name, parcel_number, py_tax_code, house_number, house_number_suffix, prefix_directional, street_name, street_suffix, post_directional, community_name, state, zip_code, gross_current_acres " _
            & "FROM taxquerysystem " _
            & "WHERE last_name LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
            & "OR first_name LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
            & "OR parcel_number LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
            & "OR house_number + street_name LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
            & "ORDER BY last_name;"

Set rstSearch = strConnect.Execute(strSQL)

%>
      <table border="1" bordercolorlight="#AAAAAA" bordercolordark="#919191">
      <%
      Do While Not rstSearch.EOF
            %>
            <tr>
            <td><%= rstSearch.Fields("parcel_number").Value %>&nbsp;</td>
            <td><%= rstSearch.Fields("first_name").Value %>&nbsp;<%= rstSearch.Fields("last_name").Value %></td>
            <td><%= rstSearch.Fields("py_tax_code").Value %>&nbsp;</td>
            <td><%= rstSearch.Fields("house_number").Value %>&nbsp;<%= rstSearch.Fields("house_number_suffix").Value %>&nbsp;<%= rstSearch.Fields("prefix_directional").Value %>&nbsp;<%= rstSearch.Fields("street_name").Value %>&nbsp;<%= rstSearch.Fields("street_suffix").Value %>&nbsp;<%= rstSearch.Fields("post_directional").Value %>&nbsp;<%= rstSearch.Fields("community_name").Value %>&nbsp;<%= rstSearch.Fields("state").Value %>&nbsp;<%= rstSearch.Fields("zip_code").Value %></td>
            <td><%= rstSearch.Fields("gross_current_acres").Value %>&nbsp;</td>

            </tr>
            <%

            rstSearch.MoveNext
      Loop
      %>
      </table>
      <%
      rstSearch.Close
      Set rstSearch = Nothing
      strConnect.Close
      Set strConnect = Nothing
End If

%>
</BODY>
</HTML>
Start Free Trial