none
Exibir uma galeria de fotos sem ultilizar base de dados RRS feed

  • Pergunta

  • 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)
    %>
    • Movido Roberto F Fonseca quarta-feira, 14 de outubro de 2009 19:43 Movido para o forum adequado (De:SQL Server - Desenvolvimento Geral)
    quarta-feira, 14 de outubro de 2009 19:35

Todas as Respostas