sql

Prøv at rette det til Response.Write rs.fields("Kategorier")

Du har ikke Navn med i din from clause.

//akj

du skal skrive sådan:

SQL= "select TabelNavn.KolonneNavn from TabelNavn"

også bliver:
Response.write rs.fields("KolonneNavn")

Dus kal selvfølgelig havde de tabeller med, som du selecter fra.
Til gengæld behøver du ikke at skrive Navn. foran, hvis der ikke er andre kolonner i de andre tabellser, som hedder Underkategorier1 osv.

Har rettet det til følgende nu da jeg havde byttet om på tabel og kolonne ... men jeg får stadig den samme fejl:

sql = "SELECT Kategorier.Navn, Underkategorier1.Navn, Underkategorier2.Navn FROM Kategorier"   
Response.write rs.fields("Kategorier.Navn")

Det skal nok lige siges at jeg benytter en mysql database ...

dk akj ... jeg forstår ikke hvad du mener

hvad hedder din tabel?
Hvad hedder de kolonner som du vil vælge?

jeg har følgende tabeller:

Kategorier
Underkategorier1
Underkategorier2

I alle tabellerne er der følgende kolonner:
Navn
Id

Nåh nåh, så er det ikke på den måde. Du skal joine disse tabeller sammen hvor værdien i kolonner har samme betydnig, men du kan klare dette problam med 2 tabeller.

nej jeg skal ikke have dataen joinet ... det skal jo udskrives som følgende:

Navn 1 fra kategorier
Navn 2 fra kategorier
  Navn 1 fra underkategorier 1
    Navn 1 fra underkategorier 2
    Navn 2 fra underkategorier 2
  Navn 2 fra underkategorier 1
Navn 3 fra kategorier

SELECT Kategorier.Navn AS KatNavn, Underkategorier.Navn AS UKat1Navn, Underkategorier2.Nanv AS UKat2Navn FROM ....


Response.Write rs.fields("KatNavn")
Response.Write rs.fields("UKat1Navn")
Response.Write rs.fields("UKat2Navn")

Det giver følgende ...

[TCX][MyODBC]Unknown table 'Underkategorier1' in field list

Jeg har sat den til: From Kategorier ... er det rigtigt eller hvad skal jeg sætte den til ...

sql = "SELECT Kategorier.Navn AS KatNavn, Underkategorier1.Navn AS UKat1Navn, Underkategorier2.Nanv AS UKat2Navn FROM Kategorier"

FROM kategorier, Underkategorier1, Underkategorier2

SELECT Kategorier.Navn FROM Kategorier UNION SELECT Underkategorier1.Navn FROM Underkategorier1 UNION SELECT Underkategorier2.Navn FROM Underkategorier2

Response.Write rs.fields("Navn")

så behøver du ikke skelne mellem feltnavne for de tre tabeller

Nu begynder det at ligne noget men den skrive det samme en helt masse gange og den samler ikke alle Underkategorier1.Navn lige under hinanden ... hvordan skal det så stilles op?

Her er min kode:

'Åbn recordsæt               
sql = "SELECT Kategorier.Navn AS KatNavn, Kategorier.id AS Katid, Underkategorier1.Navn AS UKat1Navn, Underkategorier1.id AS UKat1id, Underkategorier2.Navn AS UKat2Navn FROM Kategorier, Underkategorier1, Underkategorier2"   
Set rs = Conn.Execute(SQL)

do until rs.eof

response.write "<tr>" & _
              "<TD width=18 height=15></TD>" & _
              "<TD width=10 height=15>"
             
If session("Navn") = rs.fields("KatNavn") Then
response.write "<IMG height=5 src=""firkant_fyld.gif"" width=5></TD>"& _
              "<TD bgColor=#dfebc8 height=15><B>"
Else
response.write "</TD>" & _
              "<TD height=15><B>"
End If

response.write "<A href=""http://www.just2funny.dk/1/index.asp?Navn=" & rs.fields("KatNavn") & """>" & rs.fields("KatNavn") & _
              "</A></B></TD>" & _
              "</tr>"

If session("Navn") = rs.fields("KatNavn") and rs.fields("Katid") = rs.fields("Ukat1id") Then
response.write "<TD width=18></TD>" & _
              "<TD width=10></TD>" & _
              "<TD>" & _
                "<TABLE height=20 cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & _
                  "<TBODY>" & _
                  "<TR>" & _
                    "<TD width=10 height=10></TD>" & _
                    "<A href=""http://www.just2funny.dk/1/index.asp?Navn=" & rs.fields("UKat1Navn") & """>" & rs.fields("UKat1Navn") & _
                    "</A></B></TD>" & _
                    "</TBODY></TABLE></TD>"
End If

rs.MoveNext
loop

'Ryd op
rs.close
set rs=Nothing
conn.close
set conn=Nothing


Jeg smide lige nogle flere point i puljen!

I kan se hvordan det er den skriver det forkert op her:

http://www.just2funny.dk/1/index.asp?Navn=Vitser

Jeg har fundet ud af ved udlukkelsmetoden at det er denne der giver problemet med at de vises så mange gange:

sql = "SELECT Kategorier.Navn AS KatNavn, Kategorier.id AS Katid, Underkategorier1.Navn AS UKat1Navn, Underkategorier1.id AS UKat1id, Underkategorier2.Navn AS UKat2Navn FROM Kategorier, Underkategorier1, Underkategorier2"   

Hvad kan jeg gøre ved det?

Mangler du ikke noget GROUP BY  eller ORDER BY ?

Er det nødvendigt når jeg bruger en From med flere tabeller?

Hvad vil være det bedste i mit tilfælde ... en order by vel eller hva?

Ikke fordi jeg vil blande mig i, hvordan du strukturerer dine kategorier og underkategorier, men alligevel....

Du har lidt gravet dig ned i et hul her. I stedet skal du nok tænke det som en træstruktur, hvor kategorierne kan have underliggene kategorier. Her kommer lige en ultrasimpel ide:

Du har én tabel - kategorier

Som har felterne - ID, ParentID, Navn

Den yderste kategori har parentid 0. Hvis en kategori har en underkategori, som er underkategoriens parentid overkategoriens id.

Så henter du det a la det her:

Sub RtrnKat(pid)
  Dim rs
  Dim rs_sql
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs_sql = "SELECT Navn, ID FROM Kategorier WHERE ParentID = " & pid
  rs.Open rs_sql, Conn, 1, 1
  Do While Not rs.EOF
      Response.Write "<BR>" & rs("Navn")
      Call RtrnKat(rs("ID"))
      rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
End Sub

Call RtrnKat(0)

Så skriver du træhirarkiet ud. Samtidig er din løsning meget simplere og mere fleksibel. Det står dig frit for at lægge en ORDER BY ind afhængigt af, hvordan du vil sortere din struktur.

Jeg har altså ikke afprøvet ovenstående, så måske er der et par slåfejl eller noget...

mri ... hvis jeg så oprette en tabel følgende:

ID, KatID, Under1ID, Under2ID, Navn

Hvordan kan jeg så kalde det hele frem når strukturen er som følgende:
Den yderste kategori har KatID 1. Dens underkategorier har Under1id 1 og underkategorierne har under2id 1. Altså så det hele høre sammen således:

Kategori 1
Kategori 2
  Under Kategori 1
    Under Under Kategori 1
    Under Under Kategori 2
  Under Kategori 2
Kategori 3

Jeg tror ikke, at du helt har fanget pointen endnu.

Du behøver ikke at felterne under1ID og under2ID i tabellen. Kategoriernes indbyrdes forhold (kategori, underkategori1 og underkategori2) styres med feltet ParentID. Et eksempel:

id:      parentid:      navn:
1        0              kategori1
2        1              underkategori1 til kategori1
3        1              underkategori2 til kategori1
4        0              kategori2
5        4              underkategori3 til kategori2
6        5              underunderkategori1 til underkategori3

I html bliver det formatteret sådan her:

kategori1
    underkategori1
    underkategori2
kategori2
    underkategori3
          underunderkategori1


Ovenstående kode(mri 02/04-2003 09:41:20) skriver først den første kategori med parentid 0 ud - og så kalder den sig selv, men skriver så alle kategorier med den førstes id som parentid ud.

Smart ikke? Det her eksempel er meget grundlæggende, man kan bygge en masse ting ind i det.

Nu har jeg fået det hele ændre og har fået koden lavet om til følgende:

Sub RtrnKat(pid)
  Dim rs
  Dim rs_sql
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs_sql = "SELECT Navn, ID, ParentID FROM Kategorier WHERE ParentID = " & pid
  rs.Open rs_sql, Conn, 1, 1
  Do While Not rs.EOF
        If rs("ParentID") <> 0 Then
        response.write "<TD width=18></TD>" & _
                        "<TD width=10></TD>" & _
                        "<TD>" & _
                        "<TABLE height=20 cellSpacing=0 cellPadding=0 width=""100%"" border=0>" & _
                        "<TBODY>" & _
                        "<TR>" & _
                      "<TD width=10 height=10></TD>" & _
                      "<A href=""index.asp?Navn=" & rs("Navn") & """>" & rs("Navn") & _
                      "</A></B></TD>" & _
                      "</TBODY></TABLE></TD>"
        Else
                   
        Response.Write "<tr>" & _
                      "<TD width=18 height=15></TD>" & _
                      "<TD width=10 height=15>"
             
        If session("Navn") = rs("Navn") Then
        Response.Write "<IMG height=5 src=""firkant_fyld.gif"" width=5></TD>"& _
                      "<TD bgColor=#dfebc8 height=15><B>"
        Else
        Response.Write "</TD>" & _
                        "<TD height=15><B>"
        End If

        Response.Write "<A href=""index.asp?Navn=" & rs("Navn") & """>" & rs("Navn") & _
              "</A></B></TD>" & _
              "</tr>"
        End If     
      Call RtrnKat(rs("ID"))
      rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
End Sub

Call RtrnKat(0)

GLEM OVERSTÅENDE KOMMENTAR ... DET VAR EN FEJL AT DEN BLEV POSTET ... LÆS VENLIGST NÆSTE KOMMENTAR!

Nu har jeg fået det hele ændre og har fået koden lavet om til følgende:

Sub RtrnKat(pid)
  Dim rs
  Dim rs_sql
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs_sql = "SELECT Navn, ID, ParentID FROM Kategorier WHERE ParentID = " & pid
  rs.Open rs_sql, Conn, 1, 1
  Do While Not rs.EOF
        Response.Write "<tr>" & _
                      "<TD width=18 height=15></TD>" & _
                      "<TD width=10 height=15>"
             
        If session("Navn") = rs("Navn") Then
        Response.Write "<IMG height=5 src=""firkant_fyld.gif"" width=5></TD>"& _
                      "<TD bgColor=#dfebc8 height=15><B>"
        Else
        Response.Write "</TD>" & _
                        "<TD height=15><B>"
        End If

        If rs("ParentID") <> 0 Then
        Response.Write "<A href=""index.asp?Navn=" & rs("Navn") & """>" & "&nbsp;&nbsp;" & rs("Navn")
        Else
        Response.Write "<A href=""index.asp?Navn=" & rs("Navn") & """>" & rs("Navn")
        End If
       
        Response.Write "</A></B></TD>" & _
              "</tr>"     
      Call RtrnKat(rs("ID"))
      rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
End Sub

Call RtrnKat(0)

Mit problem er nu at den skriver alle Under Kategorier ud og ikke kun dem for hvilke der gælder at session("id") = rs("parentid")

Udskift:
Call RtrnKat(rs("ID"))

Med:
If Session("ID") = rs("ID") Then RtrnKat(rs("ID"))

Så skriver den kun underkategorierne ud, hvis kategori id'en er lig med Session("ID")

Så laver den det rigtigt ... men (Der er altid et men :-D)

Når man trykker på en af underkategorierne så viser den den ikke som markeret og lukker hele menuen ... check http://www.just2funny.dk/1 for at se hvad det er jeg mener ...

Desuden skal det være sådan at når man trykker på en af underkategorierne så skal den vise underkategorierne til underkategorien ... men jeg ved ikke hvordan jeg skal skrive det sammen med koden.

Skal nok lige smide nogle ekstra point i opgaven.

Du kan lave et hack.

Før sub:

Request("kID")
Request("ukID")
Dim kID
Dim ukID

Udskift:
  Do While Not rs.EOF

Med:
  Do While Not rs.EOF
      If rs("parentID") = 0 Then kID = rs("parentID")

Udskift dine links:
<A href=""index.asp?kID=" & kID & "&ukID=" & rs("id") & """>


Udskift:
If Session("ID") = rs("ID") Then RtrnKat(rs("ID"))

Med:
If Session("ID") = rs("ID") Then RtrnKat(rs("ID"))
If kID = rs("ID") Then RtrnKat(rs("ID"))
If ukID = rs("ID") Then RtrnKat(rs("ID"))

Der er lige en fejl i ovenstående. Ignorer Request("kID") og Request("ukID") før Dim i toppen - de skal ikke med.

Nu har jeg ændret det til følgende:

Dim kID
Dim ukID

Sub RtrnKat(pid)
  Dim rs
  Dim rs_sql
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs_sql = "SELECT Navn, Id, ParentID FROM Kategorier WHERE ParentID = " & pid & " Order By Prioritet asc, Navn asc"
  rs.Open rs_sql, Conn, 1, 1
  Do While Not rs.EOF
      If rs("parentID") = 0 Then kID = rs("parentID")
        Response.Write "<tr>" & _
                      "<TD width=18 height=15></TD>" & _
                      "<TD width=10 height=15>"
             
        If CInt(session("Kategorie")) = CInt(rs("Id")) Then
        Response.Write "<IMG height=5 src=""firkant_fyld.gif"" width=5></TD>"& _
                      "<TD bgColor=#dfebc8 height=15><B>"
        Else
        Response.Write "</TD>" & _
                        "<TD height=15><B>"
        End If

        If rs("ParentID") <> 0 Then
        Response.Write "<A href=""index.asp?kID=" & kID & "&ukID=" & rs("id") & """>" & "&nbsp;&nbsp;" & rs("Navn")
        Else
        Response.Write "<A href=""index.asp?kID=" & kID & "&ukID=" & rs("id") & """>" & rs("Navn")
        End If
       
        Response.Write "</A></B></TD>" & _
                      "</tr>"     
      If Session("ID") = rs("ID") Then RtrnKat(rs("ID"))
      If kID = rs("ID") Then RtrnKat(rs("ID"))
      If ukID = rs("ID") Then RtrnKat(rs("ID"))
      rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
End Sub

Call RtrnKat(0)

Resultatet kan ses på www.just2funnny.dk/1 ... som det ses så sker der nu intet når man trykker på de forskellige menuer ...

mri ... jeg har valgt at fortsætte problemet i et nyt spørgsmål da det er ved at blive lidt meget forvirrende ... tak for hjælpen indtil nu ...

hvis du vil hjælpe mig vider så er det nye spørgsmål her:

http://www.eksperten.dk/spm/339156