<% VarID = Request.QueryString("ID") If VarID = "" Then Response.Redirect("portfolio.asp") End If strSQL = "SELECT * FROM tbTrabalho WHERE IdTrabalho = " & VarID Set rsTrabalho = Server.CreateObject("ADODB.Recordset") rsTrabalho.Open strSQL, Conn Set rsImagens = Server.CreateObject("ADODB.Recordset") rsImagens.Open "SELECT ArquivoImagem FROM tbImagem WHERE IdTrabalho = " & VarID, Conn 'VarCategoria = rsTrabalho("IdCategoria") ' '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 %> Polly Balões

Portfolio

< Voltar ao Portfolio

<% Do While Not rsImagens.eof %>

" width="500" />

<% rsImagens.MoveNext Loop %>

Trabalho: <% = rstrabalho("Titulo") %>

Cliente: <% = rstrabalho("Cliente") %>

Data: <% = rstrabalho("Datatrabalho") %>

Descrição:
<% = rstrabalho("Descricao") %>

< Voltar ao Portfolio | ^ Voltar ao Topo

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

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