Este es el codigo que yo estoy usando en el archivo enviar.asp si alguien lo pudiera mejorar se lo agradeceria.
Lo que tienes que fijarte en todo caso es que los campos de tu formulario coincidan con los request.form de este codigo.
No es mala idea ademas poner un validador de campos en la pagina formulario, sobre todo en el campo e-mail.
<%
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "tu servidor de mail"
Mail.From = "
[email protected]"
Mail.FromName = "tu nombre"
Mail.AddAddress "
[email protected]", "Cibertienda"
Mail.Subject = "Pedido en internet"
Mail.Body = "Pedido : " & VbCrLf & VbCrLf
For index = 1 to Request.Form.Count
if Request.Form("Cantidad" & index) <> "" then
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 & "TotalProducto" & index & ": " & " $ " & ProductoTotal & VbCrLf & VbCrLf
end if
next
' dim ListaDeProductos
ListaDeProductos = Mail.Body
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 & "Comuna : " & Request.Form("comuna") & VbCrLf
Mail.Body = Mail.Body & "Teléfono : " & Request.Form("telefono") & VbCrLf
Mail.Body = Mail.Body & "E-mail : " & Request.Form("email") & VbCrLf
Mail.Body = Mail.Body & "Comentarios : " & Request.Form("comentario") & VbCrLf
Mail.Send
' preparemos el email para el cliente ... solo si hay email
if Request.Form("email") <> "" then
Set MailCliente = Server.CreateObject("Persits.MailSender")
MailCliente.Host = "tu servidor de mail"
MailCliente.From = "
[email protected]"
MailCliente.FromName = "nombre que quieres mostrar"
MailCliente.AddAddress (Request.Form("email"))
MailCliente.Subject = "subject del mail"
MailCliente.Body = "mensaje en el mail." & VbCrLf & VbCrLf
MailCliente.Body = MailCliente.Body & VbCrLf & ListaDeProductos
MailCliente.Body = MailCliente.Body & "Total: $" & Total & VbCrLf & VbCrLf
MailCliente.Body = MailCliente.Body & "Ud ingreso los siguientes datos:" & VbCrLf & VbCrLf
MailCliente.Body = MailCliente.Body & "Nombre : " & Request.Form("nombre") & VbCrLf
MailCliente.Body = MailCliente.Body & "Apellido : " & Request.Form("apellido") & VbCrLf
MailCliente.Body = MailCliente.Body & "Domicilio : " & Request.Form("domicilio") & VbCrLf
MailCliente.Body = MailCliente.Body & "Comuna : " & Request.Form("comuna") & VbCrLf
MailCliente.Body = MailCliente.Body & "Teléfono : " & Request.Form("telefono") & VbCrLf
MailCliente.Body = MailCliente.Body & "E-mail : " & Request.Form("email") & VbCrLf
MailCliente.Body = MailCliente.Body & "Comentarios : " & Request.Form("comentario") & VbCrLf
end if
MailCliente.Send
Response.Redirect("http://pagina a la que quieres redireccionar")
If Err <> 0 Then
Response.Write Err.Description
End If
%>