---
title: "Lista databas i bokstavsordning."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/105975-lista-databas-i-bokstavsordning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Biasse"
published: "2004-06-22T11:35:31.000Z"
updated: "2004-06-22T13:00:11.000Z"
replies: 2
views: 214
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/105975-lista-databas-i-bokstavsordning"
---

# Lista databas i bokstavsordning.

## #1 — Biasse, 2004-06-22T11:35Z

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

Permalänk: https://www.webforum.nu/p/105975

## #2 — Engine^, 2004-06-22T12:15Z

Om du skulle få fler sidor än 27 då?

I övrigt räcker det med att ändra till

```
If i <> intPage Then
  Response.Write("<a href=""?page=" & i & """>" & Chr(96 +i) & "</a> ")
Else
  Response.Write("[" & Chr(96 + i) & "] ")
End If
```

Permalänk: https://www.webforum.nu/p/1370887

## #3 — Biasse, 2004-06-22T13:00Z

Det kan dra iväg över 27..     har 17 i nummerordning idag.

Permalänk: https://www.webforum.nu/p/1370925

---

Tråden på webben: https://www.webforum.nu/amne/asp/105975-lista-databas-i-bokstavsordning