Foros del Web » Programando para Internet » ASP Clásico »

"basura" en aspmail.

Estas en el tema de "basura" en aspmail. en el foro de ASP Clásico en Foros del Web. Hola a todos, no se si le ha pasado a alguien, a mi no me había pasado nunca. Cuando envío el mail, con formato HTML, ...
  #1 (permalink)  
Antiguo 13/01/2003, 09:13
 
Fecha de Ingreso: noviembre-2002
Mensajes: 249
Antigüedad: 21 años, 7 meses
Puntos: 0
"basura" en aspmail.

Hola a todos, no se si le ha pasado a alguien, a mi no me había pasado nunca.

Cuando envío el mail, con formato HTML, entre el texto, me salen simbolos, (!), he incluso algún cambio de color en el texto, no me lo hace.

He probado de todo, incluso he puesto <table> en cada línea.

También se me descuadraban las columnas. Quitando una parte del código, lo he arreglado. Pero esta parte de código la necesito.

Aqui teneis una parte del codigo:

Mail.Subject = "PEDIDO: " & Session ("cln")

Mail.IsHTML = True

Mensaje ="<BODY bgcolor=lightyellow>"
Mensaje = Mensaje & "<font color=#008080>" & "DATOS CLIENTE" & "</font><hr color=#808080 width=625 align=left size=1>"
Mensaje = Mensaje & "<font color=#000080>" & "Codigo: " & Session ("cli") & "<br>"
Mensaje = Mensaje & "Nombre: " & Session ("cln") & "</font><br><br>"

Mensaje = Mensaje & "<font color=#008080>" & "DATOS DEL PEDIDO" & "</font><hr color=#808080 width=625 align=left size=1>"

DIM BD, RS1, SQL1
Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "DSN=mosimoll.com.per"
Set RS1 = Server.CreateObject("ADODB.Recordset")
SQL1 = "SELECT * FROM per_ped where codigo=" & Session ("cli")
RS1.Open SQL1, BD
Mensaje = Mensaje & "<table border=0><tr>"
Mensaje = Mensaje & "<td width=100><font color=#FF0000>Fecha</td>"
Mensaje = Mensaje & "<td width=75><font color=#FF0000>Referencia</td>"
Mensaje = Mensaje & "<td width=250><font color=#FF0000>Descripcion</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Pr/Un</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Un/Cj</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Cajas</td>"
Mensaje = Mensaje & "<td width=50 align=right><font color=#FF0000>Impor</td></tr></table>"

Do While Not RS1.EOF
Mensaje1 = Mensaje1 & "<table border=0><tr>"
Mensaje1 = Mensaje1 & "<td width=100 valign=top><font color=#336699 size=2>" & RS1("fecha") & "</td>"
Mensaje1 = Mensaje1 & "<td width=75 valign=top><font color=#336699 size=2>" & RS1("Referencia") & "</td>"
Mensaje1 = Mensaje1 & "<td width=250 valign=top><font color=#336699 size=2>" & RS1("Descripcion") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("precio") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("unidades") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("cantidad") & "</td>"
Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#336699 size=2>" & RS1("importe") & "</td></tr></table>"

Total=Total + RS1("importe")
RS1.Movenext
Loop

Mensaje = Mensaje & Mensaje1
Mensaje = Mensaje & "<br><table border=0 cellpadding=0 cellspacing=0>"
Mensaje = Mensaje & "<tr><td width=475 align=center><font color=#808080>Total Pedido:</td>"
Mensaje = Mensaje & "<td width=150 align=right><font color=#808080>" & Total & "</td></tr></table></body>"

Mail.Body = Mensaje


Esto es lo que he quitado:

' If RS1("Tofe") = "Q" then
' Regal = RS1("cantidad")\RS1("qofe")
' If Regal > 0 then
' Regal= formatnumber(regal,2)
' Mensaje1 = Mensaje1 & "<table border=0><tr>"
' Mensaje1 = Mensaje1 & "<td width=100 valign=top><font color=#336699 size=2>&nbsp;</td>"
' Mensaje1 = Mensaje1 & "<td width=75 valign=top><font color=#FF99CC size=2>" & RS1("Referencia") & "</td>"
' Mensaje1 = Mensaje1 & "<td width=250 valign=top><font color=#FF99CC size=2>REGALO POR CANTIDAD</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>0,00</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>" & RS1("unidades") & "</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>" & Regal & "</td>"
' Mensaje1 = Mensaje1 & "<td width=50 align=right valign=top><font color=#FF99CC size=2>0,00</td></tr></table>"
' End If
' End If


Tiene que ir justo delante de : Total=Total + RS1("importe")
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:30.