String en ASP

Roly · #1 (**permalink**) 06/01/2005, 07:37

soy nuevo en esto de asp y tengo que hacer algo pequeño, lo que no encontre como hacer es definir una cadena como se hace en php, ej:

mensaje="Hola
<tr>
<td> Texto</td>
</tr>"

no si se puede o no, es para armar un mensaje para un mail.

baklao · #2 (**permalink**) 06/01/2005, 08:12

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&nbsp;&nbsp;&nbsp; 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 &"&nbsp;"& apelli &"</font><font color=#000080><br>"
BodyM = BodyM & "</font><font color=#0066CC>"& nombrej &"&nbsp;&nbsp;"& request.cookies("HoraSorteo") &"&nbsp;&nbsp;"& 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 &"&nbsp;"& monto &"<br>"
BodyM = BodyM & "</font><font color=#000080><br>Monto a Ganar: </font></b></font><font color=#FF0000 face=Arial><b>"& moneda &"&nbsp;"& 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>&nbsp;</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