Alguien me puede decir que le tengo que agregar a este codigo para que, ademas de enviar el mail que envia, envie otro a la direccion que ingrese el cliente en el formulario? y ademas lea solo los hidden y no los text.
<%
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "xxx.xx.xxx.xxx"
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 & "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
If Err <> 0 Then
Response.Write Err.Description
End If
%>
Muchas gracias de antemano
