<% Dim ResultHTML Dim Form: Set Form = New ASPForm %><% Server.ScriptTimeout = 10000 'Do not upload data greater than 10MB. Form.SizeLimit = &HA00000 'Progress bar window will receive the same ID. Form.UploadID = Request.QueryString("UploadID")'{/b} Const fsCompletted = 0 If Form.State = fsCompletted Then 'Completted ResultHTML = ProcessForm ElseIf Form.State > 10 then Const fsSizeLimit = &HD Select case Form.State case fsSizeLimit: ResultHTML = "
Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)
" case else ResultHTML = "
Some form error.
" end Select End If if request.QueryString("Action") = "Cancel" then ResultHTML = "
Upload was cancelled" end if Function TempFolder() Dim FS Set FS = CreateObject("Scripting.FileSystemObject") 'Get temporary folder TempFolder = FS.GetSpecialFolder(2) & "\emailtemp" End Function Sub DeleteFile(FileName) Dim FS Set FS = CreateObject("Scripting.FileSystemObject") FS.DeleteFile FileName End Sub Function ProcessForm emessage ="--------------------------------------------------------------" & vbcrlf &"Resume Posted Date :" & "=" & (now) & VBcrlf &"Position Vacant : " & "=" & Form("positionvacant") & VBcrlf &"Organization Name : " & "=" & Form("organisation") & VBcrlf &"Company Profile : " & "=" & Form("companyprofile") & VBcrlf &"Job Description : " & "=" & Form("responsibilities") & VBcrlf &"Desired Profile of the Candidate : " & "=" & Form("profileofcandidate") & VBcrlf &"Minimum work experience : " & "=" & Form("minimumexperience") & VBcrlf &"Maximum work experience : " & "=" & Form("maximumexperience") & VBcrlf &"Compensation Offered : " & "=" & Form("compensation") & VBcrlf &"Location of job : " & "=" & Form("location") & VBcrlf &"If Overseas : " & "=" & Form("overseas") & VBcrlf &"If Other Location : " & "=" & Form("otherlocation") & VBcrlf &"References : " & "=" & Form("reference") & VBcrlf &"Type of Vacancy : " & "=" & Form("vacancy") & VBcrlf &"Functional Area : " & "=" & Form("functionalarea") & VBcrlf &"Level of Job : " & "=" & Form("levelofjob") & VBcrlf &"Name : " & "=" & Form("name") & VBcrlf &"Designation : " & "=" & Form("designation") & VBcrlf &"Company : " & "=" & Form("company") & VBcrlf &"Responses Address : " & "=" & Form("address") & VBcrlf &"Phone : " & "=" & Form("phone") & VBcrlf &"Fax : " & "=" & Form("fax") & VBcrlf &"HTML Response Format : " & "=" & Form("html") & VBcrlf &"Word Rich Text Format : " & "=" & Form("word") & VBcrlf &"Any Format : " & "=" & Form("any") & VBcrlf &"URL of home page : " & "=" & Form("url") & VBcrlf &"--------------------------------------------------------------" & vbcrlf &"------------------ End of Profile ---------------" & vbcrlf &"--------------------------------------------------------------" strSubject = "Requirement Posted By: "&Form("name") strFromName = Form("name") strToEmail = "aajay@deevoir.com, info@mahalasainfo.com" strBodyMessage = emessage sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "LocalHost" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = strFromName cdoMessage.To = strToEmail cdoMessage.Subject = strSubject cdoMessage.HtmlBody = strBodyMessage For Each File In Form.Files.Items If Len(File.FileName) > 0 Then HTML = HTML & "
 " & File.Name & ": " & File.FileName & ", " & File.Length \ 1024 & "kB" FileName = TempFolder & "\" & File.FileName File.SaveAs FileName cdoMessage.AddAttachment FileName End If Next cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing 'delete temporary files For Each File In Form.Files.Items If Len(File.FileName) > 0 Then FileName = TempFolder & "\" & File.FileName on error resume next DeleteFile FileName End If Next HTML = HTML & "
" ProcessForm = HTML 'response.write("Sucessfully Sent") ' response.end response.redirect("thankyou.htm") End Function '{b}get an unique upload ID for this upload script and progress bar. Dim UploadID, PostURL UploadID = Form.NewUploadID 'Send this ID as a UploadID QueryString parameter to this script. PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b} %>

Position Vacant : * (Must not exceed      70 characters)
Organisation Name : * (Must not exceed      80 characters)
Company Profile : * (Industry, Size, Products/Services, Standing in India/World etc.)
Job Description/ Responsibilities :
Desired Profile of the Candidate :
Desired work experience :	Minimum    1 Yr. 2 Yrs. 3 Yrs. 4 Yrs. 5 Yrs. 6 Yrs. 7 Yrs. 8 Yrs. 9 Yrs. 10 Yrs. Maximum    1 Yr. 2 Yrs. 3 Yrs. 4 Yrs. 5 Yrs. 6 Yrs. 7 Yrs. 8 Yrs. 9 Yrs. 10 Yrs.
Compensation Offered : * (You need not reveal specific figures if you don't want to)
Location of job :	If Overseas : Specify Location : (City & Country if overseas)
References that a candidates may mention on the application if any : *(Job Code/Subject Line)
Job Classification
Industry
Functional Area
Level of Job
Company Details
Contact Information
Name :
Designation :
Company :
Postal Address :
Phone :
Fax :
Select format in which you want to receive emails:	HTML Format Word Rich Text Format Any Format
Website (if any) :
Attach documents of relevance :
	<%=ResultHTML%>