optælle ord og anslag

Dim totaltakst
totaltekst = 0

do while not rs.eof
totaltekst = CDbl(totaltekst) + CDbl(Len(rs("tekst")))
rs.movenext
loop

response.write totaltekst

Oops.. Skulle lige være et svar

Hvis du af uvisse årsager skulle få brug for at tælle sammen efter tabellen er skrevet ud, kan du give dine td'er en titel (det kan være hvad som helst, jeg har bare lige kaldt det titel), og bruge følgende:

<script>
function taelAnslag() {
  var i, a, anslag = "";
  for(i=0; (a = document.getElementsByTagName("td")[i]); i++) {
    if(a.getAttribute("title") == "tekst") {
      anslag += a.innerHTML;
    }
  }
  document.write(anslag.length)
}


</script>

<table>
<tr>
<td title="hej"></td>
<td title="tekst">her er 8</td>
</tr>
<tr>
<td></td>
<td title="tekst">så er det 20</td>
</tr>
<tr>
<td></td>
<td title="tekst">22</td>
</tr>
<tr>
<td></td>
<td title="tekst">24</td>
</tr>
</table>

<input type="button" value="Tæl sammen" onClick="taelAnslag()">

Alternativ som tæller både ord og tegn:

antalOrd = 0
antalTegn = 0
SQL = "select * from tabelnavn"
Set rs = Conn.Execute(SQL)
do while not rs.EOF
  str = rs("tekst")
  antalOrd = antalOrd + UBound(Split(Trim(Replace(str,vbCrLf," "))," ")) + 1
  antalTegn = antalTegn + len(str)
  rs.Movenext
loop

Response.Write "Antal ord = " & antalOrd & "<br>"
Response.Write "Antal tegn = " & antalTegn

takker for points :-D