Skriva ut sub kategorier

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

------------------
Korvfarbror--Med ring på fingret

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

ska nog vara

<%=rs("vara")%>

------------------
Korvfarbror--Med ring på fingret

Ser inget direkt.

Något felmeddelande?

Red: icaaq har nog rätt.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 06 okt 2001]

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

------------------
Forumledare, webForum

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

Do until rs.EOF
%>

<%=rs("vara")%>

<%
rs.Movenext
Loop
%>

------------------
essentitia preter non sans multiplicandum

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

------------------
Forumledare, webForum

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

------------------
Forumledare, webForum

Vadå placeras?

Vill du ha något som

Djur
----
Hamstrar
Marsvin
Illrar

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

Kan du beskriva lite mer.

------------------
essentitia preter non sans multiplicandum

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

------------------
Forumledare, webForum

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.

------------------
essentitia preter non sans multiplicandum

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? :)

------------------
Forumledare, webForum

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

------------------
essentitia preter non sans multiplicandum

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

------------------
Forumledare, webForum

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

------------------
essentitia preter non sans multiplicandum

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

------------------
Forumledare, webForum