left(rs("beskrivelse"),200)

Spm. 2: Her tæller du blot rs("bes..:

if len(rs("beskrivelse")) > 200 then
response.write "..."
end if

Her er svar til spørgsmål 2 hvert fald: :)

------- kode -------
<%
Function TextMaxLen(a,b)
    If CSng(Len(a)) > CSng(b) Then
        TextMaxLen = "<span title=""" & a & """>" & Left(a,b) & "..</span>"
    Else
        TextMaxLen = "<span title=""" & a & """>" & a & "</span>"
    End If
End Function

Response.Write TextMaxLen("Jeg har en sjov funktion",10)
%>

Så vidt jeg kan se virker den her på begge spørgsmål :)

------- kode -------
<%
i = 0

Function TextMaxLen(a,b)
    Do Until strTemp = " "
        strTemp = Mid(a,b + i,1)
        i = i + 1
        If i = 20 Then Response.Redirect "hej"
    Loop

    If CSng(Len(a)) > CSng(b) Then
        TextMaxLen = "<span title=""" & a & """>" & Left(a,b + i - 1) & "..</span>"
    Else
        TextMaxLen = "<span title=""" & a & """>" & a & "</span>"
    End If
End Function

Response.Write TextMaxLen("Jeg har en sjovfunktion hehe",15)%>

Hov .. du skal lige fjerne "if i = 20 ...." :)

soerenlyn : den virker bare som den skal.. smid da et svar :D

Kanon :)

og dog..

mit site går helt ned når jeg kører funktionen igennem :s

er den loop nødvendig?
Når jeg fjerner den, så virker det fint..

Men den skærer stadig midt i et ord..

Det jo pga. at den ikke skal skære i midten af et ord at loopen skal være der.

Ok, men den loop dræber mit websted

Det var underligt. Hvor mange steder bruger du funktionen?

Funktionen bruges 25 gange i træk, i forbindelse med et udtræk af database..

Jeg tror ikke du kan lave en anden funktion for det samme i asp ...