Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/11/2003, 20:21
kaneda560
 
Fecha de Ingreso: noviembre-2003
Mensajes: 27
Antigüedad: 21 años, 5 meses
Puntos: 0
Carrito de compra cibertienda ayuda!!!!!!!!!

pues eso resulta que no tengo ni idea de como configurar el server ya que en php me dice que no esta disponible y quisiera hacerlo en asp pero no tengo ni idea de asp asi que cuando pongo que cibertienda me genere el archivo en asp configurado sin tocar nada en cdonts pero me da error .
esto es lo que me genera:
<%
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
%>
y cuando lo subo a un servidor asp y relleno el formulario y lo envio me sale el siguiente error:
Objeto Server error 'ASP 0177 : 800401f3'

Error en Server.CreateObject

/webs5/access/enviar.asp, line 4

ProgID no válido. Para recibir información adicional referente a este mensaje, visite el sitio Web de soporte técnico de Microsoft que se encuentra en: http://www.microsoft.com/contentredirect.asp.

por favor decidme que hay que rectificar para que funcione gracias

Última edición por kaneda560; 29/11/2003 a las 20:34