En Basitinden Asp ile Harfe Göre Sıralama (Access)

<% For b = 65 To 90 Step 1 
Response.Write "<a href='xxx.asp?harf=" & Lcase(Chr(b)) &"'>" & Lcase(Chr(b)) &" </a> " 
Next 
%>
<%
harfD=Request.querystring("harf")
Set conn= Server.CreateObject("adodb.connection") 
conn.open = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("abc.mdb") & ";"
SET rs=server.CreateObject("adodb.recordset")
if harfD="" then
sqlkod="select ALANADI from TABLOADI where left(ALANADI,1) = 'a'  order by ALANADI asc "
else
sqlkod="select ALANADI from TABLOADI where left(ALANADI,1) = '" & harfD & "'  order by ALANADI asc "
end if
rs.open sqlkod,conn,1,3
Do While Not rs.Eof
response.Write  rs2("ALANADI") & "<BR />"
 rs2.MoveNext
Loop
%>