Codigo de asp en cuerpo del mensaje. AYUDA URGENTE

erika · #1 (**permalink**) 02/05/2002, 21:44

Tengo cierta información de un formulario (nombre, direccion, etc.) que es enviada a traves de mail. Ademas de estos datos, en el mail tengo que agregar una tabla que es originada automaticamente por asp con una lista de productos que el navegante ha elegido, ya este es un carrito de compras. Pero cuando ingreso esta tabla dentro del body del mensaje, no se genera automaticamente ya que no me acepta el cogido asp para que me genere otra vez automaticamente esta tabla con los productos.
Como puedo hacer para que los productos del carrito del compras sean agregados dentro del mail que mando con la información del pedido??
Muchas Gracias, Erika.

rashid · #2 (**permalink**) 02/05/2002, 22:28

NO estoy seguro si interprete bien tu pregunta, pero estudia este codigo que es el que procesa una formula para enviar un mail con una tabla.
'get current date
strDate = Date()

'get form information
strFormName = Request("FormName")
strSubject = Request("subject")
strSendTo = Request("SendTo")
'create the HTML for email
strHTML = "<HTML> <HEAD> <TITLE></TITLE> </HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<TABLE WIDTH=500 CELLPADDING=0 CELLSPACING=0>"
strHTML = strHTML & "<TR>"

'include basic info in email
strHTML = strHTML & "<TR>"
strHTML = strHTML & "<TD>"

'use some graphics for email
strHTML = strHTML & "<TD><IMG SRC=" & strHTTP & "guestbook.gif></TD>"
strHTML = strHTML & "</TR>"

'include basic info in email
strHTML = strHTML & "<TR>"
strHTML = strHTML & "<TD>"
strHTML = strHTML & "<BR>Date: " & strDate
strHTML = strHTML & "<BR>Subject: " & strSubject
strHTML = strHTML & "<BR>Requested by: " & strName
strHTML = strHTML & "</TD>"
strHTML = strHTML & "</TR>"
strHTML = strHTML & "<TR>"
strHTML = strHTML & "<TD></TD>"
strHTML = strHTML & "</TR>"
strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

'time to send the email
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")

objCDO.To = strSendTo
objCDO.From = strFrom
objCDO.Subject = strName & " - " & strSubject
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Body = strHTML
objCDO.Send

set objCDO = nothing

'redirect to the "Thanks" page
Response.Redirect strHTTP & "conf.htm"
%>

La tabla de seguro no esta buien por que corte el codigo es solo muestra, pero mira que hay que insertar
strHTML = strHTML &
y todo lo nuestro entre comillas, tambien observa que el
objCDO.Body = strHTML
del mail es precisamente este strHTML que hicimos, de modo que el bodi recoge todo el codigo entre los tags strHTML
Ok, espero te sirva.
Pura Vida!

erika · #3 (**permalink**) 02/05/2002, 23:14

Gracias por tu ayuda, pero el tema es que yo no se cuantas filas va a tener la tabla, ya que pueden elegir distintas cantidades de productos. El tema es que la tabla se genere automaticamente y es eso que no se como hacerlo.
Aca pongo el codigo que genera la tabla automaticamente con los productos, descripciones y cantidades de cada uno que despues es el que tengo que enviar en el mail, para ver si me pueden entender mejor:

<%
dim total
Dim totalcant

total=0
totalcant=0

if not IsEmpty(articulos) then
narticulos = Ubound(articulos)-1

dim k

for k=0 to narticulos
%>
<tr>
<td class="dato" bgcolor="#BEE0FC" width="49">
<div align="center"><font face="Arial" size="2">
<% =codigos(k) %>
</font> </div>
</td>
<td class="dato" width="150" bgcolor="#BEE0FC">
<div align="center"><font face="Arial" size="2">
<% =notas(k) %>
</font></div>
</td>
<td class="dato" bgcolor="#BEE0FC" width="78">
<div align="center"><font face="Arial" size="2">
<% =cantidades(k) %>
</font> </div>
</td>
</tr>
<%
total = precios(k)*cantidades(k)+total
totalcant = cantidades(k)+totalcant
next

Dim iva
Dim gastos

iva = total * 0.21
gastos = totalcant * 1

Dim totalfinal

totalfinal=total+iva+gastos
%>

Por favor ayudenme!!!
Gracias.