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>