[Alan Venancio]

CÓDIGO

<%
Set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0; DATA SOURCE = " & Server.Mappath("DataBase/Galeria.mdb") & ""
con.Open

id = request.querystring("id")
            SQL = "SELECT categoria,foto,dia,descricao FROM fotos where categoria  ='" & id&"'"
            set Rs = con.execute(sql)
%>

<%If rs.EOF Then %><style type="text/css">
<!--
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>
<div align="center">Nada encontrado
  <% Else %>
</div>
<table width="621" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000"><TR><td valign="top"><table width="558" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000"><tr></tr>
</table></td>
</tr>
</table>
<div align="center">
  <table width="671" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCC99">
    <% contar = 0
Do while not Rs.eof
If contar = 2 Then %>
    <tr>
      <% End If
If contar <> 2 Then %>
    </tr>
    <tr>
      <% End If %>
      <td valign="top"><br />
          <br /></td>
      <td valign="top">&nbsp;</td>
      <td><div align="center"><br />
              <img src="<%=Rs("foto")%>" alt="" border="0" class="footer""width="131" height="100" /></div></td>
      <td valign="top">&nbsp;</td>
      <% contar = contar +2
rs.MoveNext
If Rs.eof then exit do %>
      <td valign="top"><div align="right">
          <p align="center"><br />
              <br />
              <br />
              <img src="<%=Rs("foto")%>" alt="" border="0" class="footer""width="131" height="100" /><br />
          </p>
        <p>&nbsp;</p>
      </div></td>
      <td valign="top">&nbsp;</td>
      <% contar = contar + 2
rs.MoveNext
If Rs.eof then exit do %>
      <td valign="top"><div align="right">
          <p align="center"><br />
              <br />
              <br />
              <img src="<%=Rs("foto")%>" alt="" border="0" class="footer""width="131" height="100" /><br />
          </p>
        <p>&nbsp;</p>
      </div></td>
      <% contar = contar + 2
rs.MoveNext
If Rs.eof then exit do %>
      <td valign="top"><div align="right">
          <p align="center"><br />
              <br />
              <br />
              <img src="<%=Rs("foto")%>" alt="" border="0" class="footer""width="131" height="100" /><br />
          </p>
        <p>&nbsp;</p>
      </div></td>
      <% contar = contar + 2
rs.MoveNext
Loop %>
    </tr>
    <tr>
      <td><br />
          <br /></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td colspan="2">&nbsp;</td>
    </tr>
  </table>
  <% End if%>
  <a href="Lista_categoria2.asp">Voltar</a></div>

no caso a cima eu no select esta para chamar mais dados mas eu so queria as fotos e ele tras os dados é so alterar para a sua base de dados qualquer coisa de um alo e se alguem souber de um mais simples me de um alo valeu

This post has been edited by Alan Venancio: 25 January 2009 - 09:25 PM
Reason for edit: Adicionado BBCode [Code]

[xanburzum]

não entendi....
pode ser mais específico.

[Ted k']

faz o contador com 4!

[Alan Venancio]

Eu fiz um cadastro de uma galeria onde contem foto e descrição, eu cadastro por categoria em uma pagina eu resgato a categoria e passo um parametro para resgatar tudo sobre aquela categoria que esta pagina que eu passei o codigo, é so alterar a sua base de dados e seu objeto de resgate e vai dar certo mas se quiser eu passo as outras coisas.

[xanburzum]

Resultados em simples coluna vertical

Vamos dizer que você está criando uma lista de trabalhadores e os números de telefone e deseja ter os resultados classificados em três colunas vertical. Por exemplo registros 0-10 seria na primeira coluna, 11 - 21 no segundo e 22-32 na última (terceira coluna).

Aqui é um processo que pode fazer isso para você e até mesmo dar-lhe a flexibilidade para alterar apenas o número de colunas e os dados que é exibida.

CÓDIGO

<%  
SqlStr = "SELECT Employee, PhNum " & _
           "FROM Tabela " & _
           "ORDER BY trabalhadores "

Set objRS = Server.CreateObject ("ADODB.RecordSet")
objrs.Open SqlStr, ConStr, adOpenStatic, adLockOptimistic,adCmdText
  
   'Este é quantas colunas você quiser,no seu caso altera para 4
   NumCols = 3

   NumRecs = objrs.RecordCount
   NumEachCol = NumRecs/NumCols
  
   If (NumRecs Mod NumCols) > 0 Then
      TempNumRecs = NumRecs + (NumCols-(NumRecs Mod NumCols))
      NumEachCol = TempNumRecs /NumCols
   End If

   Response.Write "<table>"

   Response.Write "<tr>"
   For x = 0 to NumCols - 1
      'Column Headings
      Response.Write "<td>trabalhadores </td>"
      Response.Write "<td>Fone Num</td>"
   Next
   Response.Write "</tr>"

   For y = 0 to NumEachCol-1
      Response.Write "<tr>"
      For x = 0 to NumCols-1
         'Calcular o próximo número recorde na linha
         RecNum = y + (NumEachCol * x)
     'Certifique-se de que não esgotou os registros
         If RecNum < NumRecs Then
            objrs.MoveFirst
            objrs.Move RecNum
            Response.Write "<td>" & objrs("trabalhadores") & "</td>"
            Response.Write "<td>" & objrs("foneNum") & "</td>"
         Else
            Response.Write "<td>&nbsp;</td>"
            Response.Write "<td>&nbsp;</td>"
         End If
      Next
      Response.Write "</tr>"
   Next

   Response.Write "</table>"

objrs.Close
Set objRS = Nothing
%>

[Alan Venancio]

É bem simples é so fazer os forms de cadastro contendo fotos e modificar para o de vcs, se tiver uma foto ele coloca uma foto centralizada e assim por diante ate completar as 4 colunas mas se vc quiser colocar ou diminuir colunas e so acrecentar ou tirar este codigo abaixo antes do Loop

CÓDIGO

If Rs.eof then exit do %>
      <td valign="top"><div align="right">
        <p align="center"><img src="<%=Rs("foto")%>" alt="" border="0" class="footer""width="131" height="100" /><br />
          </p>
        <p>&nbsp;</p>
      </div></td>
      <% contar = contar + 2
rs.MoveNext

[xanburzum]

Vc pode seguir a lógica do code, que postei acima...