<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
mbody = "This Email was sent from the 'Essay' from at Contest" & "
"
mbody = mbody & "------------------------------------------------------------------------------------------" & "
" & "
"
mbody = mbody & "Name : " & Request("txtname") & "
" & "
"
mbody = mbody & "Email : " & Request("txtEmail") & "
" & "
"
mbody = mbody & "Address : " & Request("address") & "
" & "
"
mbody = mbody & "Eassy : " & Request("Essay") & "
" & "
"
' CDOSYS Code
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
'Set Parameters
ObjSendMail.From = trim(request("txtEmail"))
ObjSendMail.To = "sgsupport@sitagita.com"
ObjSendMail.Subject = "Message from Essay Competition"
ObjSendMail.HTMLBody = mbody
ObjSendMail.Send
%>
Sitagita
