<%@ 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") Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.on-lyne.com" .Item(cdoSMTPServerPort) = 587 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "webteam@on-lynecom" .Item(cdoSendPassword) = "On-lyne0" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = Request.Form("efriend"&i) if not ( Request.Form("afriend") = "" ) then .From = Request.Form("afriend") end if .Subject = "Regarding one of the best Portals I have come across....!!!" mbody = "

Dear friend " & Request.Form("friend"&i)&" ,


" mbody = mbody & "

"&" 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 & "

On-lyne.Info"&"

" 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 & "

On-lyne-jobs.com"&"

" 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.

" .HTMLBody = mbody ' mymail.Importance = 1 'mymail.BodyFormat = 0 'mymail.MailFormat = 0 .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing success="Y" 'set mymail = nothing end if next end if %> Your Guide to the Web
Home Classified About Us Groups Services FAQ's Contact Us
Email Login
IT Solutions Provider
A complete shopping Portal with best offers
Taking care of you and your baby
Free Newsletters
Feedback
Your Suggestion
AD. Banners
Drop in your query here
Utility
Bookmark Us
Submit a Site
Tell a Friend
Link to us
SEARCH
    TELL A FRIEND
 

Tell your friends about
On-lyne.info

All you have to do is enter their Name(s) and E-mail Address(es) in the fields below. The rest will be done by On-lyne. We will send him / her / them a personalised e-mail with your name on it.

Your  Email Address
Friend's Name
Email Address

 
DeskAway Project Management   Giveaway of the Day
 
Topics of your Interest
Arts
Astrology
Automobiles
Bangalore
Banking
Beauty & Fashion
Bollywood
Consulates
Consumers
Cooking
Corp. Governance
Cricket
C. S. R.
Dance
Delhi
Developers
Drivers & Utilities
Education
E-Greetings
Encyclopedia
Finance
Forms Online
Gaming Online
Health
Hollywood
Home Modeling
Hotels
Human Resources
Hyderabad
Insurance
Internet
Jobs
Kids
Legal Affairs
Matrimonial
Mobile
Mumbai
Music
News
NGO
Offbeat
Parenting
Police
Photography
Real Estate
Religion
Science
Search Engine
Shopping
Sports
Solar Energy
SSI's
States
Telephone
Television
Trade Fairs
Travel
Wildlife
Women
WTO
Youth
Zoroastrian
Copyright © 2003, All rights reserved.
Site designed and maintained by On-lyne Comtech (I) Pvt. Ltd.
<% if ( success = "Y" ) then %> <% end if %>