Hej!

Jag har en funktion som endast skriver ut de antal tecken man valt. Funktionen funkar kanon förutom en sak och det är att om man lägger den inom <p></p> så hamnar all text innan <p></p> när man sen kollar källan på sidan.

Så om jag skulle skriva så här...
<code>
Response.Write "<p>"& CutOff(objRs("oText"),200) &"</p>"& vbCrLf
</code>

Så blir resultatet
Här kommer all text...<p></p>

Som ni ser så hamnar texten inte inom <p></p>. Har försökt och trixat och mixat men inte fått till det. Finnd det någon som kan hjälpa mig?

Här är själva funktionen...
<code>
'Funktion för utskrivning av antal tecken
Function CutOff(myString,myLenght)
If Not Len(myString) >= myLenght Then
Response.write myString
Else
antal = myLenght
keyWords = split(myString," ")
longString = 0

For Each Word in keyWords
longWord = Len(word)
longString = cint(longString + longWord)

If longString >= antal Then
Response.Write Word & "..."
Exit For

Else
Response.Write Word & " "
End If
Next
End if
End Function
</code>

Din funktion returnerar ju inte ett värde utan skriver m.h.a. Response.Write.
<code>
Function CutOff(myString,myLenght)
CutOff = ""
If Not Len(myString) >= myLenght Then
CutOff = CutOff & myString
Else
antal = myLenght
keyWords = split(myString," ")
longString = 0

For Each Word in keyWords
longWord = Len(word)
longString = cint(longString + longWord)

If longString >= antal Then
CutOff = CutOff & Word & "..."
Exit For

Else
CutOff = CutOff & Word & " "
End If
Next
End if
End Function
</code>

Klantigt :) Tack!