CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

hartnet.dk Nybegynder

08. marts 2004 - 17:34 Der er 1 kommentar og
1 løsning

Udskriv recordset i alfebetisk orden

Hej folkens....

Er der nogen der ved om man kan få en Extension til DW MX, så man få den til at gøre så ledes:

Kategori1
Produkter under K1

Kategori2
Produkter under K2

osv ...

Eller hvordan man kan gøre ???

Synes godt om

hartnet.dk Nybegynder

08. marts 2004 - 17:35 #1

Glemte at sige, at det skal sammen med ASP + MySQL

Synes godt om

bojohansen Nybegynder

08. marts 2004 - 20:44 #2

Det gør der sikkert ikke.
Jeg har en menu her som du kan lave lidt om på eller redigere som det passer dig :

<body link="#0000FF" alink="#FF0000" text="#0000FF" vlink="#0000FF">
<%
strRoot = Request("root"): If strRoot = "" Or Not IsNumeric(strRoot) Then strRoot = -1 ' To avoid failiure in CInt()
strKat = Request("kat"): If strKat = "" Or Not IsNumeric(strKat) Then strKat = -1 ' - ditto -
strSubKat = Request("sub"): If strSubKat = "" Or Not IsNumeric(strSubKat) Then strSubKat = -1 ' - ditto -

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\home\bo-johansenadsldk\db\varer.mdb"

Set Rs = Conn.Execute("SELECT * FROM kategorier WHERE parent=0 ORDER BY sort;") ' Top kategorier has 0 as Parent.

Do Until Rs.EOF
Select Case (Cint(strRoot) = Rs("id"))
Case True: Response.Write "<img src='left.gif'><a href='default.asp' class='cat'> "& Rs("navn") & "</a> " & vbCrLf
Case False: Response.Write "<img src='left.gif'><a href='default.asp?root=" & Rs("id") & "' class='cat'>"& Rs("navn") & "</a> " & vbCrLf
End Select

If (Cint(strRoot) = Rs("id")) Then
Set KatRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & Rs("id") & ";")
Set SubIDRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & KatRs("id") & ";")

Do Until KatRs.EOF
Select Case CInt(KatRs("hassub")) = 1
Case True: Response.Write "<img src='subclick.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&subkat=" & SubIDRs("id") & "'>" & KatRs("navn") & "</a> " & vbCrLf
Case False: Response.Write "<img src='items.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&showart=1'>" & KatRs("navn") & "</a> " & vbCrLf
End Select

If (Cint(strKat) = KatRs("id")) Then
Set SubRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & strKat & ";")

Do Until SubRs.EOF
Response.Write "  <img src='sub.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&subkat=" & SubRs("id") & "&showart=1'>" & SubRs("navn") & "</a> " & vbCrLf

SubRs.movenext
Loop
End If

KatRs.movenext
Loop
End If

Rs.movenext
Loop

Conn.Close
Set Conn = Nothing
%>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Programmeringsværktøjer kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
senior Af Uroda i Programmeringsværktøjer	1	22/06/202418:29	23/06/202413:17
Sort Skærm Af Kaj Sondrup i Programmeringsværktøjer	5	25/02/202421:45	27/02/202420:17
DATA (D) Af rene1111 i Programmeringsværktøjer	3	21/02/202415:03	22/02/202409:08
Power Automate, åben en fil der er delt med mig Af KATM i Programmeringsværktøjer	1	16/02/202409:07	19/02/202409:10
Prisberegner til hjemmeside Af Michael Vahl i Programmeringsværktøjer	4	14/01/202417:30	21/01/202409:21

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS