%
if request("hh") <>"" then
if request("curlocation")="Other" then
clocation=request("ocity")
else
clocation=request("curlocation")
end if
if request("ugcourse")="Other" then
cugcourse=request("ugopen")
else
cugcourse=request("ugcourse")
end if
if request("pgcourse")="Other" then
cpgcourse=request("pgopen")
else
cpgcourse=request("pgcourse")
end if
if request("ppgcourse")="Other" then
cppgcourse=request("ppgopen")
else
cppgcourse=request("ppgcourse")
end if
msgBody = "
"
msgBody = msgBody & ". " & request("resume")
msgBody = msgBody & ""
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & msgBody
HTML = HTML & ""
HTML = HTML & ""
Set mailObj =server.CreateObject("CDONTS.NewMail")
mailObj.From= "info@d-wits.com"
mailObj.To= "info@d-wits.com"
mailObj.Subject="This is from " & SourcePage & " Page."
mailObj.BodyFormat=0 ' this is for HTML content.
mailObj.MailFormat=0
mailObj.Body= HTML
mailObj.Send
set mailObj=nothing
if err.number <>0 then
Response.Write("Mail Sending failed !" + Err.Description)
else
ans = "
" & " Thanks " & fromname & ". Your mail is send." & "