Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 9th, 2012  |  syntax: None  |  size: 0.56 KB  |  hits: 20  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. <%
  2.         Set Mailer = Server.CreateObject("Persits.Mailsender")
  3.        
  4. Mailer.Host = "172.20.1.20"
  5.        
  6. Mailer.Port = 25
  7.        
  8. Mailer.From = request("email")
  9.  
  10. Mailer.Fromname = request("nombre")
  11.        
  12. Mailer.Subject = "Consulta - Por un Chile bien escrito"
  13. Mailer.Body= request.Form("mensaje")
  14.        
  15. Mailer.AddAddress "victorpalmabascur@gmail.com"
  16.        
  17. On Error Resume Next
  18.                
  19. Mailer.Send
  20.        
  21. If Err <> 0 Then
  22.    
  23. Response.Write "Ha ocurrido el siguiente error: " &Err.Description
  24.        
  25. else
  26.        
  27. response.Write("Su consulta ha sido enviada satisfactoriamente")
  28.        
  29. End If
  30.        
  31.        
  32.  
  33. %>
create a new version of this paste RAW Paste Data