%@ Language=VBScript %>
<% Response.Buffer = true %>
<% Server.ScriptTimeout=150 %>
<%
'on error resume next
'for each thing in Request.Form
' Response.Write "
" & thing & ":::" & Request.Form(thing)
'next
submit = Request.Form("Submit3")
success = "N"
if ( submit = "Send Mail" ) then
for i = 1 to 5 step 1
if not ( (Request.form("friend"&i)="") and (Request.Form("efriend"&i)="")) then
set mymail = server.CreateObject("CDONTS.NewMail")
mymail.To = Request.Form("efriend"&i)
if not ( Request.Form("afriend") = "" ) then
mymail.From = Request.Form("afriend")
end if
mymail.Subject = "Regarding one of the best Portals I have come across....!!!"
mbody = "
Dear friend " & Request.Form("friend"&i)&" ,
"&" I have found a very good portal which" mbody = mbody & " is quite ideal for finding any information on a variety of topics."&"
" mbody = mbody & "Please go through the list of contents and you will find many useful links."&"
" mbody = mbody & "There is email facility , news and search facility as well. "&"
" mbody = mbody & "" mbody = mbody & "" mbody = mbody & "
"&" I have found a very good jobsite which" mbody = mbody & " is quite ideal for registration and job prospects."&"
" mbody = mbody & "Please do register and pass it on to your other friends as well."&"
" mbody = mbody & "" mbody = mbody & "1. Some of its features are :-
" mbody = mbody & "1. Unlimited Job Posting By the Company.
" mbody = mbody & "2. Electronic receipt of application.
" mbody = mbody & "3. Employer can define each job skills and sub skills.
" mbody = mbody & "4. Facility of rating each skills & sub skills.
" mbody = mbody & "5. Filter & Search options of application received as per the job posted.
" mbody = mbody & "6. Unique concept of Composite score helps Organisations to select the " mbody = mbody & " perfect match depending per job profile.
" mbody = mbody & "7. No burden of data entry at the employer level.
" mbody = mbody & "8. Facility of Posting , Filtering and Expiry of Jobs.
" mbody = mbody & "9. Facility of different selection process for different jobs.
" mbody = mbody & "10.Electronic intimation of selection at each stage as required .
" mbody = mbody & "11.Availability of self evaluation of candidates helps filtering data on " mbody = mbody & " line immediately.
" mbody = mbody & "12.Basic evaluation test can be conducted on-line.
" mbody = mbody & "13.Selected candidates database can be imported into standard data " mbody = mbody & " formats fore further processing off-line .
" mbody = mbody & "14.Linkage of existing web site with on-lynejobs.com.
" mbody = mbody & "15.Entire recruitment process can be conducted on line without any " mbody = mbody & " paper flowing into the office. i.e. zero paper work.
" mymail.Body = mbody mymail.Importance = 1 mymail.BodyFormat = 0 mymail.MailFormat = 0 mymail.Send success = "Y" set mymail = nothing end if next end if %>