%@ 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)&" ,
"&" 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.
" .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 %>