al posto di farla tutta in una volta componila pesso per pezzo:

body=("<HTML>" & _
"<HEAD></HEAD>" & _
"<BODY bgcolor=#FFFFFF>" & _
" <table width=597 border=0 cellspacing=0 cellpadding=0>" & _
" <tr> " & _
" <td> " & _
"
" & _
" <Font Face=Verdana Size=2 color=#363636>" & _
"
" & _
"
" & _
" " & session("data") & _
"
" & _
" " & session("titolo") & _
"
" & _
" " & session("testo")")

'qui fai il controllo che tiho scritto io
if .....
'qui ci metti il pezzo da aggiungere sel al session è piena
body = body & .....
end if

'e da qui ricominci con il resto

body = body & "
" & _
"
" & _
"
" & _
"
" & _
" </font>" & _
" </td> " & _
" </tr> " & _
" </table> " & _
" </BODY>" & _
"</HTML>")