How to list users by click on alphabet letter

I want to be able to list users in view by alphbet leter slection like

[A,B,C,D,E,F,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z]

CLICK ON A LETTER AND ALL THE NAMES LISTED IN THAT LETTER DISPLAY.

<%
If Request.querystring("mode") = "listusers" then
	Set rsUserAdmin = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT username, userType, Timestamp, Email, ID FROM tblusers ORDER BY username"
	rsUserAdmin.Open strSQL, adoCon

	Set rsDownloadAdmin = Server.CreateObject("ADODB.Recordset")
	'strSQL = "SELECT downloadid, downloadtitle, downloadcount FROM tbldownload ORDER by DownloadID "
	strSQL = "SELECT tblDownload.DownloadID, tblDownload.DownloadTitle, tblDownload.DownloadDescription, tblDownload.DownloadCount, tblUsers.ID, tblUsers.Timestamp, tblUsers.username FROM tblDownload INNER JOIN tblUsers ON tblDownload.DownloadCount = tblUsers.ID "

	rsDownloadAdmin.Open strSQL, adoCon
	
	
%>
<%
	Response.Write ("<table><tr><td><b>UserName</></b></td><td><b>Delete User</></b></td><td><b>Change Password</></b></td><td><b>User Type</></b></td><td><b>User Email </b></td><td><b>User Date </b></td></tr>")
	strBGColor = "#EEEEEE"

	Do While NOT rsUserAdmin.EOF
	if strBGColor = "#EEEEEE" Then strBGColor = "#D7D7D7" Else strBGColor = "#EEEEEE" %>
	<tr bgcolor="<%= Cstr(strBGColor) %>"><td>
<%
	Response.Write (rsUserAdmin("username"))
	Response.Write ("</></td><td><a href=downloadadmin.asp?mode=deleteuser&ID=")
	Response.Write (rsUserAdmin("ID"))
	Response.Write ("><img src='images/cancel.gif' border='0' Alt='Delete User'></a></td>")
	Response.Write ("<td><a href=downloadadmin.asp?mode=change&ID=")
	Response.Write (rsUserAdmin("ID"))
	Response.Write ("><img src='images/security.gif' border='0' Alt='Change Password'></a>")
	Response.Write ("</td><td>")
	Response.Write (rsUserAdmin("userType"))	
	Response.Write ("</></td><td style='color:#FF0000; font-weight:bold;'>")
	Response.Write (rsUserAdmin("email"))
	Response.Write ("</td>")
	Response.Write ("</></td><td style='color:#0000FF; font-weight:bold;'>")
	Response.Write (rsUserAdmin("Timestamp"))
	Response.Write ("</td>")
	Response.Write ("</></td></tr>")		
	
	rsUserAdmin.MoveNext
Loop
Response.Write ("</table>")
Set rsUSerAdmin = Nothing
Set adoCon = Nothing

End If
%>

Code (markup):

 

pass the letters in a querystring, like this:

 <a href="page.asp?letter=A">A</a> | 
 <a href="page.asp?letter=B">B</a> | 
 <a href="page.asp?letter=C">C</a> | 
 <a href="page.asp?letter=D">D</a> | 
 <a href="page.asp?letter=E">E</a> | 
 <a href="page.asp?letter=F">F</a> | 
 <a href="page.asp?letter=G">G</a> | 
 <a href="page.asp?letter=H">H</a> | 
 <a href="page.asp?letter=I">I</a> | 
 <a href="page.asp?letter=J">J</a> | 
 <a href="page.asp?letter=K">K</a> | 
 <a href="page.asp?letter=L">L</a> | 
 <a href="page.asp?letter=M">M</a> | 
 <a href="page.asp?letter=N">N</a> | 
 <a href="page.asp?letter=O">O</a> | 
 <a href="page.asp?letter=P">P</a> | 
 <a href="page.asp?letter=Q">Q</a> | 
 <a href="page.asp?letter=R">R</a> | 
 <a href="page.asp?letter=S">S</a> | 
 <a href="page.asp?letter=T">T</a> | 
 <a href="page.asp?letter=U">U</a> | 
 <a href="page.asp?letter=V">V</a> | 
 <a href="page.asp?letter=W">W</a> | 
 <a href="page.asp?letter=X">X</a> | 
 <a href="page.asp?letter=Y">Y</a> | 
 <a href="page.asp?letter=Z">Z</a>

Code (markup):

then grab your letter variable from the querystring and query your database by modifying your sql like so:

<% 'grabbing the querystring variable
lettervariable = request("letter")

'the modified sql statement from your post, notice the where clause

strSQL = "SELECT tblDownload.DownloadID, tblDownload.DownloadTitle, tblDownload.DownloadDescription, tblDownload.DownloadCount, tblUsers.ID, tblUsers.Timestamp, tblUsers.username FROM tblDownload INNER JOIN tblUsers ON tblDownload.DownloadCount = tblUsers.ID WHERE tblUsers.username LIKE '"&lettervariable &"%'"
%>

Code (markup):