Tienda Virtual Sencilla

CARLOS.asp · #1 (**permalink**) 12/11/2006, 14:27

Hola a todos , soy un principiante que intenta programar.
Estoy intentando configurar un mini tienda virtual basada en el modelo de Cibertienda v.1. Todo las paginas funcionan bien en el servidor ( carrito.htm, estado.htm y formulario.htm ) excepto la pagina enviar.asp puesto que el servidor funciona con "Smtpsvg.Mailer" en lugar de con "Persist.Mailsender". He intentado adaptar el lenguage de la pagina "enviar.asp" al metodo Smtpsvg.Mailer pero solo veo la página y esta no envia ningun correo. El codigo fuente de la pagina es el siguiente:

<html>

<head>
<meta http-equiv="Content-Language" content="ca">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ENVIAR</title>

<%

Session ("Producto") = Request("Producto" & index)
Session ("Cantidad") = Request("Cantidad" & index)
Session ("ProductoTotal") = Request("ProductoTotal" & index)
Session ("Total") = Request("Total")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.remoteHost = "smtpMail.activeisp.com"
Mailer.From = "[email protected]"
Mailer.FromName = "FER COMANDA"
Mailer.AddAddress "[email protected]", "TENDA"
Mailer.Subject = "TENDA - Ordre de Compra"
Mailer.Body = "PROXIMVIAS - Ordre de Compra" & VbCrLf & VbCrLf

For index = 1 to Request.Form.Count

Mailer.Producto = "Producto: " Session("Producto") & VbCrLf & VbCrLf
Mailer.Cantidad = "Cantidad: " Session("Cantidad") & VbCrLf & VbCrLf
Mailer.ProductoTotal = "ProductoTotal: " Session("ProductoTotal") & VbCrLf & VbCrLf
Mailer.Total = "Total: " Session("Total") & VbCrLf & VbCrLf
Mailer.Bodytext = "Nombre " Request.form("nombre") & VbCrLf
Mailer.Bodytext = "Domicilio " Request.form("domicilio") & VbCrLf
Mailer.Bodytext = "Ciudad " Request.form("ciudad") & VbCrLf
Mailer.Bodytext = "Código Postal " Request.form("cp") & VbCrLf
Mailer.Bodytext = "E-Mail " Request.form("email") & VbCrLf
Mailer.Bodytext = "Telefono " Request.form("telefono") & VbCrLf
Mailer.send
if Mailer.Sendmail then Response.Write "PEDIDO CORRECTO"
else
Response.Write "El mensaje no ha sido enviado. El error es" & Mailer.Response
End If
Session.Abandon
%>

</head>
//Solo consigo ver este texto Y EL MAIL NO LO RECIBO
<body>funcionara? el Correo</body></html>

CARLOS.asp · #2 (**permalink**) 19/11/2006, 15:44

Me respondo a mi mismo :

El codigo casi correcto ( pues no me devuelve los productos seleccionados ) es el siguiente

<%@ Language=VBScript %>
<%
Dim Producto, Cantidad, ProductoTotal, Total, mail, index

Producto = Request.form("Producto" + index)
Cantidad = Request.form("Cantidad" + index)
ProductoTotal = Request.form("ProductoTotal" + index)
Total = Request.form("Total" + index)
For index = 1 to Request.form.Count

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "VIAS-PROXIM"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient"JOSE LUIS","[email protected]"
Mailer.Subject = "COMANDA"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.Bodytext= "PROXIMVIAS - COMANDA"
Mailer.RemoteHost = "smtpMail.activeisp.com"

Mailer.BodyText = Cuerpo

Cuerpo = "<HTML><HEAD><TD Align='Center'><TITLE>COMANDA DE PROVA</TITLE></HEAD><BODY bgColor=#FFFF80><br><TABLE cellSpacing=0 cellPadding=2 width=800 align=center bgColor=#FFFF80 border=1><TR><TD Align='Center'></BODY></HTML>"

Mailer.Bodytext = "Producto" + " : " + Producto & VbCrLf & "Cantidad" + " : " + Cantidad & VbCrLf & "ProductoTotal" + " : " + ProductoTotal + VbCrLf
next
Mailer.Bodytext = "Total" + ": " + Total + " Euros "

Mailer.Bodytext = "Nombre " + Request.form("nombre") + VbCrLf
Mailer.Bodytext = "Domicilio " + Request.form("domicilio") + VbCrLf
Mailer.Bodytext = "Ciudad " + Request.form("ciudad") + VbCrLf
Mailer.Bodytext = "Codigo Postal " + Request.form("cp") + VbCrLf
Mailer.Bodytext = "email " + Request.form("email") + VbCrLf
Mailer.Bodytext = "Telefono " + Request.form("telefono") + VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("MENSAJE ENVIADO")
else
response.write ("MENSAJE NO ENVIADO.")+ Mailer.Response
end if
%>

CARLOS.asp · #3 (**permalink**) 20/11/2006, 13:07

Alguien Sabe Por Que No Me Devuelve Producto Cantidad Y Producto Total ??????

CARLOS.asp · #4 (**permalink**) 08/12/2006, 16:33

Como ya me ha pasado, resulta que se debe a un problema de orden en las lineas.

<meta http-equiv="Content-Language" content="ca">
<%@ Language=VBScript %>
<%
Dim producto, Cantidad, productoTotal, Total, email, index

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "XXXXXX"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient"xxxxxx","[email protected]"
Mailer.Subject = "XXXXXX"
Mailer.Bodytext = "XXXXXXXXXXXXXX"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic; font-weight: bold""><br></BODY></HTML>"

For index = 1 to Request.Form.Count

producto = Request.form("producto" & index)
Cantidad = Request.form("Cantidad" & index)
productoTotal = Request.form("productoTotal" & index)

Mailer.Bodytext = Cuerpo & Cantidad & " unitat/s " & VbCrLf & "      " & Producto & VbCrLf & "      " & "Total con IVA " + " :     " & ProductoTotal & " Euros " & VbCrLf

next

Total = Request.form("Total")
Mailer.Bodytext = Cuerpo & "      " & "      " & "      " & "TOTAL A PAGAR" + " . : " + Total + " Euros "

Mailer.Bodytext = Cuerpo & Request.Form.Count
Mailer.Bodytext = Cuerpo & "Nom&nbsp.   " + " . : " + Request.form("nombre") + VbCrLf
Mailer.Bodytext = Cuerpo & "Domicili.   " + " . : " + Request.form("domicilio") + VbCrLf
Mailer.Bodytext = Cuerpo & "Ciutatsp.   " + " . : " + Request.form("ciudad") + VbCrLf
Mailer.Bodytext = Cuerpo & "Codi Postal....  " + " . : " + Request.form("cp") + VbCrLf
Mailer.Bodytext = Cuerpo & "email....   " + " . : " + Request.form("email") + VbCrLf
Mailer.Bodytext = Cuerpo & "Telèfon.:   " + " . : " + Request.form("telefono") + VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>

edysierra · #5 (**permalink**) 20/01/2007, 15:30

Hola, de casualidad di con tu post y te comento que yo hace mucho tiempo que lo utilizo, pero aun no pude resolver un problema, y por eso pense en consultar si lo habias podido resolver:

Como yo lo adapte como simple cotizador, no como carro de compras, quite las partes que se referian a los precios, impuestos, etc. El punto es que cuando me manda el pedido por mail pone, aparte de los articulos seleccionados, campos en blanco diciendo Producto1 Cantidad1 en blanco.
Por lo que una vez lei en el foro del desarrollador, ya le habian comentado este problema pero nadie dijo nada de como corregirlo.
Bueno, si lo pudiste solucionar te agradeceré me comentes como lo hiciste.

Gracias

Edysierra

Essftg · #6 (**permalink**) 23/01/2007, 03:03

Hola chicos tengo mas o menos el mismo problema q quiero mostrar lo q me han pedido en la tienda pero no se muy bien como enviar los datos por e-mail, es decir, Referencia, Descripcion, Colores, tallas y Cantidades. si me podeis mandar todo el codigo completo os lo agradeceria enormemente a [email protected].

edysierra · #7 (**permalink**) 27/01/2007, 16:30

Hola, yo lo tengo desarrollado, aunque aun me falta pulir un par de cosas, pero creo que, por lo que decis, la parte esa a mi me funciona bien.
En principio te comento que lo utilizo con aspemail asi que, si no utilizas ese componente, deberas modificarlo segun tus necesidades.
Básicamente trabajo con un formulario donde se deben ingresar toda una serie de datos del visitante como asi tambien colores, tipos, etc. Luego hago que ellos ingresen a una bd y despues salga el mail a la oficina de ventas con todo lo que se pidio: Num de art, cantidad, colores, datos personales, etc.

si te interesa decimelo que te envio los archivos. Ah, una cosa: sigo teniendo el problema de no poder insertar en la BD los campos Producto y Cantidad. He probado de distintas formas pero sin exito. Tampoco puedo evitar que en el cuerpo del mail vengan Producto/Cantidad en blanco de aquellos no pedidos, al margen de los que si deben llegar. Espero haberme sabido expresar.
Bueno, si te interesa lo que hice hasta ahora me avisas.

Edysierra