Hola que tal aqui tienes un ejemplo de como armar un email en asp.
Código HTML:
sub enviar_correo
BodyM = "<html> <head>"
BodyM = BodyM & "<title>SOMOSMILLONARIOS.com Es hora de Ganar..!</title>"
BodyM = BodyM & "<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>"
BodyM = BodyM & "<meta name=description content=Fireworks Splice HTML>"
BodyM = BodyM & "</head><body bgcolor=#0066cc onload= topmargin=0 leftmargin=0 >"
BodyM = BodyM & "<table border=1 width=3 cellspacing=0 cellpadding=0 bordercolorlight=#FFCC00 bordercolordark=#FFCC00 bordercolor=#FFCC00>"
BodyM = BodyM & "<tr><td width=100><table border=0 cellpadding=0 cellspacing=0 width=471><tr>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=121 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=7 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=38 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=122 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=106 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=76 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=1 border=0></td></tr>"
BodyM = BodyM & "<tr valign=top><!-- row 1 --><td rowspan=2 colspan=2><img name=ticket_01 src=http://www.somosmillonarios.com/ticket_01.gif width=128 height=47 border=0></td>"
BodyM = BodyM & "<td colspan=5><img name=ticket_02 src=http://www.somosmillonarios.com/ticket_02.gif width=343 height=18 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=18 border=0></td></tr><tr valign=top><!-- row 2 -->"
BodyM = BodyM & "<td colspan=5><img name=ticket_03 src=http://www.somosmillonarios.com/ticket_03.gif width=343 height=29 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=29 border=0></td></tr><tr valign=top><!-- row 3 -->"
BodyM = BodyM & "<td colspan=2><img name=ticket_04 src=http://www.somosmillonarios.com/ticket_04.gif width=128 height=1 border=0></td>"
BodyM = BodyM & "<td rowspan=2><img name=ticket_05 src=http://www.somosmillonarios.com/ticket_05.gif width=38 height=34 border=0></td>"
BodyM = BodyM & "<td rowspan=2><img name=ticket_06 src=http://www.somosmillonarios.com/ticket_06.gif width=122 height=34 border=0></td>"
BodyM = BodyM & "<td><img name=ticket_07 src=http://www.somosmillonarios.com/ticket_07.gif width=1 height=1 border=0></td>"
BodyM = BodyM & "<td colspan=2><img name=ticket_08 src=http://www.somosmillonarios.com/ticket_08.gif width=182 height=1 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=1 border=0></td></tr><tr valign=top><!-- row 4 -->"
BodyM = BodyM & "<td colspan=2><img name=ticket_09 src=http://www.somosmillonarios.com/ticket_09.gif width=128 height=33 border=0></td>"
BodyM = BodyM & "<td><img name=ticket_10 src=http://www.somosmillonarios.com/ticket_10.gif width=1 height=33 border=0></td>"
BodyM = BodyM & "<td colspan=2><img name=ticket_11 src=http://www.somosmillonarios.com/ticket_11.gif width=182 height=33 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=33 border=0></td></tr><tr valign=top><!-- row 5 -->"
BodyM = BodyM & "<td><img name=ticket_12 src=http://www.somosmillonarios.com/ticket_12.gif width=121 height=24 border=0></td>"
BodyM = BodyM & "<td rowspan=7 colspan=5 bgcolor=#FFFFFF>"
BodyM = BodyM & "<p align=center><font face=Arial><b><font color=#FF0000>"& inicio &" "& apelli &"</font><font color=#000080><br>"
BodyM = BodyM & "</font><font color=#0066CC>"& nombrej &" "& request.cookies("HoraSorteo") &" "& horas &"</font></b></font></p>"
BodyM = BodyM & "<p align=left><font face=Arial><b><font color=#000080>N° de Ticket: </font></b><b><font color=#FF0000>"& moh &"<br>"
BodyM = BodyM & "</font><font color=#000080><br>Serial: </font><font color=#FF0000>"& password &"<br></font><font color=#000080><br>"
BodyM = BodyM & "Monto Apostado: </font><font color=#FF0000>"& moneda &" "& monto &"<br>"
BodyM = BodyM & "</font><font color=#000080><br>Monto a Ganar: </font></b></font><font color=#FF0000 face=Arial><b>"& moneda &" "& ganan &"<br>"
BodyM = BodyM & "</b></font><font face=Arial><b><font color=#000080><br>Número Jugado: </font><font color=#FF0000>"& numeros &"<br><br><br>"
BodyM = BodyM & "</font></b><font size=2></font></font></p>"
BodyM = BodyM & "</td><td rowspan=3><img name=ticket_14 src=http://www.somosmillonarios.com/ticket_14.gif width=76 height=115 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=24 border=0></td></tr><tr valign=top><!-- row 6 -->"
BodyM = BodyM & "<td><img name=ticket_15 src=http://www.somosmillonarios.com/ticket_15.gif width=121 height=60 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=60 border=0></td></tr><tr valign=top><!-- row 7 -->"
BodyM = BodyM & "<td><img name=ticket_16 src=http://www.somosmillonarios.com/ticket_16.gif width=121 height=31 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=31 border=0></td></tr><tr valign=top><!-- row 8 -->"
BodyM = BodyM & "<td><img name=ticket_17 src=http://www.somosmillonarios.com/ticket_17.gif width=121 height=37 border=0></td>"
BodyM = BodyM & "<td rowspan=3><img name=ticket_18 src=http://www.somosmillonarios.com/ticket_18.gif width=76 height=92 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=37 border=0></td></tr><tr valign=top><!-- row 9 -->"
BodyM = BodyM & "<td><img name=ticket_19 src=http://www.somosmillonarios.com/ticket_19.gif width=121 height=44 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=44 border=0></td></tr><tr valign=top><!-- row 10 -->"
BodyM = BodyM & "<td rowspan=3><img name=ticket_20 src=http://www.somosmillonarios.com/ticket_20.gif width=121 height=91 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=11 border=0></td></tr><tr valign=top><!-- row 11 -->"
BodyM = BodyM & "<td rowspan=3><img name=ticket_21 src=http://www.somosmillonarios.com/ticket_21.gif width=76 height=111 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=74 border=0></td></tr><tr valign=top><!-- row 12 -->"
BodyM = BodyM & "<td rowspan=2 colspan=5><img name=ticket_22 src=http://www.somosmillonarios.com/ticket_22.gif width=274 height=37 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=6 border=0></td></tr><tr valign=top><!-- row 13 -->"
BodyM = BodyM & "<td rowspan=2><img name=ticket_23 src=http://www.somosmillonarios.com/ticket_23.gif width=121 height=62 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=31 border=0></td></tr><tr valign=top><!-- row 14 -->"
BodyM = BodyM & "<td colspan=5><img name=ticket_24 src=http://www.somosmillonarios.com/ticket_24.gif width=274 height=31 border=0></td>"
BodyM = BodyM & "<td><img name=ticket_25 src=http://www.somosmillonarios.com/ticket_25.gif width=76 height=31 border=0></td>"
BodyM = BodyM & "<td><img src=http://www.somosmillonarios.com/shim.gif width=1 height=31 border=0></td></tr></table></td></tr><tr><td width=100 bgcolor=#FFCC00> </td>"
BodyM = BodyM & "</tr></table></body></html>"
if correo <> "[email protected]" then
strTo = correo
strSubject = "Ticket SomosMillonarios.com"
' strBody = "<html> <body>"
' strBody = strBody & BodyM & "<br><br>"
' strBody = strBody & "El serial de tu ticket. "& password &"" & "<br>"
' strBody = strBody & "Gracias por confiar en nosotros." & "<br>"
' strBody = strBody & "</html> </body>"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "[email protected]"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat=0
objCDOMail.MailFormat=0
objCDOMail.Body = BodyM
objCDOMail.Send
Set objCDOMail = Nothing
end if
end sub
Espero que te sirva.
Suerte y Salu2.
Bye
