Tælling af poster!

din count funktion til antal kommentarer under hver anmeldelse kan du lave med:

strSQL = "SELECT COUNT(*) AS antal FROM kommentarer WHERE anmeldelse = "& anmeldelse("id") &""
set poster = Conn.Execute(strSQL)

den ligger du så i dit loop og udskriver med:
poster("antal")

Den med antal klik kan du lave ved at du laver et felt i din database som fx hedder visninger og så laver en update på den når siden vises ... eks:

strUpdate = "UPDATE anmeldelser SET visninger = visninger + 1 WHERE id = "& request.querystring("rid") &""
Conn.Execute(strUpdate)

Håber du kan bruge det.

Hej tjaz !

Hvordan får jeg den til, at tælle antal af klik ? Den vil "kun" tælle, når jeg går ind i databasen og tilføjer et tal i feltet visninger

Ups det var et indstilles problem i databasen...

Ser lige om jeg kan får counter til at virke!!!

Nu kører antal klik !

Men med counter er der et problem, da jeg skal trække data fra to tabeller - her ser I siden - hvor jeg gerne vil se de sidste 5 kommentarer http://www.web-byggeren.dk/eksperten/anmeldelse.asp



<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("jerg.mdb")
str_sql2 = "SELECT TOP 5 * FROM anm ORDER BY id desc"
Set rs = Conn.Execute (str_sql2)
%> <p align="center"> <font face="Courier New, Courier, mono" size="3">
        <%
if rs.EOF then
%>
        <span class="overskrift"><font color="#0000CC"><b>Ingen anmeldelser endnu!
        </b></font> </span>
        <%
else
%>
        </font></p>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E4E4E4" class="ramme">
        <tr>
          <td><table width="100%" height="8" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#E4E4E4">
              <tr>
                <td width="82%" valign="top"> <div align="center">
                          <h5><font color="#0000CC"><b>5 seneste kommentarer</b></font></h5>
                  </div></td>
              </tr>
              <%
Do Until rs.EOF
%>
              <tr bgcolor="#E5E5E5">
                <td width="82%" bgcolor="#E4E4E4"><font size="-7" face="Verdana">
                  <strong>
                 
                  <% = rs("kategori") %>
                 
                  </strong><br>
                  Produkt: <a href="/eksperten/poptop.asp?rid=<%= rs("id") %>">
                  <% = rs("produkt") %>
                  <br>
                        </a> Kommentar:
                        <% = rs("navn") %>
                  den
                  <% = rs("dato") %>
                  <br>
                        </font></td>
              </tr>
              <%
rs.MoveNext
Loop
%>
              <p></p>
            </table></td>
        </tr>
      </table>
      <p><font face="Courier New, Courier, mono" size="3"> </font></p>
      <div align="center"> </div>
      <font face="Courier New, Courier, mono" size="2">
      <% end if
       
          rs.Close
  Conn.Close
  Set rs = Nothing
  Set Conn = Nothing
  %>

Kan én LEFT JOIN ikke kan klare det ????

Tjaz -> Du hjælp mig med et af to problemer, så derfor får du 100 point !
Håber det er ok ?

Ups