<%
'Modify the address below to whatever you want the message sent to.
'============================================================================
EmailTo = "book@profam.org"
'============================================================================
dim formPosted
formPosted = request("posted")
if formPosted then
dim strMessage, EmailFrom, EmailTo, strBody, strSubject
strMessage= request("txtmessage")
EmailFrom = request("txtfrom")
strSubject = request("txtsubject")
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = EmailTo
objCDO.From = EmailFrom
if strSubject = "" then strSubject = "Message Sent From worldcongress.org"
objCDO.Subject = strSubject
objCDO.Body = strmessage
objCDO.Send
Set objCDO = Nothing
end if
%>
:::THC-WCF:::
