HTML a ASP para enviar por correo

[sqa212]

Asi lo puedes ver en pantalla:
Le he quitado las imagenes, el Recordset1 y el if, para hacerlo mas rapido , esta seria la forma de verlo por pantalla.

Código:

<%
cuerpoemail =  "<style type='text/css'>.Estilo6 {font-family: Arial, Helvetica, sans-serif;font-weight: bold;font-size: 18px}"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "body,td,th {font-family: Arial, Helvetica, sans-serif;font-size: 12px;}.Estilo9 {font-size: 24px;font-weight: bold;color: #FFFFFF;}"
cuerpoemail = cuerpoemail  & 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;}"
cuerpoemail = cuerpoemail  & 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>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<table width='680' border='0' align='center' cellpadding='0' cellspacing='0' id='Tabla_01'><tr><td> <img src='' width='29' height='8' alt=''></td>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<td background=''> <img src='' width='200' height='8' alt=''></td><td> <img src='' width='10' height='8' alt=''></td></tr><tr>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<td width='1%' valign='top' background=''><img src='> </td> "
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " <td width='99%' valign='top'><table width='100%'  border='0' cellspacing='0' cellpadding='4'><tr bgcolor='#FEFEF6'>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " <td bgcolor='#FEFEF6'><div align='center'><span class='Estilo13'> <span class='Estilo14'>Newsletter</span> N&ordm; :"& NOW() &"</span><span class='Estilo4 Estilo115'>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "</span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='right'> <table width='100%'  border='0' cellspacing='0' cellpadding='0'> "
cuerpoemail = cuerpoemail  & 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>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<img src=''><font size='2'>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<span class='Estilo4'><img src='' width='590' height='60' border='0'></span> "
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " </td></tr></table>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "</font> <span class='Estilo4'></span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><div align='center'>"
Response.Write cuerpoemail
%>