How to implement Auto Suggest Widget

Question

Hi there
I have a dynamic asp classic page, where the data come from an access db.
On this page, many documents (category and title ) are displayed for download.
I want to implement Auto Suggest Widget in order to find the document easier and to jump to it (href="#document_xy") directly for download.
I don't have a clue on how to implement the Auto Suggest Widget.
The ASP sample works with XML File.
http://labs.adobe.com/technologies/spry/samples/autosuggest/SuggestSample.html
All replies, hints, tutorials are highly appreciated.
kind regards
joey00x
I am using Win XP, Dreamweaver CS3

Answer 1

Hi,
thanks for trying to help.
I am sorry to ask again. I am not at all familiar with xml.
I have tried to modify the ASP script you've suggested, but I get strange XML error, which doesn't make sense to me.
I understand that with the script the server creates an XML File on the fly. First I have to connect to my access database, then I fill the records into a recordset object. And then the server loops through the RS and creates the xml file. Is that correct?
The error message I get, points to a complete different place in the code, to a javascript module, which is working perfectly without below code.
Any suggestions where the bug is?
Thanks for your time
kind regards
joey00x
Here the code that I am using:
<%
Dim objRS
Dim SQLxml
SQLxml = "Select category, subcategory, title from DocumentView"
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open SQLxml , objConn, 0, 1
' Send the headers
Response.ContentType = "text/xml"
Response.AddHeader "Pragma", "public"
Response.AddHeader "Cache-control", "private"
Response.AddHeader "Expires", "-1"
%>
<?xml version="1.0" encoding="utf-8"?>
<root>
  <% While (NOT objRS.EOF) %>
    <row>
         <%
            For each field in objRS.Fields
            column = field.name
         %>
        <<%=column%>><![CDATA[<%=(objRS.Fields.Item(column).Value)%>]]></<%=column%>>
        <%
            Next
        %>
    </row>
    <%
      objRS.MoveNext()
    Wend
    %>
</root>
<%
objRS.Close()
Set objRS = Nothing
%>