|
<!-- This sample script uses the CDO for NTS Library to send email to a specific user. Leon Braginski & Matt Powell (c) Note: "To" is a reserved word, so we added an underscore to it. --> <%@ LANGUAGE = "VBScript" %> <% If (Request.ServerVariables ("REQUEST_METHOD") = "POST") then From = Request.Form("from") To_ = Request.Form("to") Subject = Request.Form("subject") Body = Request.Form("body") else ' Assume it is GET From = Request.QueryString("from") To_ = Request.QueryString("to") Subject = Request.QueryString("subject") Body = Request.QueryString("body") end if Set objNewMail = Server.CreateObject ("CDONTS.NewMail") objNewMail.Send From, To_, Subject, Body Set objNewMail = Nothing Response.Write "Message was sent" %> |