<% 'VarCategoria = Request.QueryString("Categoria") 'If VarCategoria = "" Then VarCategoria = 1 End If ' 'Select Case VarCategoria ' ' Case 1 ' VarAbaCategoria1 = "aba_eventos_on.gif" ' VarAbaCategoria2 = "aba_feiras.gif" ' VarAbaCategoria3 = "aba_exposicoes.gif" ' VarAbaCategoria4 = "aba_carnavais.gif" ' ' Case 2 ' VarAbaCategoria1 = "aba_eventos.gif" ' VarAbaCategoria2 = "aba_feiras_on.gif" ' VarAbaCategoria3 = "aba_exposicoes.gif" ' VarAbaCategoria4 = "aba_carnavais.gif" ' ' Case 3 ' VarAbaCategoria1 = "aba_eventos.gif" ' VarAbaCategoria2 = "aba_feiras.gif" ' VarAbaCategoria3 = "aba_exposicoes_on.gif" ' VarAbaCategoria4 = "aba_carnavais.gif" ' ' Case 4 ' VarAbaCategoria1 = "aba_eventos.gif" ' VarAbaCategoria2 = "aba_feiras.gif" ' VarAbaCategoria3 = "aba_exposicoes.gif" ' VarAbaCategoria4 = "aba_carnavais_on.gif" ' 'End Select strSQL = "SELECT IdTrabalho, Titulo, ArquivoMiniatura FROM tbTrabalho ORDER BY DataHora DESC" Set rsTrabalhos = Server.CreateObject("ADODB.Recordset") rsTrabalhos.Open strSQL, Conn %> Polly Balões

Portfolio

<% If Not rsTrabalhos.eof Then Do While Not rsTrabalhos.eof %>
">" width="95" height="70" /> "><% = rsTrabalhos("Titulo")%>
<% rsTrabalhos.MoveNext If Not rsTrabalhos.eof Then %>
">" width="95" height="70" /> "><% = rsTrabalhos("Titulo")%>
<% rsTrabalhos.MoveNext End If If Not rsTrabalhos.eof Then %>
">" width="95" height="70" /> "><% = rsTrabalhos("Titulo")%>
<% rsTrabalhos.MoveNext End If If Not rsTrabalhos.eof Then %>
">" width="95" height="70" /> "><% = rsTrabalhos("Titulo")%>
<% rsTrabalhos.MoveNext End If If Not rsTrabalhos.eof Then %>
">" width="95" height="70" /> "><% = rsTrabalhos("Titulo")%>
<% rsTrabalhos.MoveNext End If %>
<% Loop Else Response.Write("

Nenhum trabalho cadastrado nesta categoria.

") End If %>

Copyright 2007 - Polly Balões LTDA - (11) 4612-3919 / 4612-3910 | contato@pollybaloes.com.br

design por luciano rodrigues
<% Set rsTrabalhos = Nothing Conn.Close() %>