<%@ Language=VBScript %>
<%=sTitle%>
<%
'Response.Write(Session("sCount"))
'=================== financial year-wise folder ===========================================
Dim fs,fo,rsCVFolder,qSQL,sFolderName,rsFinYear,sCVPath
dim iCvUpl
if request("cat")="cv" then
sCVPath=Server.MapPath("uploadFiles\")
sFolderName=sCVPath
'==========================================================================================
' Create the FileUploader
Dim Uploader, File, sFlieName, bFlag
Set Uploader = New FileUploader
bFlag=false
' This starts the upload process
Uploader.Upload()
'Response.Write(Uploader.Files.Count)
If Uploader.Files.Count > 0 Then
For Each File In Uploader.Files.Items
''Response.Write File.ContentType
If (NOT (File.ContentType = "application/msword"))AND (NOT (File.ContentType = "image/png"))AND (NOT (File.ContentType = "application/pdf"))AND (NOT (File.ContentType = "image/gif")) AND (NOT (File.ContentType = "image/jpeg")) Then
response.Write("")
response.End()
Else
if File.FileSize > 1000000 then
response.Write("")
response.End()
return
end if
sFile=File.FileName
fileExt= mid(File.ContentType,instr(File.ContentType,"/")+1)
if fileExt="msword" then
fileExt="doc"
end if
'nn File.FileName = "_" & sCandRegNo & "_" & "Cv" & "." & fileExt
'nn sPFile=File.FileName
sCvPath= sFolderName & sFile
bFlag=true
File.SaveToDisk sFolderName
End If
sFlieName = File.FileName
Next
End If
End if
%>