CDONT y cibertienda AYUDA! Tengo un problema con el programa cibertienda que se lo puede bajar en http://webtutorial.com.ar, paso a explicarlo.
Uso el programa para generar un carrito de compra, todo bien, hasta que llego a la página de formulario en ASP para hacer el check-out.
Lleno el formulario y cuando intento enviarlo me da el siguiente error:
-----
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/CAMARAS/enviar.asp, line 4
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http:// www.microsoft.com/contentredirect.asp.
-----
me parece que el error es que el programa me genera el codigo para enviar el programa para ser usado con ASPemail y no con CDONT, a pesar de que le pido al programa que use CDONT.
alguien puede ayudarme?
les muestro el código a continuación.
<%
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = ""
Mail.From = "[email protected]"
Mail.FromName = "Cibertienda"
Mail.AddAddress "[email protected]", "Cibertienda"
Mail.Subject = "Cibertienda - Orden de Compra"
Mail.Body = "Cibertienda v1.0 - Orden de Compra" & VbCrLf & VbCrLf
For index = 1 to Request.Form.Count
Producto = Request.Form("Producto" & index)
Cantidad = Request.Form("Cantidad" & index)
ProductoTotal = Request.Form("ProductoTotal" & index)
Mail.Body = Mail.Body & "Producto" & index & ": " & Producto & VbCrLf
Mail.Body = Mail.Body & "Cantidad" & index & ": " & Cantidad & VbCrLf
Mail.Body = Mail.Body & "ProductoTotal" & index & ": " & ProductoTotal & VbCrLf & VbCrLf
next
Total = Request.Form("Total")
Mail.Body = Mail.Body & "Total: " & Total & VbCrLf & VbCrLf
Mail.Body = Mail.Body & "Datos Personales:" & VbCrLf
Mail.Body = Mail.Body & "Nombre " & Request.Form("nombre") & VbCrLf
Mail.Body = Mail.Body & "Apellido " & Request.Form("apellido") & VbCrLf
Mail.Body = Mail.Body & "Domicilio " & Request.Form("domicilio") & VbCrLf
Mail.Body = Mail.Body & "Ciudad " & Request.Form("ciudad") & VbCrLf
Mail.Body = Mail.Body & "Provincia " & Request.Form("provincia") & VbCrLf
Mail.Body = Mail.Body & "Código Postal " & Request.Form("cp") & VbCrLf
Mail.Body = Mail.Body & "País " & Request.Form("pais") & VbCrLf
Mail.Body = Mail.Body & "E-mail " & Request.Form("email") & VbCrLf
Mail.Body = Mail.Body & "Teléfono " & Request.Form("telefono") & VbCrLf
Mail.Body = Mail.Body & "Fax " & Request.Form("fax") & VbCrLf
Mail.Send
If Err <> 0 Then
Response.Write Err.Description
End If
%>
Ojala alguien me pueda dar una mano, saludos.
Marco
