<%

Function aqruivo_existe (nome_arquivo)
    Dim fs
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    aqruivo_existe = false
    if fs.FileExists(Server.Mappath(nome_arquivo)) Then aqruivo_existe = true
    Set fs = Nothing
End Function

function pega_piece(var,separador,piece)   
Dim MeuArray
MeuArray = Split(var, separador, -1, 1)
For i = Lbound(MeuArray) To Ubound(MeuArray)
    if i=piece then
	    arquivo=MeuArray(i)
	end if
Next
pega_piece=arquivo
end function

%>