Hvor mange ?

select count(*) from tabel

sql = \"select count * as found from tabel betingelse\"
set rs = rs.execute(sql)
response.write rs & \"0\"

hvis jeg ellers forstod dit spg rigtigt! med hensyn til hvad der skulle skrives ud!
Betingelse kan være f-.eks. where id = id eller nogeet i den stil!

Her er scriptet:
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"navnet på din database.mdb\")

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

strSQL = \"SELECT COUNT(ID) AS Antal FROM navn på din tabel\"
Set rs = myConn.Execute(strSQL)
Response.Write rs(\"Antal\")

myConn.Close
Set myConn = Nothing
%>

-Plexx

jeg forstår ikke hvad du mener med at den skal skrive 4 og 0 så 0

nå ja ...
min skal være: response.write rs(\"found\") & \"0\"

Forstår som plexx heller ikke 4 og 0 så 0

Hmmmmm jeg kan ikke finde ud af at sætte det ind hjælp.


<%
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"db/database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
    Sql = \"SELECT TOP 20 * FROM tagwall ORDER BY Id DESC\"
    Set rs =  Con.Execute(Sql)
%>
    <center>
    [AoK] Tagwallen er til alle besøgende sæt dit tag har så vi kan se du har været her.<br><br>
    Der er <%=rs(\"id\")%>
<%
    If rs(\"id\") = \"1\" Then
  Response.Write \" tag\"
Else
  Response.Write \" tags\"
End If
%>
    på Tagwallen.
    </center>
    <br>
  <table width=\"510\" border=\"0\" bgcolor=\"#333333\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
    <tr>
    <td bgcolor=\"#111111\" align=\"center\" width=\"100%\">
    [ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[ <a href=\"index.asp?mode=tagwall=opret\">Skriv på Tagwallen</a> ]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]
    </td>
    </tr>
    <tr>
    <td bgcolor=\"#000000\" align=\"center\" colspan=\"2\">
    <hr width=\"480\" color=\"#333333\" size=\"1\">
   
      <% Do While Not rs.EOF %>
     
      <table width=\"480\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\">
      <tr>
        <td align=\"left\" valign=\"top\" width=\"150\"><strong>Dato</strong></td><td align=\"left\" valign=\"top\" width=\"380\"><%= FormatDateTime(rs(\"Dato\"),1)%> - <%= FormatDateTime(rs(\"Dato\"),3)%></td>
      </tr>
      <tr>
        <td align=\"left\" valign=\"top\" width=\"150\"><strong>Navn</strong></td><td align=\"left\" valign=\"top\" width=\"380\"><a href=\"mailto:<%=rs(\"mail\")%>\"><%=rs(\"navn\")%></a></td>
      </tr>
      <tr>
        <td align=\"left\" valign=\"top\" width=\"150\"><strong>ICQ</strong></td><td align=\"left\" valign=\"top\" width=\"380\"><%=rs(\"icq\")%></td>
      </tr>
      <tr>
        <td align=\"left\" valign=\"top\" width=\"150\"><strong>Hjemmeside</strong></td><td align=\"left\" valign=\"top\" width=\"380\"><a href=\"<%=rs(\"url\")%>\" target=\"_blank\"><%=rs(\"url\")%></a></td>
      </tr>
      <tr>
        <td align=\"left\" valign=\"top\" colspan=\"2\" width=\"480\">     
        <br><%=(smileys(rs(\"tag\")))%>
        <hr width=\"480\" color=\"#333333\" size=\"1\"></td>
      </tr>
      </table>
   
<%
rs.MoveNext
Loop
%>

    </td>
    </tr>
    <tr>
    <td bgcolor=\"#111111\" align=\"center\" width=\"100%\">
    [ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[ <a href=\"index.asp?mode=tagwall=opret\">Skriv på Tagwallen</a> ]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]
    </td>
    </tr>
  </table>

Det skal stå der hvor <%=rs(\"id)%> er problemmet ved id er at hvis der ikke står noget i datbasen kommer der fejl.

han mener at vis der er 4 poster i databasen skal der stå 4 som resultat, og hvis der er 0 poster i databasen skal der stå 0 !

Nemlig !

If rs.EOF Then
  REsposen.Write \"Der er 0 Tags\"
Else
  \' Så kører du møllen til og med

  på Tagwallen.

End If