<!--#include file="masterinclude.asp"-->
<!--#include file="session.asp"-->
<!--#include file="color.asp"-->
<!--#include file="js/PGDUpload.asp"-->
<!--#include file="admin_reject.asp"-->		
<% 		
Dim upType,upl,isWithinSize,numberOfFiles,NewFileName,NewFileLocation,i,results,fileExt,fileUploaded
Dim fileLocationPrefix
Set upl = new PGDUpload
	With upl
		.sizelimit = 200*1024
		isWithinSize = .getForm
		if isWithinSize then
			numberOfFiles = 10
			fileLocationPrefix = .form("upfolder")("Value")
			for i=1 to numberOfFiles
				NewFileName = .getFileName("File"&i)
				NewFileLocation = fileLocationPrefix & NewFileName
				fileUploaded = .saveToFile ("File"&i, NewFileLocation)
			 next
		else
			Results = "too big"
		end if 
		
	End With
	
Set upl = Nothing
response.redirect("admin_avasmile.asp?d="&processAvatars(fileLocationPrefix))

function processAvatars(str)
	if left(str,8) = "avatars/" then
		processAvatars = right(str,len(str)-8)
		if len(processAvatars) <> 0 then processAvatars = "{"&left(processAvatars,len(processAvatars)-1)&"}"
	end if
end function
%>