<%@ 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"

%>