<%

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

%>