<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="FileUploader.asp"-->
<%
Dim uploader, File , totalArchivos
Set uploader = new FileUploader
On Error Resume Next
uploader.Upload()
Dim archivo
Dim usr : usr = uploader.FormElem("usr")
totalArchivos = 7
Response.Write("Total de archivos: " & totalArchivos & vbCrlf)	
If isUser(usr) Then
	For x = 1 To totalArchivos 
		Set archivo = uploader.files("archivo_" & x)
		Response.Write("Guardando:" & archivo.fileName & " ..." & vbCrlf )
		Response.Flush() 
		archivo.SaveToDisk getUserDir(usr) , archivo.fileName 	
	Next
Else
	Response.Write("El usuario no tiene permiso para subir archivos.")
End If
If err <> 0 Then
	Response.Write(vbcrlf & "Error: " & Err.Description & vbcrlf)
End If

'FUNCIONES PARA LOS PERMISOS DE USUARIO
Function getUserDir(user)
	getUserDir = "."		
	Select Case LCase(user)
		Case "308ven4":
			getUserDir = "./ven4/"		
		Case "723ven5":
			getUserDir = "./ven5/"		
	End Select
End Function

Function isUser(user)
	isUser = false
	Select Case LCase(user)
		Case "308ven4":
			isUser = true
		Case "723ven5":
			isUser = true
	End Select
End Function
%>