---
title: "Skriva ut sub kategorier"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11977-skriva-ut-sub-kategorier"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hallgren"
published: "2001-10-06T13:07:00.000Z"
updated: "2001-10-06T19:14:00.000Z"
replies: 15
views: 246
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/11977-skriva-ut-sub-kategorier"
---

# Skriva ut sub kategorier

## #1 — Hallgren, 2001-10-06T13:07Z

Försöker hämta och skriva ut de sub kategorier som tillhör just sin kategori. Den kod vi leker med nu är..

Kod 1, rad upp kategorier(funkar)

```

<%

Dim Connect

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={MySQL};Server=localhost;Db=Webshop;UID=;pwd=;"

strSQL = "SELECT * FROM kategori ORDER BY kat"

Set rs = Connect.Execute( strSQL )

Do until rs.EOF
%>

<a href="sub.asp?katnr=<%=rs("kat")%>"><%=rs("kat")%></a>

<%
rs.Movenext
Loop
%>
```

Kod 2, hämta sub kategorier(funkar inte)

```
<%
katnr = Request.Querystring("katnr")

Dim Connect

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={MySQL};Server=localhost;Db=Webshop;UID=;pwd=;"

strSQL = "SELECT * FROM varor WHERE kategori= " & katnr & " "

Set rs = Connect.Execute( strSQL )

Do until rs.EOF
%>

<%=varor("vara")%>

<%
rs.Movenext
Loop
%>
```

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

## #2 — icaaq, 2001-10-06T13:27Z

Hur ser SQL-satsen ut när du skriver ut den med Response.Write ?

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

## #3 — icaaq, 2001-10-06T13:29Z

```
[b]<%=varor("vara")%>[/b]

ska nog vara

<%=rs("vara")%>
```

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

## #4 — LarsG, 2001-10-06T13:29Z

Ser inget direkt.

Något felmeddelande?

Red: icaaq har nog rätt.

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

## #5 — Hallgren, 2001-10-06T13:34Z

Aaarrghh, glömde fel medelandet.
I dbn har jag två tabeller.
Första tabellen (varor) har jag id, vara, pris, info och kategori. Andra tabellen (kategori) har jag id och kat.

Felmedelande..

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
\[TCX\]\[MyODBC\]Unknown column 'djur' in 'where clause'
/webshop/sub.asp, line 23

Mmmmm... :l

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

## #6 — LarsG, 2001-10-06T13:48Z

```
strSQL = "SELECT * FROM varor WHERE kategori= '" & katnr & "'"
Set rs = Connect.Execute( strSQL )

Do until rs.EOF
%>

<%=rs("vara")%>

<%
rs.Movenext
Loop
%>
```

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

## #7 — Hallgren, 2001-10-06T13:52Z

Aarrggh, han gör det igen! ;) 100-0 till LarsG! :e Funkar prima!! :)

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

## #8 — Hallgren, 2001-10-06T16:15Z

Kan väl likabra fråga en sak till när jag ändå är igång. ;)

Om man vill att dessa sub kategorier placeras under rätt kategori hur går man då tillvägas då?

Har provat lite med olika lopar men blir inge bra. :l

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

## #9 — LarsG, 2001-10-06T16:20Z

Vadå placeras?

Vill du ha något som

Djur
\----
    Hamstrar
    Marsvin
    Illrar

Manicker
\--------
    Rulltrappor
    Hissar
    Väderkvarnar

Kan du beskriva lite mer.

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

## #10 — Hallgren, 2001-10-06T16:22Z

Precis som du skriver men detta ska komma fram när man klickar på dem. :)

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

## #11 — LarsG, 2001-10-06T18:05Z

Det var lite för knapphändigt för att jag skall förstå vad du menar.

Du kanske vill ha något dynamiskt med javaskript så att underkategorierna syns när man för muspekaren över en huvudkategori eller?

Kan du exemplifiera lite mer eller kan du visa din nuvarande kod och säga lite mer exakt i vilket avseende den inte fungerar som du tänkt dig.

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

## #12 — Hallgren, 2001-10-06T18:14Z

Då min nuvarande kod inte funkar så bra så skippar jag det. ;)

På förstasifan skall alla kategorier radas upp, detta är inga prob. men sen när man tex klickar på "djur" så skall den hämta den info som tillhör denna kategori och rada upp under "djur". Det är meningen att allt detta skall göras i asp.

Som sagt var så har jag försökt med en loop men blir välidgt knasigt. Måste på något sätt att placera rätt info under rätt kategori när man klickar.

Liten bättre? :)

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

## #13 — LarsG, 2001-10-06T18:30Z

Ko.

```
<%
Dim katnr,rs,rssub,strSQL
katnr = request.querystring("katnr")
Dim Connect

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={MySQL};Server=localhost;Db=Webshop;UID=;pwd=;"

strSQL = "SELECT * FROM kategori ORDER BY kat"

Set rs = Connect.Execute( strSQL )

Do until rs.EOF
%>

<a href="sub.asp?katnr=<%=rs("kat")%>"><%=rs("kat")%></a>

<%
if katnr = rs("kat") then
   strSQL = "SELECT * FROM varor WHERE kategori= '" & katnr & "'"
Set rssub = Connect.Execute( strSQL )
Do until rssub.EOF
%>

<%=rssub("vara")%>

<%
rssub.Movenext
Loop
rssub.close
set rssub = nothing
%>

rs.Movenext
Loop
%>
```

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

## #14 — Hallgren, 2001-10-06T18:59Z

Borde det inte finnas ett elseif och ett end if om man kör en If satts, plus så ska väl

```
rs.Movenext
Loop
%>
```

Ha ett \<% eller?

Får upp "Expected End".

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

## #15 — LarsG, 2001-10-06T19:09Z

Jo, det blev lite fel där ...

Ett end if saknas och så var det en %\> för mycket

```
<%
Dim katnr,rs,rssub,strSQL
katnr = request.querystring("katnr")
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={MySQL};Server=localhost;Db=Webshop;UID=;pwd=;"

strSQL = "SELECT * FROM kategori ORDER BY kat"

Set rs = Connect.Execute( strSQL )

Do until rs.EOF
%>

<a href="sub.asp?katnr=<%=rs("kat")%>"><%=rs("kat")%></a>

<%
if katnr = rs("kat") then
strSQL = "SELECT * FROM varor WHERE kategori= '" & katnr & "'"
Set rssub = Connect.Execute( strSQL )
Do until rssub.EOF
%>

<%=rssub("vara")%>

<%
rssub.Movenext
Loop
rssub.close
set rssub = nothing
[b]end if[/b]

rs.Movenext
Loop
%>
```

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

## #16 — Hallgren, 2001-10-06T19:14Z

Du glömde säga "*Även solen har sina fläckar*" ;) :e

Detta är andra gången du har räddat mig idag, så nu kanske jag hinner klar och slipper jobba imorgon. :)

Tusen tack!!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11977-skriva-ut-sub-kategorier