anteprima solo prime righe di notizie

[caroweb]

salve, è da circa 7 anni che non metto più mano a codice asp e anche all'epoca ero a livello amatoriale. ho recuperato questo codice:

<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("mdb-database/stampa.mdb")
		  sqlstmt = "SELECT top 5 * FROM stampa ORDER BY id DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
	If rs.eof then
		Exit For
	Else
		date1 = rs("pdate")
		id = rs("ID")
		name1 = rs("pentry")
		titolo1 = rs("pname")
	  	link = date1
		titolo = titolo1
		description = "" & name1 & ""
   %>
<tr> 
          <td><font face="Arial, Helvetica, sans-serif" size="2">  
            <% =link%>: <% =titolo%></font>
            
<font face="Arial, Helvetica, sans-serif" size="1">
            <% =description%>
            </font></td>
        </tr>
        <%
rs.MoveNext
End If
Next%>

come faccio a far leggere solo le prime 30 parole del campo "description"?

Grazie, spero di aver chiaramente esposto il mio piccolo problema... all'epoca lo sapevo risolvere.

[dizionario]

se non contiene testo html (altrimenti puliscilo prima), così:

function anteprima(ByVal sMsg,ByVal iParole)
   Dim sMsgOld,arrPar
   sMsg=replace(sMsg,VbCrLf," ")
   do while sMsgOld<>sMsg
      sMsgOld=sMsg
      sMsg=replace(sMsg,"  "," ")
   loop
   arrPar=split(sMsg, " ")
   redim preserve arrPar(iParole-1)
   anteprima=join(arrPar," ")
end function


response.Write anteprima(description,30) 

[caroweb]

so utilizzare solo un po' di ASP.

Ho provato così:

<%


DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("mdb-database/stampa.mdb")
		  sqlstmt = "SELECT top 5 * FROM journal ORDER BY id DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
	If rs.eof then
		Exit For
	Else

                max = 30

		date1 = rs("pdate")
		id = rs("ID")
		name1 = rs("pentry")
                parole = Split(pentry," ")
		titolo1 = rs("pname")
	  	link = date1
		titolo = titolo1
		description = "" & name1 & ""






'////////////////////////////////////////////////////// 
PAROLE = rs.fields("pentry").value 
PAROLE = replace(pentry,"''","'") 
PAROLE = Server.HTMLEncode(pentry) 
'///////FACCIAMO NON INTERPRETARE IL CODICE HTML/////// 
PAROLE = replace(pentry,">","&gt;") 
PAROLE = replace(pentry,">","&gt;") 
PAROLE = replace(pentry,Chr(13), " 
 ") 
PAROLE = replace(pentry," "," ")








 %>
 
            <% =link%>: <% =titolo%>



            
       <%
	  If UBound(parole) < max Then
max = UBound(parole)
End If

   For i = 0 to max
      Response.write parole(i) & " "
   Next
   %>    


 ...

          
        <%
rs.MoveNext
End If
Next%>

ma mi trovo questo errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UBound'

/PROVA.asp, line 259

qualche consiglio? grazie