Hejsan!

Denna kod fungerar bra från en access databas med datatyp "Text", men jag är ute efter längre text och måste använda mig av PM, men då fungerar inte denna koden, finns där något annat man kan göra för att skriva ut ett begränsat antal tecken från en access databas med datatyp "PM"?

<code>
<% If Len(RecSet("msg")) > 50 Then response.write Left(RecSet("msg"),50)& "..." Else response.write RecSet("msg") End if %>
</code>

Eller det kanske t.o.m finns enklare sätt att lösa detta på?

mvh/André

Testa med:

<%
        If RecSet("msg").ActualSize / 2 > 50 Then
            Response.Write RecSet("msg").GetChunk(50) & "..."
        Else
            Response.Write RecSet("msg").Value
        End If
%>

<%
Function Limit(ByVal Text, Length)
        If Len(Text) > Length Then
            Limit = Left(Text, Length) & "..."
        Else
            Limit = Text
        End If
End Function

Response.Write Limit(RecSet("msg").Value, 50)
%>