enviar.asp (es la pagina que levanta toda la info del form, los pasa a la BD y envia el mail con el pedido).
<title>enviar</title><%
'Dim strEmail
Dim Producto, Cantidad, ProductoTotal, Total, Mail, index
'strEmail = Request.Form("email")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.midominio.com"
Mail.From = Request.Form("email")
Mail.FromName = Request.Form("nombre")
Mail.AddAddress "
[email protected]"
Mail.Subject = "Solicitud de Cotización"
Mail.Body = "Solicitud de Cotización" & 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& VbCrLf & 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 & VbCrLf
Mail.Body = Mail.Body & "Nombre-Apellido: " & Request.Form("nombre") & VbCrLf
Mail.Body = Mail.Body & "Empresa: " & Request.Form("empresa") & VbCrLf
Mail.Body = Mail.Body & "Ciudad: " & Request.Form("ciudad") & VbCrLf
Mail.Body = Mail.Body & "Provincia: " & Request.Form("provincia") & VbCrLf
Mail.Body = Mail.Body & "Pais: " & Request.Form("pais") & VbCrLf
Mail.Body = Mail.Body & "Telefono: " & Request.Form("telefono") & VbCrLf
Mail.Body = Mail.Body & "E-mail: " & Request.Form("email") & VbCrLf
Mail.Send
If Err <> 0 Then
Response.Write Err.Description
End If
Dim nombre, empresa, direccion, ciudad, provincia
Dim pais, telefono, email
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
empresa=Request.Form("empresa")
direccion=Request.Form("direccion")
ciudad=Request.Form("ciudad")
provincia=Request.Form("provincia")
pais=Request.Form("pais")
telefono=Request.Form("telefono")
email=Request.Form("email")
articulos=Request.Form("Producto" & index)
cantidad = Request.Form("Cantidad" & index)
' Creamos la conexion a la base de datos que omito
SQL="INSERT INTO pptos " & _
"(NomApell, Empresa, Direccion, Ciudad, Provincia, Telefono, Pais, Producto, Cantidad, Email, Fecha)"
SQL=SQL & " VALUES
('"&nombre&"','"&empresa&"','"&direccion&"','"&ciu dad&"','"&provincia&"','"&telefono&"','"&pais&"',' "&articulos&"','"&cantidad&"','"&email&"', #" & Month(Date) & "/" & Day(Date) & "/" & Year(Date) & "#);"
oConn.Execute(SQL)
oConn.Close
set oConn=nothing
If Err <> 0 Then
Response.Write Err.Description
End If
Response.Redirect "cotiz_ok.htm"
%>
Agradezco cualquier sugerencia pues debo terminarlo y no se como solucionarlo.
Edysierra