%id=Request.querystring("id") if id <> "" then dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") Filepath = Server.MapPath(id) if fs.FileExists( Filepath ) then okvir="" else okvir="" end if set fs=nothing else okvir="" end if %>