Elenco alfabetico

[Corwin]

Con questo crei l'elenco delle lettere:

<%
For x = 65 to 90
l = chr(x) 
%>
<%=l%>
<%
If x < 90 Then
Response.Write "-"
end if
Next
%>

con questo recuperi i record

<%
Lettera = Request("lettera")
cs = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("miodatabase.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open cs
sql = "SELECT NOME FROM TABELLA WHERE UCASE(NOME) LIKE '" & Lettera & "%'"
rs.open sql, conn

If not Rs.Eof
While not rs.eof
Response.write rs("NOME") & "
"
rs.Movenext
Wend
ELSE
Response.write "Nessuno nome trovato per la lettera " & Lettera
End if