Alfabetisk database ud....

Samme spørgsmål må ikke oprettes flere gange.

undskyld men jeg kom til at ligge under noget forkert....

Brug disse 2 linier i toppen af din side:
strLetter = Request.QueryString(\"letter\")
if strLetter <> \"\" Then strLetter = LEFT(strLetter,1)

Herefter dette til at udskrive links til at vise de forskellige bogstaver.
strLetters = \"#ABCDEFGHIJKLMNOPQRSTUVWXYZ\"

FOR i = 1 TO LEN(strLetters)
    If strLetter =     MID(strLetters,i,1) Then
        Response.Write \"<b><a href=\"\"siden.asp?letter=\" & Server.UrlEncode(MID(strLetters,i,1)) & \"\"\">\" & MID(strLetters,i,1) & \"</a></b> | \"
    Else
        Response.Write \"<a href=\"\"siden.asp?letter=\" & Server.UrlEncode(MID(strLetters,i,1)) & \"\"\">\" & MID(strLetters,i,1) & \"</a> | \"
    End If
NEXT

Så denne kode til at lave din sql:

if strLetter <> \"\" Then
    If strLetter = \"#\" Then
    sqlAdd = \"[0-9]%\"
    Else
    sqlAdd = strLetter
    End If
    sql = \"SELECT * FROM tabel Where Feltnavn LIKE \'\"& sqlAdd & \"%\' Order By Feltnavn\"
    End If

Sidst men ikke mindst en alm. while til at skrive det ud.
Rs.Open sql,Conn
While not Rs.EOF
skriv ud-- :-)
Rs.MoveNext
WEND
Rs.Close

Sådan cirka. :-)

Mvh
Jesper

den kan ikke lide denne line


<%bogstaver.strLetters = \"#ABCDEFGHIJKLMNOPQRSTUVWXYZ\"%>

T-rex

strLetters = \"#ABCDEFGHIJKLMNOPQRSTUVWXYZ\"

ikke

bogstaver.strLetters = \"#ABCDEFGHIJKLMNOPQRSTUVWXYZ\"

:-)

/Jesper

så kommer dennne fejl...

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'Rs\'
/prøve.asp, line 58


Rs.Open sql,Conn


T-rex

Kender du noget til ASP i forvejen eller er du helt nybegynder?

Bare rat at vide for hvor meget jeg skal forklare.

Oventående er fordi der ikke er opretttet noget recordset objekt.

Skriv dette over Rs.Open

Set Rs = Server.CreateObject(\"ADODB.RecordSet\")

Mvh
JEsper

Ok jeg tror at jeg bliver nådtil at indrømme at jeg er kun igang med at lære asp så er ikke så god til det i nu... så det ville være rat vis du ikke skrev i forkortelser...

Håber du stadig væk gidder at hjælpe mig...

T-rex

Det er faktisk ret simpel...

<%
SQL = \" select * from ordlist order by ord\"
Set rs= conn.execute(SQL)
Do until rs.EOF
  strord = rs(\"ord\")
    LetterCategory  = UCase(left(strord,1))

    If tmp <> LetterCategory then
        Response.Write \"<a href=\'Filnavn.asp?char=\"& LetterCategory &\"\'>\"& LetterCategory &\"</a>&nbsp;&nbsp;\"
        tmp = LetterCategory
    End if
    Rs.movenext
    loop
%>

Ares