Hejsan
Kan man (klart man kan), Hur gör jag om jag vill ha Ankare till olika bokstäver när jag listar ut från databasen? Skulle vilja ha hela alfabetet uppraddat överst på sidan och när jag trycker på Tex g så hoppar den dit där orden börjar på g, istället för att lista hela listan.
Problemet för mig är att hur gör jag "bokmärke"
<code>
<a name="A"></a>
<a name="B"></a>
<a name="C"></a></code>
OSV. vid varje ny bokstav.
Skickar med koden till listan
<code>
If Request.QueryString("action") = "updatera" Then '***********Uppdatera
sql = "select title, id, LargeImage, new, price, antal from items order by title asc"
%>
<br><br>
<table border="0" width="800" height="1" cellspacing="0" cellpadding="0" bordercolor="#111111">
<td width="381">Produkt</td>
<td width="50"></td>
<td width="48" class="leftbar"></td>
<td width="76" class="leftbar"><p align="center">Erbjudande</td>
<td width="40" class="leftbar"><p align="center">Nyheter</td>
<td width="87"class="leftbar">&nbsp;
Pris&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<u><font color="#0000FF">
</font></u> Antal</td>
</tr><tr>
<%
Set Rs = Conn.Execute(SQL)
Do until RS.EOF
antal = antal +1
%>
<table border="0" width="800" height="1" cellspacing="0" cellpadding="0" bordercolor="#111111">
<form method="POST" action="admin.asp?action=change">
<tr>
<td width="381"><font size="2"><%=RS("title")%>&nbsp;</td>
<td width="50">">Ändra</td>
<td width="48" class="leftbar"><p align="center"><a onclick="return confirm('Är du säker på att du vill ta bort <%=RS("title")%>? OK för att bekräfta')" href="admin.asp?action=delete&id=<%=RS("ID")%>" title="Ta bort<%=rs("title")%>"><font color="red">Ta bort</font></a>
<td width="76" class="leftbar"><p align="center"><%If Rs("LargeImage") ="x" then response.write "erbjudande"%></td>
<td width="40" class="leftbar"><p align="center"><%If Rs("new") ="x" then response.write "nyhet"%>&nbsp;</td>
<td width="87" class="leftbar"><%=rs("price")%>Kr&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("antal")%> st</td>
</tr><tr>
<td colspan="6" height="1" width="100%"><hr size="1"></td>
</tr>
</table>
<%RS.MoveNext
Loop
end if
</code>

Du får helt enkelt hålla koll på första bokstaven i det ord du skriver ut

Pseudokod:

Dim forstaBokstav
forstaBokstav=""

do until slut på poster

 If förstatecknet_i_ordet<>forstaBokstav Then
   forstaBokstav=förstatecknet_i_ordet   
   Response.write("<a name="""&forstaBokstav&"""></a>")
 End If  

Loop

Tack för din "pseudokod", det gav en fin förklaring hur jag skulle gå tillväga, funkar fint
Tack
//Jocke