HTML a ASP para enviar por correo

[Spychaser]

Ascariz, andas por ahi? alguna novedad de como poder formatear el html para enviar por correo asp.
Tengo uno armado (pego el codigo a continuacion) pero quiero modificarlo y al no poder ver en pantalla me resulta complicado poder acomodar las tablas, etc.
Alguna solucion.
Muchas Gracias

Código:

Mail.Subject = "Newsletter Nº"&news&" - "&titulo& ""

mail.Body =  " <style type='text/css'>.Estilo6 {	font-family: Arial, Helvetica, sans-serif;font-weight: bold;font-size: 18px}"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "body,td,th {font-family: Arial, Helvetica, sans-serif;font-size: 12px;}.Estilo9 {font-size: 24px;font-weight: bold;color: #FFFFFF;} "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  ".Estilo10 {font-size: 18px}.Estilo11 {color: #FFFFFF;font-weight: bold;font-family: Tahoma;font-size: 9;}.Estilo12 {font-family: Tahoma;font-size: 9px;} "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  ".Estilo13 {font-size: 16px;font-weight: bold;}.Estilo14 {color: #335A93}a.Estilo11:link {color: #FFFFFF;text-decoration: none;}a.Estilo11:visited {color: #FFFFFF;text-decoration: none;}a.Estilo11:hover {color: #efefef;text-decoration: none;}a.Estilo11:active {color: #FFFFFF;text-decoration: none;}</style> "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<table width='680' border='0' align='center' cellpadding='0' cellspacing='0' id='Tabla_01'><tr><td> <img src='http://sitio.com.ar/newsletter/amb/caja/noticias_01.jpg' width='29' height='8' alt=''></td>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<td background='http://sitio.com.ar/newsletter/amb/caja/noticias_02.jpg'> <img src='http://sitio.com.ar/newsletter/amb/caja/noticias_02.jpg' width='200' height='8' alt=''></td><td> <img src='http://freijejuan.com.ar/newsletter/amb/caja/noticias_03.jpg' width='10' height='8' alt=''></td></tr><tr>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<td width='1%' valign='top' background='http://sitio.com.ar/newsletter/amb/caja/noticias_07.jpg'><img src='http://sitio.com.ar/newsletter/amb/caja/noticias_07.jpg' width='29' height='18'> </td> "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  " <td width='99%' valign='top'><table width='100%'  border='0' cellspacing='0' cellpadding='4'><tr bgcolor='#FEFEF6'>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  " <td bgcolor='#FEFEF6'><div align='center'><span class='Estilo13'> <span class='Estilo14'>Newsletter</span> N&ordm; :"&(Recordset1.Fields.Item("news").Value)&"</span><span class='Estilo4 Estilo115'>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "</span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='right'> <table width='100%'  border='0' cellspacing='0' cellpadding='0'> "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  " <tr><td>&nbsp;</td><td>&nbsp;</td></tr></table><span class='Estilo4 Estilo115'></span> </div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><table width='96%'  border='0' cellspacing='0' cellpadding='6'><tr><td>"%>
<%if (Recordset1.Fields.Item("Foto").Value) <> "" then %>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<img src='http://sitio.com.ar/newsletter/"&(Recordset1.Fields.Item("Foto").Value)&"'><font size='2'> "%>
<% else %>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<span class='Estilo4'><img src='http://sitio.com.ar/newsletter/amb/banner.jpg' width='590' height='60' border='0'></span> "%>
<% end if %>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  " </td></tr></table>"%>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  "</font> <span class='Estilo4'></span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><div align='center'> "%>