Lista databas i bokstavsordning.

Har ett script för att visa alla mina album på en ftp. Som det ser ut nu så visas sidorna så här:

[1] 2 3 4 5 osv...

Jag skulle villa ha det i bokstavsordning på sidorna istället så här:

[a] b c d e f g osv.....

Men hur gör man?? här är min nuvarande kod.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\vinkelboda\musik\db\musik.mdb"
IF Request.Querystring("action") = "delete" Then 
  
  Connect.Execute(SQL)
  Response.Redirect "allt.asp"
ELSE
  SQL = "SELECT * From musik ORDER BY mapp ASC"
  Set RecSet = Server.CreateObject("ADODB.Recordset")
  RecSet.Open SQL, Connect, 1, 3
  RecSet.PageSize = 25
%></font>
</p>
<div align="center">
<table width="738" border="0" style="border: 1px solid #000080; " bordercolor="#FFFF00" bgcolor="#99CCFF">
<tr> 
<td width="262" bgcolor="#99CCFF"><b><u>
<font face="Verdana" size="2" color="#FF0000">Artist:</font></u></b></td>
<td width="328" bgcolor="#99CCFF"><b><u>
<font face="Verdana" size="2" color="#FF0000">Album:</font></u></b></td>
<td width="57" bgcolor="#99CCFF"><b><u>
<font face="Verdana" size="2" color="#FF0000">Mapp:</font></u></b></td>
<td width="71" bgcolor="#99CCFF"><b><u>
<font face="Verdana" size="2" color="#FF0000">Omslag:</font></u></b></td>

</tr>

<%
  X=0

  If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
    intPage = 1
  Else
    intPage = CInt(Request.QueryString("page"))
  End If

  RecSet.AbsolutePage = intPage

  DO UNTIL RecSet.EOF OR X = RecSet.PageSize
%>
<tr> 
<td width="262" bgcolor="#99CCFF"><b><font face="Verdana" color="#000080" size="1"> <%=RecSet("artist")%></font></b></td>
<td width="328" bgcolor="#99CCFF"><b><font face="Verdana" color="#000080" size="1"><%=RecSet("album")%> </font></b></td>
<td width="57" bgcolor="#99CCFF"><b><font face="Verdana" color="#000080" size="1">
  <p align="left"><%=RecSet("mapp")%> </font></b></td>
<td width="71" bgcolor="#99CCFF"><b><font face="Verdana" color="#000080" size="1">
  <p align="left"><%=RecSet("omslag")%> </font></b></td>
</tr>
<%
    X=X+1
    RecSet.MOVENEXT
  LOOP

  If RecSet.PageCount > 1 Then
    For i = 1 To RecSet.PageCount
      If i <> intPage Then
        Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
      Else
        Response.Write("[" & i & "] ")
      End If
    Next
  End If

  RecSet.CLOSE
  Connect.CLOSE
  Set RecSet = nothing
  Set Connect = nothing
%>

mvh Biasse