Alfabetisk system i asp!!

Hey!

jeg har et system der holder orden på mine dbase poster alfabetisk.

Jeg har fået det her bixet sammen, men hvis jeg nu i stedet for at få dem alle listet på en side (ligesom den gør nu), Hvad så???

Det skal være sådan at når man trykker på et bogstav, så åbner den eks en QueryString("bogstav") = "A"

But how???

Nedenstående er koden..

<%
response.Write "<center>" & VbCrLf
response.Write "<FONT SIZE='2' FACE='Trebuchet MS' COLOR=""#000000"">" & VbCrLf
response.Write "<A HREF=#0>#</A>"
For x = 65 To 90
response.Write "<A HREF=#" & Chr(x) & ">" & Chr(x) & "</A> " & VbCrLf
Next
response.Write "<br><br>" & VbCrLf
Set con = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dbase.mdb")
con.Open DSN
set objrec = server.createobject ("ADODB.recordset")
Sql = "SELECT * FROM [cocktails] order by name"
objrec.open sql, Con, 3
oldbookmark = ""
Do While Not objrec.Eof
If oldbookmark <> UCase(Mid(objrec("name"),1,1)) And Not IsNumeric(Mid(objrec("name"),1,1)) Then
If oldbookmark = "" Then
Else
response.Write "<BR>"
End If
response.Write "<FONT COLOR=#000000><b><A NAME=" & Mid(objrec("name"),1,1) & "></A>" & UCase(Mid(objrec("name"),1,1)) & "</b></FONT>"
response.Write "<br>"
oldbookmark = UCase(Mid(objrec("name"),1,1))
ElseIf IsNumeric(Mid(objrec("name"),1,1)) Then
If oldbookmark = "" Then
response.Write "<FONT COLOR=#000000><A NAME=0></A>#</FONT>"
response.Write "<BR>"
End If
oldbookmark = Mid(objrec("Titel"),1,1)
End If 

response.Write "<A HREF=cocktails.asp?Action=read&Id=" & objrec("Id") & ">" & objrec("name") & " </A></i> <BR>" & VbCrLf
objrec.MoveNext
Loop
response.Write "</FONT>" & VbCrLf
response.Write "</center>" & VbCrLf
objrec.Close %>


Håber I har nogle gode bud..!!

/Bruhn