Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Enviar resultado del carrito Asp por mail
 Foro Bloqueado  Tema Bloqueado


Autor Temas
manolete
Starting Member

España
8 Posts
Mensajes - 08 Apr 2005 :  10:46:59  Ver Perfil  Enviar Email
Hola,
Escribo para ver si alguien podria ayudarme con respecto a un problema que tengo con el carrito de la compra de aspfácil.He visto otros mensajes parecidos, y las respuestas no me ayudaban mucho ya que solo referenciaban a mandar un mail. El problema que tengo es enviar el resultado del carrito por mail, pero lo de enviar el mail no es problema, lo que no se como hacer es para poder guardar el resultado de la ejecución asp del carrito en una variable, para poder ponerla luego como cuerpo del mensaje, o algo asi. He pensado en guardarlo como campo oculto en un formulario, de la forma <input name="poculto" type="hidden" value="<%MostrarCarritoFinal%>"> pero no consigo que se guarde ahi, o no consigo sacarlo, aunque he dedicado ya un tiempo. Si alguien puede ayudarme con esto se lo agradeceria enormemente,

El código es el que aparece como ejemplo en aspfacil, y el metedo que quiero almacenar es el de MostrarCarritoFinal:

Sub MostrarCarritoFinal
' Muestra el contenido del carrito de la compra final
' En este ejemplo los gastos de envío los declaro aquí como constante.
' En un caso real deberían traerse de base de datos y llenar un combo por ejemplo

' carrito es la variable global que referencia al carrito

Dim oRs, SQL

Dim clave

Dim gastos ' Gastos de envio
Dim total, subtotal

gastos=2500 ' Para todo el mundo! :)
total=0
subtotal=0

' Conexión sin DSN a la base de datos

set oRs=Server.CreateObject("ADODB.Recordset")


'Pinto la tabla


%><style type="text/css">
<!--
-->
</style>
<p>&nbsp;</p>
<TABLE width="509" BORDER="0" align="center" CELLPADDING="1" CELLSPACING="1">
<TR bgcolor="#CAE4FF">
<TD height="41">Artículo</TD>
<TD>Cantidad</TD>
<TD>Precio/unidad</TD>
<TD>Total</TD>
</TR>
<TR align="center">
<TD>.</TD>
<TD>&nbsp;</TD>
<TD>&nbsp;</TD>
<TD>&nbsp;</TD>
</TR>
<%
For Each clave in carrito
subtotal=0 ' Total de cada artículo en el carrito
'Pinto la línea de este producto
SQL="SELECT * FROM Files WHERE Id="&clave&";"
set oRs=oConn.Execute(SQL)

%>
<TR>

<TD><%=oRs.Fields("Nombre")%></TD>
<TD align="center"><%=carrito(clave)%></TD>
<TD align="center"><%=oRs.Fields("Precio")%></TD>
<%
' Multiplico el precio por la cantidad. FormatNumber me asegura que es un nº válido
' y convierto todo a tipo Single con CSng.
subtotal=CSng(FormatNumber(carrito(clave))*oRs.Fields("Precio"))
total=total+subtotal
%>
<TD><%= subtotal %></TD>
</TR>
<%
Next

if carrito.Count > 0 then
oRs.Close
set oRs=nothing
end if

'Pinto el final de la tabla

%>
<TR>
<TD COLSPAN=3>Gastos de envío</TD>
<TD>
<%
if total=0 then
Response.Write("0") ' Sin compra no hay gastos de envío
else
Response.Write(gastos)
end if
%>
</TD>
<TR>
<TD COLSPAN=3><B>Total:</B></TD>
<TD>
<%if total=0 then
Response.Write("0")
else
Response.Write(total+gastos)
end if
%>
</TD>
</TABLE>
<%
' Pinto los enlaces
' si no he llamado desde PasarPorCaja
if accion<>"fin" then
%>
<%
end if
End Sub
'----------------------------------------------------------

La idea es que el resultado de la ejecucion, es el pedido en sí, que es lo que tengo que enviar, pero no se la manera de almacenar el resultado en una variable, para ponerlo despues de cuerpo del mail,


Muchas gracias por adelantado

Un saludo,


manolete
Starting Member

España
8 Posts
Posted - 08 Apr 2005 :  12:10:31  Ver perfil  Enviar e-mail
Perdon, el carrito me referia al que teneis en asptutor, agradezco sugerencias

Un saludo

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar