Bild och text

Jag vill att när man lägger ut text och bild så ska bara texten visas 200 ord men när inte bilden är med så ska den skriva ut 400 ord i nyheten.

<%
If Len(objRS("pentry")) > 200 Then
Response.Write(Left(objRS("pentry"), 200))
Else
Response.Write(objRS("pentry"))
End If
%>