<% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.grupogonzalezgervaso.com" ' Specify a valid SMTP server Mail.Username="tah082c" Mail.Password="ventas" Mail.From = "ventas@grupogonzalezgervaso.com" ' Specify sender's address 'Mail.From = "info@digiworks.es" ' Specify sender's address Mail.FromName = "Promogon S.A." ' Specify sender's name if Request.Form("Subject") = "WEB DPTO. VENTAS" then Mail.AddAddress "ventas@grupogonzalezgervaso.com", "DPTO. VENTAS" Mail.AddReplyTo "ventas@grupogonzalezgervaso.com" end if if Request.Form("Subject") = "WEB DPTO. POSTVENTA" then Mail.AddAddress "oficina@grupogonzalezgervaso.com", "DPTO. POSTVENTA" Mail.AddReplyTo "oficina@grupogonzalezgervaso.com" end if 'Mail.AddAddress "info@digiworks.es", "Digiworks" 'Mail.AddReplyTo "info@digiworks.es" Mail.Subject = Request.Form("Subject") verz = Request.Form("Subject")&": " & vbCrLf verz = verz & "------------------------------" & vbCrLf & vbCrLf verz = verz & "Nombre: " & Request.Form("Nombre") & vbCrLf verz = verz & "Direccion: " & request.form("Direccion") & vbCrLf verz = verz & "Codigo_Postal: " & request.form("Codigo_Postal") & vbCrLf verz = verz & "Poblacion: " & request.form("Poblacion") & vbCrLf verz = verz & "Provincia: " & request.form("Provincia") & vbCrLf verz = verz & "Telefono: " & request.form("Telefono") & vbCrLf verz = verz & "Email: " & request.form("Email") & vbCrLf verz = verz & "Promocion: " & request.form("Promocion") & vbCrLf verz = verz & "Observaciones: " & request.form("Observaciones") & vbCrLf mail.Body = verz On Error Resume Next Mail.Send %>