<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="FileUploader.asp"-->
<%
Server.ScriptTimeout = 10000
Dim uploader
Set uploader = new FileUploader
On Error Resume Next
uploader.Upload()
Dim user : user = uploader.formElem("usr")
Dim l_file : l_file = uploader.formElem("file")
If isUser(user) Then
	Const ForReading = 1
	Const TristateFalse = -1
	Dim fsoObject   : Set fsoObject = Server.CreateObject( "Scripting.FileSystemObject")
	Dim filObject   : Set filObject = fsoObject.GetFile(Server.MapPath(getUserDir(user) & l_file))
	Dim tsObject    : Set tsObject 	= filObject.OpenAsTextStream(ForReading, TristateFalse)
	Dim strBuffer   
	Do While Not tsObject.AtEndOfStream
	   Response.BinaryWrite(tsObject.Read(1))
	Loop
Else
	Response.Write("El usuario no tiene permiso para bajar archivos.")
End If

If err <> 0 Then
	Response.Write(vbcrlf & "Error: " & Err.Description & vbcrlf)
End If

'FUNCIONES PARA LOS PERMISOS DE USUARIO
Function isUser(user)
	isUser = false
	Select Case LCase(user)
		Case "308ven4":
			isUser = true
		Case "723ven5":
			isUser = true
	End Select
End Function

Function getUserDir(user)
	getUserDir = "."		
	Select Case LCase(user)
		Case "308ven4":
			getUserDir = "./ven4/"		
		Case "723ven5":
			getUserDir = "./ven5/"		
	End Select
End Function
%>