List Tal, underlige tegn og bogstaver

noget a'la

<% 
set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs = oConn.Execute("SELECT * FROM tabel")
%>
<a href="#0">0</a> <a href="#1">1</a>
<a href="#2">2</a> <a href="#3">3</a> <a href="#4">4</a> <a href="#5">5</a>
<a href="#6">6</a> <a href="#7">7</a> <a href="#8">8</a> <a href="#9">9</a>
<a href="#A">A</a> <a href="#B">B</a>
<a href="#C">C</a> <a href="#D">D</a> <a href="#E">E</a> <a href="#F">F</a>
<a href="#G">G</a> <a href="#H">H</a> <a href="#I">I</a> <a href="#J">J</a>
<a href="#K">K</a> <a href="#L">L</a> <a href="#M">M</a> <a href="#N">N</a>
<a href="#O">O</a> <a href="#P">P</a> <a href="#Q">Q</a> <a href="#R">R</a>
<a href="#S">S</a> <a href="#T">T</a> <a href="#U">U</a> <a href="#V">V</a>
<a href="#W">W</a> <a href="#X">X</a> <a href="#Y">Y</a> <a href="#Z">Z</a>
<a href="#Æ">Æ</a> <a href="#Ø">Ø</a> <a href="#Å">Å</a> <br>
           
            <%
strAlpha = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ"
For count = 1 to Len(strAlpha)
strCaracter = Mid(strAlpha,count,1)
%> </font>
        </center>
    <a name="<%=strCaracter%>"><b><%=strCaracter%></a>
        <%
    oRs.MoveFirst   
    Do While Not oRs.EOF
    If UCase(Left(oRs("overskrift"),1)) = strCaracter Then
    %>
        <a href="side.asp"><%=oRs("overskrift")%></a><br>
        <%
    End If
    oRs.MoveNext
Loop
Next

%>

jeg har løst det =)

men hvorfor
  <%
strAlpha = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ"
For count = 1 to Len(strAlpha)
strCaracter = Mid(strAlpha,count,1)
%>
det?

for at lave et bookmark du kan søge ned til når du trykker på fx k

arr okey =) havet ikke set hvor next stod henne =)