Esta muy fácil tu problema
Solo debes de poner un ciclo como este para únicamente pintar los campos que tengan información:
Código:
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
and that's all my folk