Menu baseret på database

Du skal ud i noget med at joine og tælle. Det kunne være noget i stil med:

SELECT V.Titel, Count(E.emne) AS AntalEmner
FROM Varer AS V
INNER JOIN Emner AS E ON V.emne = E.ID
GROUP BY V.titel

Dette skulle give et resultat med flg. felter:
Titel
AntalEmner

Jeg antager i dette eksempel at du har flg. tabeller:
Varer =
  titel  (som er f.eks. ølglas)
+ emne    (som er en fremmednøgle der peger på primærnøglen i emner)
+ tekst 

Emner =
  ID      (som er primærnøgle)
+ emne    (som er teksten for emnet)

Desuden forventes det at du benytter Access (ellers skal du fjerne AS efter tabelnavnene i JOIN-udtrykket).

Hej softspot, og tak for din hurtige respons.
jeg bruger Access

I tabellen "emner" har jeg kun feltet emne, da de alligevel er unikke for den tabel.
Derfor har jeg så udskiftet E.ID med E.emne

Når jeg bruger din sql sætning, så skriver den alle poster ud, og ved AntalEmner, skriver den 1 ud for hver, men den tæller dem ikke sammen.
Når jeg laver en
<%=(RSantik.Fields.Item("AntalEmner").Value)%>
Står der således bare [1], men på den anden side, fortæller den streng jeg laver jo heller ikke hvilket emne den skal tælle sammen...

Hmm... mon jeg lige skal kigge lidt på GROUP BY...

Øjeblik :)

Står teksten til et emne på selve varen, altså er nøglen den faktiske tekst (f.eks. "glas"), for så behøver du ikke lave en join, så burde du bare kunne gruppere på emne i varetabellen...

sludder du skal stadig gruppere på title, men altså undlade JOIN. Således

SELECT titel, COUNT(emne) AS antalEmner
FROM Varer
GROUP BY titel

Nå, det lader til at jeg har fået startet på det forkerte udtræk - undskyld. Du skal jo bruge emneteksten og antallet af gange det er brugt. Det må være således:

SELECT emne, COUNT(emne) AS antalEmner
FROM varer
GROUP BY emne

Ja tredje gang var lykkens gang :), det virker med at tælle antallet af emner.
Hvordan får jeg den så til at skrive ud?
Som sagt, når jeg bruger
<%=(RSantik.Fields.Item("AntalEmner").Value)%>
Tager den vel bare den første og bedste post og skriver ud...

Noget i stil med dette:

<%
response.write "Emner:<br>"
do while not rsantik.eof
  response.write "&nbsp;&nbsp;" & cstr(rsantik("emne")) & " [" & cint(rsantik("antalEmner")) & "]<br>"
  rsantik.movenext
loop
%>

...og et svar hvis det skulle blive nødvendigt :)

Du er ihvertfald sikker på halvdelen af pointene, for det du har givet mig, virker 100%.
Jeg må dog lige vente med at give dig dine points, indtil nogen har hjulpet mig med 2. halvdel af spørgsmålet(linkfunktionen), ellers er der vist nogen der bliver tvære!

Ups! Den del havde jeg slet ikke set, sorry.

Så skal du ændre loopet til at se således ud:

<%
response.write "Emner:<br>"
do while not rsantik.eof
  response.write "&nbsp;&nbsp;<a href=""side2.asp?id=" & cstr(rsantik("emne")) & """>"
  response.write cstr(rsantik("emne")) & " [" & cint(rsantik("antalEmner")) & "]</a><br>"
  rsantik.movenext
loop
%>

På side 2 skal du så bruge flg. SQL:

SQL = "SELECT titel, tekst, emne" & _
"FROM varer " & _
"WHERE emne = '" & cstr(request.querystring("emne")) & "'"

Derefter skal du indsætte flg. loop:

<%
response.write "<table>"
do while not rsantik.eof
  response.write "<tr>"
  response.write "<td>" & cstr(rsantik("titel")) & "</td>"
  response.write "<td>" & cstr(rsantik("tekst")) & "</td>"
  response.write "<td>" & cstr(rsantik("emne")) & "</td>"
  response.write "</tr>"
  rsantik.movenext
loop
response.write "</table>"
%>

Ok, det var godt du var hooked på sidste del også :)

Når jeg indsætter din linkfunktion, kan jeg kun se "Emner:"
Løkken vises ikke

Tjek lige dette.

Jeg har selv tilpasset din response.write, så de nu looper inde i en tabel.

<table width="90%"  border="0" align="right" cellpadding="0" cellspacing="0">
<%
do while not rsantik.eof
%>
              <tr>
                <td height="20" valign="bottom" > <div align="left" class="style12"><a href=""side2.asp?id=" & cstr(rsantik("emne")) & """>
                  <strong>&#8226;<%response.write "&nbsp;&nbsp;" & cstr(rsantik("emne"))%></strong></a>&nbsp;<%response.write "[" & cint(rsantik("antalEmner")) & "]"%>
</div></td>
              </tr>
<%
  rsantik.movenext
loop
%>
            </table>

Løkken fungerer, og IE registrerer godt nok at der er et link, men desværre fører linket bare til localhost/antik.

Du har blandet HTML og serverside script lidt sammen. Jeg tænker specielt på den del hvor du trækker rsantik("emne") ud til href i dit link. Enten så skal du lave inline script omkring det udtræk (se eksempel 1), ellers skal du gøre som jeg gjorde og lave det hele som script (det performer iflg. diverse kilder også bedre hvis man undgår at skifte mellem serverside script og HTML - se eksempel 2)

Eksempel 1:
<table width="90%"  border="0" align="right" cellpadding="0" cellspacing="0">
<%
do while not rsantik.eof
%>
<tr>
  <td height="20" valign="bottom">
    <div align="left" class="style12"><a href="side2.asp?id=<%= cstr(rsantik("emne")) %>">
      <strong>&#8226;&nbsp;&nbsp;<%= cstr(rsantik("emne")) %></strong></a>&nbsp;[<%= cint(rsantik("antalEmner")) %>]
      </div></td>
  </tr>
<%
  rsantik.movenext
loop
%>
</table>

Eksempel 2:
<%
response.write "<table width=""90%"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
do while not rsantik.eof
  response.write " <tr>" & vbCrLf
  response.write "  <td height=""20"" valign=""bottom"">" & vbCrLf
  response.write "    <div align=""left"" class=""style12""><a href=""side2.asp?id=" & cstr(rsantik("emne")) & """>" & vbCrLf
  response.write "      <strong>&#8226;&nbsp;&nbsp;" & cstr(rsantik("emne")) & "</strong></a>&nbsp;[" & cint(rsantik("antalEmner")) & "]" & vbCrLf
  response.write "      </div></td>" & vbCrLf
  response.write "  </tr>" & vbCrLf

  rsantik.movenext
loop

response.write "</table>" & vbCrLf

Hvis du er træt af alle de der dobbelte anførselstegn kan du bruge apostrof til attributværdierne i HTML - det bliver nok lidt lettere at overskue på den måde :)

Eksempel:
response.write "  <td height='20' valign='bottom'>" & vbCrLf

Ja, man kan i mange tilfælde endda undlade apostrof/anførselstegn omkring attributter i HTML-kode (hvis det er en sammenhængende streng, dvs. ingen mellemrum).

Eksempel:
response.write "  <td height=20 valign=bottom>" & vbCrLf

Vær dog opmærksom på at den sidste metode er gammeldags og bør undgås aht. kompatibilitet med nyere HTML-standarder)... :)

Det går nok med anførelsestegnene, så dem holder jeg mig bare til...

OK nu virker linfunktionen, og vi nærmer os den totale løsning!

Der er lige en fejl på side2.asp

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'
Et objekt er obligatorisk: ''

/antik/side2.asp, linje 18

16  <%
17  response.write "<table>"
18  do while not rsantik.eof
19  response.write "<tr>"
20  response.write "<td>" & cstr(rsantik("titel")) & "</td>"
21  response.write "<td>" & cstr(rsantik("tekst")) & "</td>"
22  response.write "</tr>"
23  rsantik.movenext
24  loop
25  response.write "</table>"
26  %>

Ja, du skal også hente data fra databasen på denne side som du har gjort på den første side hvor du genererer menuen...

rsantik er naturligvis stadig det resultat dine connection.execute returnerer.

Vis evt. hele koden fra den første side, hvis du ikke kan få side to's kode til at hænge sammen :)

Ok her får du lige koden, for jeg er nemlig ikke helt med... :)

Side 1:
Mit Recordset

<%
Dim RSantik
Dim RSantik_numRows

Set RSantik = Server.CreateObject("ADODB.Recordset")
RSantik.ActiveConnection = MM_antik_STRING
RSantik.Source = "SELECT emne, COUNT(emne) AS antalEmner  FROM varer  GROUP BY emne"
RSantik.CursorType = 0
RSantik.CursorLocation = 2
RSantik.LockType = 1
RSantik.Open()

RSantik_numRows = 0
%>

og længere nede på samme side har jeg så:

<%
do while not rsantik.eof
%>
              <tr>
                <td height="20" valign="bottom" > <div align="left" class="style12"><a href="side2.asp?id=<%= cstr(rsantik("emne")) %>">
                  <strong>&#8226;<%response.write "&nbsp;&nbsp;" & cstr(rsantik("emne"))%></strong></a>&nbsp;<%response.write "[" & cint(rsantik("antalEmner")) & "]"%>
</div></td>
              </tr>
<%
  rsantik.movenext
loop
%>

For at bruge din egen terminologi:

<%
Dim RSantik
Dim RSantik_numRows
Dim SQL

SQL = "SELECT titel, tekst, emne" & _
      "FROM varer " & _
      "WHERE emne = '" & cstr(request.querystring("emne")) & "'"

Set RSantik = Server.CreateObject("ADODB.Recordset")
RSantik.ActiveConnection = MM_antik_STRING
RSantik.Source = SQL
RSantik.CursorType = 0
RSantik.CursorLocation = 2
RSantik.LockType = 1
RSantik.Open()

RSantik_numRows = 0

response.write "<table>"
do while not RSantik.eof
  response.write "<tr>"
  response.write "<td>" & cstr(RSantik("titel")) & "</td>"
  response.write "<td>" & cstr(RSantik("tekst")) & "</td>"
  response.write "</tr>"
  RSantik.movenext
loop
response.write "</table>"
RSantik.Close
set RSantik = nothing
%>

Jeg får lige nu denne fejl:

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "emneFROM varer WHERE emne = ''".

/antik/side2.asp, linje 18

Prøv at udskifte den nuværende SQL med denne:

SQL = "SELECT titel, tekst, emne " & _
      "FROM varer " & _
      "WHERE emne = '" & cstr(request.querystring("emne")) & "'"

Det kan da godt være du skal ændre den til flg. i stedet (da du benytter "id" som parameter og ikke "emne" som jeg har antaget):

SQL = "SELECT titel, tekst, emne " & _
      "FROM varer " & _
      "WHERE emne = '" & cstr(request.querystring("id")) & "'"

...og det var altså ikke din skyld - det var mig der havde overset det :)

Pyt det gjorde ikke ondt :)

Softspot, du er sgu klog. Alt virker perfekt!
Mange tak for hjælpen!

Klog og klog... jeg har været der før ;)

Tak for point.