Skriva ut sub kategorier

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

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

ska nog vara

<%=rs("vara")%>

Ser inget direkt.

Något felmeddelande?

Red: icaaq har nog rätt.

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...

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

Do until rs.EOF
%>

<%=rs("vara")%>

<%
rs.Movenext
Loop
%>

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

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.

Vadå placeras?

Vill du ha något som

Djur
----
Hamstrar
Marsvin
Illrar

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

Kan du beskriva lite mer.

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

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.

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?

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
%>

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".

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
%>

Du glömde säga "Även solen har sina fläckar"

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

Tusen tack!!