%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
mbody = "This Email was sent from the 'CONTEST' form at ECO-FRIENDLY" & "
"
mbody = mbody & "--------------------------------------------------------------------------------------" & "
" & "
"
mbody = mbody & "Name : " & Request("Name") & "
" & "
"
mbody = mbody & "Email : " & Request("Email") & "
" & "
"
mbody = mbody & "Entries : " & Request("god") & "
" & "
"
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
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.TextBody = 0
ObjSendMail.HTMLBody = mbody
ObjSendMail.From = trim(request("Email"))
ObjSendMail.To = "radhikamohan.sigi@gmail.com"
ObjSendMail.Bcc="mariammal@gmail.com"
ObjSendMail.Subject = "Message from Contest ECO-FRIENDLY"
ObjSendMail.TextBody = mbody
ObjSendMail.Send
%>