tenta alterar uma destas linhas, pelo que conheço acho que são elas que indicam a pasta ai...
strPhysicalPath = Server.MapPath(strPathInfo)
strPhysicalPath = Server.MapPath(".\" & ShowSub)
ai galera to precisando saber como fazer uma funçao pra criar um botão da seguinte forma 1º clique abre a tag: [alguma coisa] 2º clique fecha a tag: [/alguma coisa] pra fazer igual ao code aqui do forum
mais se montar o sistema de administrção. naquela maquina e acessala pela rede???? ai você vai poder escolher o q os caras podem ver do bd ou alterar..................