Problemas con Formulario

[rumaka]

Hola que tal, necesito ayuda con una tienda online que estoy creando, tengo estoas archivos toods en la misma carpeta


http://www.guerreroweb.net/tienda/formulario.htm

al rellenar el formulario y darle a enviar para que mellegue la informacion a mi correo me sale esto

http://www.guerreroweb.net/tienda/enviar.asp

este archivo .asp contiene lo siguiente--->>>>>




<%
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "[email protected]"
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
%>




AGRADECERIA UNA AYUDA SALUDOS.

[JavierB]

Movido al foro de ASP desde Css.

Saludos,

[Shiryu_Libra]

y el error cual es????

[rumaka]

pues que no me llega nada, me sale una pagina en blanco.

[Shiryu_Libra]

es claro amigo, lo que pasa es que ejecutas un proceso que hace el servidor, pero jamas le dices a la maquian que te diga que hizo... por ejemplo

tu codigo

<%
response.write "Correo enviado ....."
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index

..........
tu codigo de envio mail
..........

If Err = 0 Then
response.write "Exitosamente!! "
else
response.write "Error en el envio. consulte su error<br/>"
Response.Write Err.Description
End If
%>

mira lo que esta en rojo, eso pasara cuando realizes este procedimiento

Nota: tu funcion estaba ejecutandose, solo que no tenias indicativos de que hacia, y al no poner ningun RESPONSE.WRITE, de algo, logicamente la pagina aparecia en BLANCO

[rumaka]

Bufffff, que chungo no entiendo nada, donde pongo ese script?

SALUDOS.

[Shiryu_Libra]

<%
response.write "Correo enviado ....."
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index

..........
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "[email protected]"
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 "Exitosamente!! "
else
response.write "Error en el envio. consulte su error<br/>"
Response.Write Err.Description
End If
%>