<%@language="vbscript"%> <%response.buffer=true%> <%response.expires=0%> <% Dim DestinationPath Dim name1 Dim details Dim Externalpath Dim con_email 'DestinationPath = Server.mapPath("UploadFolder") DestinationPath = Server.mapPath("CV") 'response.Write(DestinationPath) Dim Form: Set Form = New ASPForm 'Server.ScriptTimeout = 2000 Form.SizeLimit = &H100000 If Form.State = 0 Then 'Completted Dim DestFileName Dim File CNTFILES=0 For Each File In Form.Files.Items CNTFILES=CNTFILES+1 If Len(File.FileName) > 0 Then if cntfiles=1 then DestFileName1 = GetUniqueFileName(File.FileName, DestinationPath) File.SaveAs DestinationPath & "\" & DestFileName1 end if end if next End If 'Form.State = 0 then Dim gFS 'creates an unique filename 'in filename.ext, filename-1.ext, filename-2.ext, filename-3.ext, ... schema Function GetUniqueFileName(FileName, DestPath) 'delete the existing file starts here dim deletefilefs,f set deletefilefs=Server.CreateObject("Scripting.FileSystemObject") 'set f=fs.GetFile("c:\theparsidirecotyr\admin\achalproc.txt") if (deletefilefs.FileExists(server.MapPath(".") & "\CV\" & "&filename&"))=true then set f=fs.GetFile(server.MapPath(".") & "\CV\" & "&filename&") Response.Write ((server.MapPath(".") & "\CV\" & "&filename&")) f.Delete set f=nothing set deletefilefs=nothing end if 'delete the existing file ends here GetUniqueFileName = FileName End Function %> <% if Form("submit")="Apply" then bSuccess = false title=Form("title") firstname=Form("firstName") lastName=Form("lastName") address=Form("address") email=Form("email") txtstd=Form("txtstd") txtphone=Form("txtphone") txtmobile=Form("txtmobile") ccomp=Form("ccomp") csalary=Form("csalary") file1=Form("file1") ''------------------------------- HTML: BODY ------------------------------------- mbody = "" mbody="" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody&"" mbody=mbody& "
 
*  Candidate Form  *
 
 
    " mbody = mbody & "
  • Name : " &title&" "&firstName & " "&lastName& "" mbody = mbody & "
  • address : " & address& " " mbody = mbody & "
  • Email : " & email& " " mbody = mbody & "
  • Residence Phone No. : " & txtstd& " "&txtphone& "" mbody = mbody & "
  • Mobile No. : " & txtmobile& " " mbody = mbody & "
  • Current Company : " & ccomp& " " mbody = mbody & "
  • Current CTC (p.a.) : " & csalary& " " 'mbody = mbody & "
  • Attach Resume : " & file1& " " mbody=mbody&"
" mbody=mbody&"" ''''---------------------------------Mail Server Setting ---------------------------- 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) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "webteam@on-lyne.com" .Item(cdoSendPassword) = "On-lyne0" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig ''-------------------OTHER CONTENT TO SEND MAI"-------------------------------------------------------------- With objMessage '.To = ""&emailid&"" .To = "jobseekers@peopleperformance.co.in" .From = ""&email&"" .Subject = "Job Application from " & name & " " .HTMLBody = mbody .AddAttachment DestinationPath & "\" & DestFileName1 .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If status="Y" End if %>
 
   
 
 
Tel.:

+91 98923 33215
+91 90044 44747

Email:

Website:
www.peopleperfomance.co.in
   
 
     
   
     
  Candidates who are seeking a job, can fill in their details below. We will get back to you when we have a requirement with our clients matching your profile.  
     
 
    (fields marked with * are compulsory)
Name * :
(Title) (First Name) (Last Name)
Address * :
E-mail Id. * :
Residence Phone No. :
(std) (Number)
Mobile No. :
Current Company :
Current CTC (p.a.) * :
Attach Resume * : (Word Format only)
     
   
 
     
Home | About Us | Services | Clientele | Business Inquiry | Job Seekers | Contact Details | Disclaimer
  © People Performance Consultants 2013   Site Powered by On-Lyne  
 
<% if ( status="Y" ) then %> <% end if %>