home *** CD-ROM | disk | FTP | other *** search
/ Neil's C++ Stuff / 2006-05-neilstuff_com.iso / bin / mailpost.asp next >
Encoding:
Text File  |  2006-07-11  |  948 b   |  52 lines
  1. <%@Language=JScript%><%
  2.  
  3.  
  4. var mail = new ActiveXObject("Persits.MailSender");
  5.  
  6. switch (GetRequestParam("to"))
  7. {
  8.     case "chris":
  9.         mail.AddAddress("chris.cowherd@enom.com");
  10.         break;
  11.  
  12.     case "neil":
  13.     default:
  14.         mail.AddAddress("neil.obremski@enom.com");
  15.         break;
  16. }
  17.  
  18. try
  19. {
  20.     mail.From = GetRequestParam("from");
  21. }
  22. catch (e)
  23. {
  24.     mail.FromName = GetRequestParam("from");
  25.     mail.From = "neil.obremski@enom.com";
  26. }
  27.  
  28. mail.Subject = GetRequestParam("subj");
  29. mail.Body = GetRequestParam("text");
  30.  
  31. mail.Host = "ex.enom.com";
  32.  
  33. mail.Send();
  34.  
  35. Response.Redirect(GetRequestParam("redir"));
  36.  
  37. Response.End();
  38.  
  39. //_[GetRequestParam()]________________________________________________________
  40. //
  41. function GetRequestParam(param)
  42. {
  43.     if (Request.Form(param).Count > 0)
  44.         return "" + Request.Form(param).Item(1);
  45.  
  46.     if (Request.QueryString(param).Count > 0)
  47.         return "" + Request.QueryString(param).Item(1);
  48.  
  49.     return null;
  50. }
  51.  
  52. %>