home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2004 November / PCWNOV04.iso / Software / Full / Databecker Mail To Date / MailScripts / mail.asp < prev    next >
Encoding:
Text File  |  2003-07-03  |  1.2 KB  |  51 lines
  1. <% 
  2.  
  3. ' ------------------------------------------------------
  4. ' Formular-Gateway-Script fⁿr mail to date / web to date
  5. ' (C) 2002 MultiMⁿller GmbH
  6. ' www.multimueller.de
  7. ' ------------------------------------------------------
  8.  
  9. response.expires=0
  10.  
  11. fgwmessage=""
  12.  
  13. for each entry in Request.Form
  14.    Select Case entry
  15.    case "x"
  16.    case "y"
  17.    case "fgwemail"
  18.      fgwemail=Request.Form(entry)
  19.    case "fgwsubject"
  20.      fgwsubject=Request.Form(entry)
  21.    case "fgwreturnurl"
  22.      fgwreturnurl=Request.Form(entry)
  23.   case else
  24.      fgwmessage=fgwmessage+entry+": "+Request.Form(entry)+chr(13)+chr(10)
  25.   end select
  26. next
  27.  
  28. if fgwemail="" then
  29.   Response.Write "Keine E-Mail-Adresse angegeben"
  30.   Response.End
  31.  
  32. elseif fgwsubject="" then
  33.   Response.Write "Keinen Betreff angegeben"
  34.   Response.End
  35.  
  36. elseif fgwreturnurl="" then
  37.   Response.Write "Keine Feedback-Seite angegeben"
  38.   Response.End
  39.  
  40. else
  41.   SendMail "formgateway@web-2-date.de",fgwemail,fgwsubject,fgwmessage
  42.   Response.Redirect fgwreturnurl
  43. end if
  44.  
  45. function SendMail(AddressFrom, AddressTo, Subject, Message)
  46.    set objMail = Server.CreateObject("CDONTS.Newmail")
  47.    objMail.send AddressFrom, AddressTo, Subject, Message
  48.    set objMail=Nothing
  49. end function
  50.  
  51. %>