Exibir uma galeria de fotos sem ultilizar base de dados

Question

está dando um erro que não sei descrever na linha 36
Set Pasta = FSO.GetFolder(CaminhoServer & "\Imagens\Fotos\" & Replace(Data, "/", ".") & "\P")        

estou tentando criar uma galeria de fotos sem prescisar usar base de dados no sql server. Gostaria que alguem me desse uma forcinha porque o cliente ta enchendo o saco dicas serão bem vindas tbm..

SEGUE ABAIXO O CODIGO

desde já agradeço =D


<!--#Include File="Admin_Configs.asp"-->
<%Call AbreConexao(Conex)%>
<%
If Request.QueryString("Action") = ""  Then   
    Set rs1 = Conex.Execute ("SELECT TOP 25 ID,Titulo,DataCadastro FROM New_Fotos ORDER BY ID DESC")
   
    UltimasFotos = "<option value=""Fotos.asp?Action=ExibeAlbum&Galeria="& rs1("ID") &"""></option>" & vbcrlf
    UltimasFotos = UltimasFotos & "<option value=""Fotos.asp"">Exibir todas as fotografias</option>" & vbcrlf
   
    While NOT rs1.EOF
        If Request("Galeria") <> ""& rs1("ID") &"" Then UltimasFotos = UltimasFotos & "<option value=""Fotos.asp?Action=ExibeAlbum&Galeria="& rs1("ID") &""">"& rs1("Titulo") &"</option>" & vbcrlf
    rs1.MoveNext
    Wend

    rs1.Close
    Set rs1 = Nothing
   
    Set rs1 = Conex.Execute ("SELECT TOP 25 ID,Titulo,DataCadastro FROM New_Artistas ORDER BY ID DESC")
   
    Artistas = "<option value=""Fotos.asp?Action=ExibeAlbum&Galeria="& rs1("ID") &"""></option>" & vbcrlf
    Artistas = Artistas & "<option value=""Fotos.asp"">Exibir todos os artistas</option>" & vbcrlf
   
    While NOT rs1.EOF
            If Request("Galeria") <> ""& rs1("ID") &"" Then Artistas = Artistas & "<option value=""Fotos.asp?Action=ExibeAlbum&Galeria="& rs1("ID") &""">"& rs1("Titulo") &"</option>" & vbcrlf
    rs1.MoveNext   
    Wend   
   
    rs1.Close
    Set rs1 = Nothing
End If

If Request.QueryString("Action") = "ExibeAlbum" Then   
    ID = Request("Galeria")

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set Pasta = FSO.GetFolder(CaminhoServer & "\Imagens\Fotos\" & Replace(Data, "/", ".") & "\P")
   
    If FSO.FolderExists(Pasta) = False Then
        Session("Aviso") = "A pasta de "& Replace(Data, "/", ".") &" n&atilde;o foi encontrada!"
    Else
        QtdeImagens = 0
        A = 1
        'Primeiro vamos abrir um objeto FSO
        Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
        'Agora pegamos a pasta com as imagens!
        Set Pasta = FSO.GetFolder(CaminhoServer & "\Imagens\Fotos\" & Replace(Data, "/", ".") & "\P")
        'Vamos criar um recordset agora! Ele que vai ter o trabalho de ordenar os arquivos!
        Set rs = Server.CreateObject ("ADODB.RecordSet")
        'Vamos adicionar 2 campos nesse recordset!O método Append recebe 3 parâmetros: Nome do campo, Tipo, Tamanho (opcional)
        'O tipo pertence à um DataTypeEnum, e você pode conferir os tipos em
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdcstdatatypeenum.asp
        rs.Fields.Append "Nome", 200, 255
        rs.Fields.Append "Data", 7
        rs.Open
        'Temos que percorrer agora todos os arquivos e jogar na nossa tabela virtual!
        For Each Arquivo In ObjPasta.Files
       
        rs.AddNew
        rs.Fields("Nome").Value = Arquivo.Name
        rs.Fields("Data").Value = Arquivo.DateLastModified           
        Next
        'Todos os arquivos no recordset, agora vamos ordená-lo!
        'Da maior data para a menor!
        rs.Sort = "Data desc"
        'Pronto! Agora temos os arquivos todos em ordem em nosso recordset! Vamos exibi-los!
        rs.MoveFirst
        While NOT rs.EOF
            Imagens = Imagens & "<table border=""0"" cellspacing=""0"" cellpadding=""0"" class=""AltFundo"">" & vbcrlf
            Imagens = Imagens & "<tr>" & vbcrlf
            Imagens = Imagens & "    <td align=""center"" class=""AltCelula"" style=""font-size:10px""><a href=""Imagens/Fotos/"& Replace(Data, "/", ".") &"/M/"& rs("Nome") &""" rel=""aumenta"" title=""""><img src=""Imagens/Fotos/"& Replace(Data, "/", ".") &"/P/"& rs("Nome") &""" border=""0""></td>" & vbcrlf
            Imagens = Imagens & "</tr>" & vbcrlf
            Imagens = Imagens & "</table>" & vbcrlf
            Imagens = Imagens & "<table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
            Imagens = Imagens & "<tr>" & vbcrlf
            Imagens = Imagens & "    <td colspan=""2""><img src=""Imagens/Spacer.gif"" width=""5"" height=""5""></td>" & vbcrlf
            Imagens = Imagens & "</tr>" & vbcrlf
            Imagens = Imagens & "</table>" & vbcrlf
            Imagens = Imagens & "</td>" & vbcrlf
           
            If A = 6 Then
                Imagens = Imagens & "</tr>"
               
                A = 1
            Else
                A = A + 1
            End If
           
            QtdeImagens = QtdeImagens + 1
        rs.MoveNext
        Wend
       
        Imagens = Imagens & "    </tr>"
        Imagens = Imagens & "</table>"
   
        rs.Close
        Set rs = Nothing
       
        If QtdeImagens = 1 Then
            QtdeImagens = "1 imagem"
        Else
            QtdeImagens = QtdeImagens & "imagens"
        End If
    End If
   
    Set Pasta = Nothing
    Set FSO = Nothing
End If

Call FechaConexao(Conex)
%>

Answer 1

Seria enteressante você colar o erro aqui.

---

Edilson Moura