hola
gracias por la ayuda pero en que parte te mi codigo tengo que agregar eso que me dices la verdad es que no se donde....
if Not rs.Eof then
For i=0 To rs.Fields.Count-1
if (not IsNull(rs.Fields(i))) and (LEN(Trim(rs.Fields(i).value))>0) Then%>
<p><font size="2"><b><%=rs.Fields(i).name & " = " & rs.Fields(i) & " (" & LEN(Trim(rs.Fields(i).value)) & ")"%></b></font><br>
<% End if
Next