Tæl antal...

<%=rs.recordcount%>

strSQL2 = \"SELECT count(ID) as antal FROM Kunder WHERE\"
strSQL2 = strSQL2 & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

set rs2 = conn.execute(strSQL2)

response.write(rs2(\"antal\"))

Set rs = myConn.Execute(strSQL)
den linie skal laves om til disse 2:
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open strSQL, myConn, 1

også udskriver du ellers bare med
\" & rs.RecordCount & \"

<% Response.Buffer = True %>
<%
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.htm\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE\"
strSQL = strSQL & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"search.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<p>Søgeresultat</p>\"
Response.Write \"<table border=1>\"
Response.Write \"<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>\"

    Do While Not rs.EOF
Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Adresse\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Bynavn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Beskrivelse\") & \"</td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table>\"
Response.write \" Der blev fundet \"& rs.recordcount &\" Resultater \"
Else
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If

myConn.Close
Set myConn = Nothing
%>

antal = 0
Do While Not rs.EOF
antal = antal + 1
Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Adresse\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Bynavn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Beskrivelse\") & \"</td></tr>\"
rs.MoveNext
Loop
response.write (\"Antal resultater: \" & antal)

Det må da være den nemmeste måde...

/Andreas

Uanset hvilken jeg bruger, returneres der:

Der blev fundet -1 resultater.

Hvorfor???

/Peter F. Poulsen

Har du prøvet min ? Den er ikke som de andre...

<% Response.Buffer = True %>
<%
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.htm\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT count(ID) as antal, ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE\"
strSQL = strSQL & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"search.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<p>Søgeresultat Ialt: \" & rs(\"antal\") & \"</p>\"
Response.Write \"<table border=1>\"
Response.Write \"<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>\"

    Do While Not rs.EOF
Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Adresse\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Bynavn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Beskrivelse\") & \"</td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If

myConn.Close
Set myConn = Nothing
%>

Jeg bruger selv min metode, på mine sider. Den virker for mig, men det kan du selvfølgelig ikke bruge til så meget :-)

netsrac >>

Hvis jeg bruger dit sidste eksempel, siger den:

Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: \'rs\'
/soegeresultat.asp, line 121

Min linie 121:
<%rs(\"antal\")%>

/Peter F. Poulsen

Det skal jo være:
<%=rs(\"antal\")%>

netsrac >>

Hvis jeg bruger <%=rs(\"antal\")%>

siger den:

Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.

/Peter F. Poulsen

Prøv lige at smide hele dit script her...

UPS, jeg fik først defineret rs efter <%=rs(\"antal\")%>. Det var lidt PINLIGT!!! :-)

Men nu siger den:

Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk \"ID\" som en del af en aggregatfunktion.

/Peter F. Poulsen

Hm...hvad så med det jeg har skrevet tidligere ?

strSQL2 = \"SELECT count(ID) as antal FROM Kunder WHERE\"
strSQL2 = strSQL2 & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

set rs2 = conn.execute(strSQL2)

response.write(rs2(\"antal\"))

hvor sætter du det ind henne?

/Peter F. Poulsen

<% Response.Buffer = True %>
<%
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.htm\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE\"
strSQL = strSQL & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

strSQL2 = \"SELECT count(ID) as antal FROM Kunder WHERE\"
strSQL2 = strSQL2 & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"search.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
set rs2 = myconn.Execute(strSQL2)

If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<p>Søgeresultat\" & rs2(\"antal\") &\"</p>\"
Response.Write \"<table border=1>\"
Response.Write \"<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>\"

    Do While Not rs.EOF
Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Adresse\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Bynavn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Beskrivelse\") & \"</td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If

myConn.Close
Set myConn = Nothing
%>

det gør ingen forskel den kommer med den samme fejl.

/Peter F. Poulsen

Hm...det var da mystisk, hvad så med:

<% Response.Buffer = True %>
<%
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.htm\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT ID, Navn, Adresse, Bynavn, Beskrivelse FROM Kunder WHERE\"
strSQL = strSQL & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

strSQL2 = \"SELECT count(*) as antal FROM Kunder WHERE\"
strSQL2 = strSQL2 & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Bynavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = strSQL2 & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"search.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
set rs2 = myconn.Execute(strSQL2)

If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<p>Søgeresultat\" & rs2(\"antal\") &\"</p>\"
Response.Write \"<table border=1>\"
Response.Write \"<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>\"

    Do While Not rs.EOF
Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Adresse\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Bynavn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Beskrivelse\") & \"</td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If

myConn.Close
Set myConn = Nothing
%>

Nej, desværre stadig det samme :-(

Får du fejlen:

Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk \"ID\" som en del af en aggregatfunktion.  ??

Har du copy/pasted det jeg har skrevet ?

Ja det er den fejl jeg får. Jeg har ikke copy/pasted det da jeg har lavet om på databasefelterne siden. Gider du ikke kigge på filen, hvis jeg sender den til dig? Vi kan godt finde ud af noget med nogle flere point, jeg havde ikke regnet med at det skulle være så bøvlet at finde ud af :-)

/Peter F. Poulsen

tæl dog vha:

count = count +1

og få resultatet med:

response.write count

Her er hele min soegeresultat.asp

<!--#include file=\"Effekter.inc\"-->
<!--#include file=\"Database.inc\"-->

<% Response.Buffer = True %>
<%
Dim soegeord
Soegeord = Request.Form(\"Keyword\")
%>

<html>

<head>
<title></title>
</head>

<body bgcolor=\"#DDDDDD\" style=\"font-family: Verdana; font-size: 8 pt\">

<div align=\"center\">
  <table border=\"0\" width=\"715\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\">
        <p align=\"right\"><font size=\"1\">Fredag, <%=dato%> - <a href=\"onlinelist.asp\" onmouseOver = \"status=\'Se hvem der er online netop nu\';return true\" onMouseOut = \"status=\'\';return true\">124
        brugere online</a></font></td>
    </tr>
  </table>
</div>
<div align=\"center\">
  <center>
  <table border=\"0\" width=\"715\" cellspacing=\"0\" cellpadding=\"0\" height=\"340\">
    <tr>
      <td width=\"100%\" valign=\"top\" bgcolor=\"#FFFFFF\" style=\"border: 1 solid #808080\" height=\"340\">
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td width=\"100%\" colspan=\"2\"><font size=\"1\">&nbsp;</font></td>
          </tr>
          <tr>
            <td width=\"18%\" bgcolor=\"#ED7514\" style=\"border-top: 1 solid #808080\">&nbsp;</td>
            <td width=\"81%\" bgcolor=\"#ED7514\" style=\"border-top: 1 solid #808080; border-bottom: 1 solid #808080\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\">
                <tr>
                  <td width=\"25%\" align=\"center\"><font size=\"1\"><a href=\"Default.asp\" onmouseOver = \"status=\'Gå til forsiden\';return true\" onMouseOut = \"status=\'\';return true\">Velkommen</a></font></td>
                  <td width=\"25%\" align=\"center\"><font size=\"1\"><a href=\"soeg.asp\" onmouseOver=\"status=\'Søg efter et produkt\';return true\" onMouseOut=\"status=\'\';return true\">Søg...</a></font></td>
                  <td width=\"25%\" align=\"center\"><font size=\"1\"><a href=\"kurv.asp\" onmouseOver=\"status=\'Vis indholdet af indkøbskurven\';return true\" onMouseOut=\"status=\'\';return true\">Indkøbskurv</a></font></td>
                  <td width=\"25%\" align=\"center\"><font size=\"1\"><a href=\"Login.asp\" onmouseOver=\"status=\'Log ind\';return true\" onMouseOut=\"status=\'\';return true\">Log
                    ind</a></font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"346\">
          <tr>
            <td width=\"18%\" style=\"border-right: 1 solid #808080\" height=\"346\" valign=\"top\" bgcolor=\"#ED7514\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\">
                <tr>
                <%
\' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
    \' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect(\"soeg.asp\")
Else
    \' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
                \' opretter forespørgsel
                SQL = \"SELECT * FROM Kategori ORDER BY Kategori\"
               
                \' udfører forespørgsel
                Set rs = Conn.Execute(SQL)
                %>
                  <td width=\"100%\"><b><font size=\"1\">Kategorier</font></b><font size=\"1\"><br>
                    <%
                    \' gør indtil rs.eof
                    Do While not rs.eof
                    %>
                    <%
                    \' udskriv kategorier
                    Response.Write \"» \" & \"<a href=vis.asp?ID=\" & rs(\"ID\") & \">\" & rs(\"Kategori\") & \"</a><br>\"
                    %>
                    <%
                    \' fortsæt til næste post og loop
                    rs.movenext
                    Loop
                    %>
                  </font></td>
                </tr>
              </table>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
              <br>
            </td>
  </center>
  <%

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT ID, Produkt, Pris FROM Produkter WHERE\"
strSQL = strSQL & \" (Produkt LIKE \'%\" & strKeyword & \"%\')\"
strSQL2 = \"SELECT count(ID) as antal, ID, Produkt, Pris FROM Produkter WHERE\"
strSQL2 = strSQL2 & \" (Produkt LIKE \'%\" & strKeyword & \"%\')\"

\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"Databaser/database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
Set rs2 = myConn.Execute(strSQL2)

%>
 
            <td width=\"82%\" height=\"346\" valign=\"top\"><font size=\"1\">&nbsp;</font>
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"5\">
                <tr>
                  <td width=\"100%\" valign=\"top\"><font size=\"1\">Du søgte på: <b><%=soegeord%><br>
                    </b>Din søgning returnerede <b><%=rs2(\"antal\")%></b>  resultat(er).
                    <br>
                    <br>
                    <b>Søgeresultater</b>&nbsp;
                    <b><br>
                    </b>

<%

If Not (rs.BOF Or rs.EOF) Then
    \' Hvis der er fundet poster på søgningen
    Response.Write \"<table border=0>\"
    %>



                    &nbsp;



<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\">
        <tr>
          <td width=\"93%\" bgcolor=\"#ED7514\" style=\"border: 1 solid #808080\" valign=\"top\"><font size=\"1\" face=\"Verdana\"><b>Produkt</b></font></td>
          <td width=\"1%\" bgcolor=\"#ED7514\" style=\"border: 1 solid #808080\">
            <p align=\"center\"><b><font size=\"1\" face=\"Verdana\">Info</font></b></td>
          <td width=\"1%\" bgcolor=\"#ED7514\" style=\"border: 1 solid #808080\">
            <p align=\"center\"><b><font size=\"1\" face=\"Verdana\">Bestil</font></b></td>
          <td width=\"12%\" bgcolor=\"#ED7514\" style=\"border: 1 solid #808080\">
            <p align=\"center\"><font size=\"1\" face=\"Verdana\"><b>Pris</b></font></td>
        </tr>
        <tr>
          <%Do while not rs.eof%>
          <td width=\"54%\" bgcolor=\"#DDDDDD\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\"><font size=\"1\"><font face=\"Verdana\"><%Response.Write rs(\"Produkt\")%>
            </font></font></td>
          <td width=\"12%\" bgcolor=\"#DDDDDD\" align=\"center\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\"><font size=\"1\" face=\"Verdana\"><%
Response.Write \"<a href=vis_produkt.asp?ID=\" & rs(\"ID\") & \">\" & \"<img border=0 src=\'Grafik/Info.gif\'>\" & \"</a>\"
            %>
            </font></td>
          <td width=\"12%\" bgcolor=\"#DDDDDD\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\" align=\"center\"><a href=\"tilfoj.asp\" onmouseOver=\"status=\'Tilføj produktet til din indkøbskurv\';return true\" onMouseOut=\"status=\'\';return true\"><font size=\"1\" face=\"Verdana\"><img border=\"0\" src=\"Grafik/vogn.gif\"></font></a></td>
          <td width=\"22%\" align=\"right\" bgcolor=\"#DDDDDD\" onmouseover=\"co(this,\'in\');\" onmouseout=\"co(this,\'out\');\">
            <p align=\"right\"><font size=\"1\" face=\"Verdana\"><%Response.Write rs(\"Pris\") & \",-\"%>
            </font></td>

        </tr>
                    <%
rs.MoveNext
Loop
%>
      </table>
    </td>
  </tr>
</table>




<%
    Response.Write \"</table>\"
Else
    \' Hvis der ikke er fundet poster på søgningen
    Response.Write \"<p>Din søgning returnerede desværre ingen resultater</p>\"
End If

\' Rydder op efter os
myConn.Close
Set myConn = Nothing
%></font>
                  </td>
                </tr>
              </table>
              <p align=\"left\"><font size=\"1\"><br>
              </font></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</div>
<div align=\"center\">
  <table border=\"0\" width=\"715\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\">
        <p align=\"right\"><font size=\"1\"><a href=\"Betingelser.asp\" onmouseOver=\"status=\'Læs vores betingelser\';return true\" onMouseOut=\"status=\'\';return true\">Betingelser</a>
        | <a href=\"copyright.asp\" onmouseOver=\"status=\'Læs copyright informationer\';return true\" onMouseOut=\"status=\'\';return true\">Copyright</a></font></td>
    </tr>
  </table>
</div>

</body>

</html>
<%
\' lukker forbindelsen til database
Conn.Close
Set Conn = Nothing
%>

Du kan bare maile den på eksperten@cnh.dk

Udskift:
strSQL2 = \"SELECT count(ID) as antal, ID, Produkt, Pris FROM Produkter WHERE\"
strSQL2 = strSQL2 & \" (Produkt LIKE \'%\" & strKeyword & \"%\')\"

MED:

strSQL2 = \"SELECT count(ID) as antal FROM Produkter WHERE\"
strSQL2 = strSQL2 & \" (Produkt LIKE \'%\" & strKeyword & \"%\')\"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<p>Søgeresultat</p>\"
Response.Write \"<table border=1>\"
Response.Write \"<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>\"

    Do While Not rs.EOF
Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Adresse\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Bynavn\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Beskrivelse\") & \"</td></tr>\"
count = count +1
rs.MoveNext
Loop


og udenfor loopet sætter du:

response.write\"der er: \" & count & \" resultater\"

thats it...

netsrac >>

Så virker det. Tusind gange rigtig mange tak, nå hva\' det krævede vel også kun ca. 30 indlæg :-)

Med venlig hilsen
Peter F. Poulsen

:-)