Ciao ragazzi, speriamo che possiate illuminarmi =)

Allora io ho fatto questa pagina per un interrogazzione al mio Db statitica.
codice:
<%@ Language=VBScript %>
<%
Option Explicit
Response.ExpiresAbsolute=Now()
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>classifica</TITLE>
</HEAD>
<BODY background="http://xylorth.altervista.org/SitoWeb/Immagini/Sfondi/sfondo00322.GIF">
<p align="center">
<%
Dim conn
Dim rs
Dim sSql
Dim i
 

'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

 'Imposto la stringa SQL di selezione dati
sSql ="SELECT auto.Nome,auto.tipo,auto.Descrizione,auto.anno,auto.potenza,auto.Cilindrata,auto.Alimentazione FROM auto"

   
 'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
<u><font size="5" face="Tahoma">DataBase Alfa Romeo </font></u>
<CENTER>
<TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2" ALIGN="CENTER">
<TR>
<TD>Nome Auto</TD>
<TD>Tipo</TD>
<TD>Descrizione</TD>
<TD>Anno di Produzione</TD>
<TD>Potenza</TD>
<TD>Cilindrata</TD>
<TD>Alimentazione</TD>
</TR>
<%
'Controllo se non c'e' nessun dato (EOF=End Of File)
If rs.EOF=True Then
%>
<TR>
<TD>Nessun record trovato</TD>
</TR>
<%
Else
Do Until rs.EOF
%>
<TR> 
<% For i=0 to rs.Fields.Count -1 %>
	<TD>  <% =rs.Fields(i).Value %> </TD>
<% Next %>
</TR>
<%
rs.MoveNext 
Loop
End If

'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close 
Set conn = Nothing
%>
 </TABLE>
</CENTER>
</BODY>
</HTML>
Ecco io vorrei poter fare un interrogazione dinamica.
Mi spiego meglio magari una piccola tabella dv scegliere se cercare tramite anno,nome,potenza etc etc.
Mi potreste postare il codice e spiegarmi cm inserirlo nel mio?!
Vi sarei grato se riuscite è x la tesina grazie!