variables de sesion

suntus · #1 (**permalink**) 14/09/2004, 04:51

Tengo este script para mostrar los productos de mi carrito
¿como puedo mandar por email el resultado de este buble?

sub muestra_carrito()
precio_total=0
if session("num_prod")=0 then
response.write "el carrito está vació"
else
for i=1 to session("num_prod")
response.write "linea de producto " & i & " "
if session("producto" & i) <> 0 then
response.write "Identificador de producto " & session("producto" & i) & " "
response.write "Nombre de producto " & session("nombre" & i) & " "
response.write "Precio de producto " & session("precio" & i) & " "
response.write "<a href=""borrar_producto.asp?linea=" & i & """>Borrar producto</a>"
precio_total = precio_total + session("precio" & i)
else
response.write "Este producto ha sido borrado del carrito"
end if
response.write ""
next
response.write "El precio total del producto es " & precio_total & ""
end if
end sub

gracias foro

maru539 · #2 (**permalink**) 14/09/2004, 05:15

Hola! más o menos es así, yo lo tengo para enviarle los datos al usuario cuando se registra. Tienes que recoger el campo del email del destinatario (si es que se lo quieres enviar a él) si no debes poner el email a quien se le va a enviar este correo:

Código:

email = request.querystring("Email") // este campo lo pides o lo recoges o pones tu email

if producto <> "" and nombre <> "" and precio <> "" and precio_total <> "" then 

asunto = "El asunto del email"
nombre_url = "[email protected]"

	  mensaje = "<font face=verdana size=1>Hola " & nombre & " los datos del producto " & producto & " son:<br>" 
       mensaje = mensaje & "Precio: " & precio & "<br>"
       mensaje = mensaje & "Total: " & precio_total & "<br>"
 
       Set envio = Server.CreateObject("CDONTS.NewMail")
       envio.BodyFormat = 0 
       envio.MailFormat = 0 

       envio.Send nombre_url, email, asunto, mensaje 
       
       Set envio = Nothing 
       response.write "Emvio con éxito.<br>"
       
else 
       response.write "Lo sentimos ha habido un <b>error</b>. Vuelválo a intentarlo más tarde.<br>" 

end if

Espero que te sirva. Ah! tu servidor debe tener instalado CDONTS que es por donde se envia el email, sino puedes probar con PERSITS, la sintaxis básica del PERSITS es:

Código:

tunombre=Request.Form("tunombre")
tuemail=Request.Form("tuemail")
sunombre=Request.Form("sunombre")
suemail=Request.Form("suemail")

strHost = "servmail.tusitio.com"
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = strHost

Mail.From = "[email protected]"
Mail.FromName = "Pon tu Nombre"
Mail.AddAddress suemail

Mail.Subject = "Pon el asunto, por ejemplo RECOMENDAR"

Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Hola! Tu amigo "&tunombre&" ("&tuemail&") te recomienda que visites la página <a href='http://scripts.maruspage.com'>Cute Scripts For Personal Webs</a>, es una web que posee contenido de gran utilidad para webmasters, sobre todo principiantes.<br><br>Espero que te guste!</p></font></BODY></HTML>"

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send    ' send message
If Err <> 0 Then ' error occurred
    strErr = Err.Description
else
    bSuccess = True
End If

Modifica los datos a tu gusto. Hasta luego!