Några ord...

Hej har hittat ett just script som skriver ut delar av meningar (texter) men det finns ett problem!

<%
Function WordLeft(strText, intNoOfWords)	
Dim arrText, strippedText, I	
arrText = Split(strText, " ")	
If UBound(arrText) => intNoOfWords Then		
For I = 0 To (intNoOfWords - 1)			
If i = (intNoOfWords - 1) Then 				
strippedText = strippedText & arrText(i) & "..."			
Else				
strippedText = strippedText & arrText(i) & " "			
End if		
Next	
Else		
strippedText = strText	
End If	
WordLeft = strippedText
End Function
%>

Detta fungerar ju jätte bra tillsammans med detta:

Response.write wordleft("Här är en massa text som jag vill korta av i slutet med en siffra som står för antal ord i meningen",7)

Men till saken hur får jag denna funktion att fungera med en databaspost tex:

Response.write wordleft(" =tabellen("texten"),7)

Det blir en massa felmeddelanden hela tiden att det saknas ')' och att funktionen inte stödjer wordleft osv

Tacksam för svar

//Jesper