Hola a todos, explico mi problema. Intento enviar una variable de session de un carrito de compra a través de un formulario con aspmail. A priori el aspmail realiza su función, pero en cambio en el email que recibo, aparece tan sólo la tabla html pero sin ningún valor. Tan solo donde supuestamente tendría que ir el valor, aparece "False".
Pongo el código para a ver si alquien me pudiera ayudar, o ver algo que yo no vea. De ante mano, muchas gracias.
<%
Dim carrito
Dim oConn
Dim Email, Mail, Phone, vName, Message, Asunto, gastos, clave
gastos = 25
vName = request.Form("vName")
Email = request.Form("Email")
Phone = request.Form("Phone")
Asunto = request.Form("Subject")
Message = request.Form("Message")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=dsn"
set oRs=Server.CreateObject("ADODB.Recordset")
set carrito=Session("carrito")
'envío de correo con ASPEMail
set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host = "host.com"
Mail.From = "alquien"
Mail.FromName = "host.com"
Mail.AddAddress "[email protected]"
Mail.Subject = "Pedido Online"
Mail.Body = "<HTML><HEAD><BODY><TABLE>"
For Each clave in carrito
subtotal=0
SQL="SELECT * FROM rsAcc WHERE idAcc="&clave&";"
set oRs=oConn.Execute(SQL)
Mail.Body = Cstr(Mail.Body) & "<TR><TD width='40' style='border-left:1px solid #CCCCCE'>"&request.Form("vName")&"</TD>"
Mail.Body = Cstr(Mail.Body) & "<TD width='132' style='border-left:1px solid #CCCCCE'>"&oRs.Fields("nameAcc")&"</TD>"
Mail.Body = Cstr(Mail.Body) & "<TD><div align='center'>"&carrito(clave)&"</div></TD>"
Mail.Body = Cstr(Mail.Body) & "<TD><div align='center'>"&oRs.Fields("precioAcc")&"</div></TD>"
Mail.Body = Cstr(Mail.Body) & "</div></TD>"
if oRs.Fields("precioAcc") <> "" then
Mail.Body = Cstr(Mail.Body) & subtotal=FormatNumber(carrito(clave))*CDBL(oRs.Fie lds("precioAcc"))
Mail.Body = Cstr(Mail.Body) & total=total+subtotal
end if
Mail.Body = Cstr(Mail.Body) & "<TD colspan='2'><div align='center'>subtotal</div></TD>"
Mail.Body = Cstr(Mail.Body) & "</TR>"
Next
Mail.Body = Cstr(Mail.Body) & "<TR bgcolor='#DEDEE0' class='bodytext'>"
Mail.Body = Cstr(Mail.Body) & "<TD COLSPAN=5><div align='right'>Gastos de envío</div></TD>"
Mail.Body = Cstr(Mail.Body) & "<TD colspan='2'>"
Mail.Body = Cstr(Mail.Body) & "<div align='center'>"&gastos&""
Mail.Body = Cstr(Mail.Body) & "</div></TD>"
Mail.Body = Cstr(Mail.Body) & "</TR></TABLE></BODY></HTML>"
Mail.Body = Cstr(Mail.Body) & "esto es estático"
Mail.IsHTML = True
'On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error, pruebe a enviar su pedido mas tarde " & Err.Description
Else
Response.Write "Mensaje enviado correctamente."
End If
set Session("carrito")=carrito
oConn.Close
set oConn=nothing
Set Mail = Nothing
%>
Saludos
