WWW.ROOTWEB.IT

<form  method="post" action="cerca_pagina.asp" >
<input type="text" id="cerca" name="cercanelsito"  size="25" />
<input type="submit" name="Submit" value="cerca">
  </form>

 <div id="suggerimenti" class="boxsuggerimenti"></div>

<script type="text/javascript">new Ajax.Autocompleter("cerca", "suggerimenti", "ajax/cerca.asp", {minChars: 1});</script>  
 

<%
cerca = request.form("cercanelsito")
Dim obbccConn
Set obbccConn = Server.CreateObject("ADODB.Connection")
obbccconn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("nomedatabase.mdb")
obbccConn.Open

Dim stdccSQL
stdccSQL = "select * from nometabella WHERE (titolo like'%" & cerca & "%')"
Dim obbccRS
Set obbccRS = Server.CreateObject("ADODB.Recordset")
obbccRS.Open stdccSQL, obbccConn, 3, 3
DO While Not obbccRS.EOF
response.write "<li>" & obbccRS("titolo") & "</li>"

obbccRS.Movenext
Loop
obbccRS.Close
Set obbccConn =Nothing