50 bogstaver/ord og ...

Hej, jeg har sådan en cutstring funktion her, men kan ikke få den til at loope ordenligt, den looper det samme på hver linie, nogen idéer?


<%
Function CutString (YouString, intCut)
if len(YouString) > intCut then
  posstart=instr (intCut, YouString, \" \")
  if (posstart <> 0) then
    CutString = Left(YouString, posstart) & \"...\"
    Exit Function
  end if
end if
CutString = YouString
End function

Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"test.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
SQL = \"SELECT TOP 10 * FROM Test\"
set rs = con.execute(SQL)
%>

Loop nu da!<br>

<%
Do While NOT rs.eof
Test = rs(\"Test\")
%>

<%=CutString(Test,50)%><br>

<%
rs.MoveNext
LOOP
%>