Álbuns dos Cursos

<% caminho_sistema = "D:\http\rommy\web\sistema\galeria\" caminho_http_sistema = "http://www.rommy.com.br/sistema/galeria/" pastaPrincipal = "galerias" 'pega o(s) conteudo(s) sqlConteudo = "select * from galerias order by cdate(data) DESC" Set rsConteudo = Server.CreateObject("ADODB.Recordset") set rsConteudo.activeconnection = conexao rsConteudo.cursortype = 3 'Definimos o cursor a ser utilizado rsConteudo.open(sqlConteudo) numeroRs = rsConteudo.recordCount x = 0 if not rsConteudo.eof Then x = 1 while not rsConteudo.eof 'dados que virão do banco pra listagem id = rsConteudo("id") titulo = rsConteudo("titulo") descricao = rsConteudo("descricao") data = rsConteudo("data") If x = 1 Then %> <% End if 'lista breves ou miniaturas para galerias 'tem mais de um conteúdo, poe link. se for galeria, é url diferente. Set fso = CreateObject("Scripting.FileSystemObject") 'FSO set diretorio = fso.GetFolder(caminho_sistema&pastaPrincipal&"\" & id &"\thumb\") 'listagem Xprimeira = 0 For Each item In diretorio.Files If Xprimeira = 0 then imagem = item.name Xprimeira = Xprimeira+1 End if next descricaoCompleta = "" If imagem <> "" Then descricaoCompleta = descricaoCompleta & "

" End If descricaoCompleta = descricaoCompleta & "

" & titulo & "

" If descricao <> "" Then 'tem descricao, pega os 50 primeiros caracteres descricaoCompleta = descricaoCompleta & "

" & Left(stripHTML(descricao),100) & "...

" End If 'fecha o link descricaoCompleta = descricaoCompleta & "
" %> <% 'galerias tem link e quebra diferenciada if(x > 1) and (x/4 = int(x/4)) then 'é quebra do terceiro %><% end If x = x + 1 imagem = "" rsConteudo.movenext Wend %>
<%=descricaoCompleta%>
<% Else %>

Ainda não existem álbuns de fotos publicados.

<% end if %>

Voltar