Atletas em Colunas

[fabio Avila 1]

Bom Dia COlegas ,

 

Tenho um sistema de cadastros de atletas de um site esportivo , aonde é exibido a foto e as informações de cada um , minha duvida é como eu faço para deixar eles em 3 colunas ou seja exiba 3 atletas por linha .

 

Abaixo o código ..

<%
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
Response.AddHeader "Pragma", "no-cache"
response.Charset="iso-8859-1"
%>
<%

Dim strURL     

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  
Dim Rs

Dim strSQL    
Dim strSearch  
inicio = Timer

'#Fun��o que tira todos os acentos das palavras
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento) 
 Letra = mid(StrAcento, i, 1)
 Select Case Letra
  Case "�","�","�","�","�","�","�","�","�","�","�"
  Letra = "A"
  Case "�","�","�","�","�","�","�","�"
  Letra = "E"
  Case "�","�","�","�","�","�"
  Letra = "I"
  Case "�","�","�","�","�","�","�","�","�","�"
  Letra = "O"
  Case "�","�","�","�","�","�","�","�","�"
  Letra = "U"
  Case "�","�"
  Letra = "C"
  Case "�"
  Letra = "N"
 End Select
 texto = texto & Letra
next
TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

<% 
' Definindo o caminho do banco de dados 
caminho = "atletas.mdb" 

' Fazendo a conex�o com o banco de dados (paginacao.mdb) 
set objconn = Server.CreateObject("ADODB.Connection") 
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho) 
objconn.Open DSN 

' String SQL para consulta 
modelo="Sub12"
StrQuery = " SELECT * FROM Atletas WHERE categoria = '"&categoria&"' ORDER BY Id DESC"

' Abrindo o registro 
SET objRS = Server.CreateObject("ADODB.Recordset") 
objRS.Open StrQuery, objconn,1, 3 

' Se n�o encontrar nada escreve a mensagem 
' Sen�o lista os registros 
If objRS.EOF Then 
Response.Write("Nenhum registro foi encontrado") 
Else 
' Definindo o n�mero de registros por p�gina 
objRS.PageSize = 1 

' Recupera o valor da vari�vel pagina 
pagina = Request.QueryString("pagina") 

' Se a vari�vel pagina for vazio, indica que a p�gina sera a primeira 
' Sen�o a vari�vel pagina recebe o valor da p�gina corrente, definida acima 
If pagina = "" Then 
objRS.AbsolutePage = 1 
pagina = 1 
Else 
objRS.AbsolutePage = pagina 
End If 
%> 
<% 
' Imprime o n�mero de registros, o total de p�ginas e a p�gina atual 
Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf ) 
Response.Write("<br>Mostrando p�gina <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf ) 
Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000></B></FONT></td></tr></table>") 
%> 

<% 
' Criando a barra de navega��o 
' Se a vari�vel pagina for maior que 1 ent�o imprime o bot�o Anterior com link 
' Sen�o imprime sem link 
If CInt(pagina) > 1 Then 
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") 
Else 
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") 
End If 

' Lista todas as p�ginas encontradas 
if objRs.PageCount < 11 then 
For i = 1 To objRS.PageCount 
  response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") 
Next 
end if 

if objRs.PageCount > 10 then 
    inicio=pagina 
    fim=pagina + 9 
    tot = pagina + 9 
    if tot > ObjRS.PageCount then 
      inicio = pagina-((pagina+9)-ObjRs.PageCount) 
      fim = inicio+9 
    end if 
    for i = inicio to fim 
        response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") 
    next 
end if 


' Se a vari�vel pagina for menor que o total de p�ginas ent�o imprime o bot�o Pr�xima com link 
' Sen�o imprime sem link 
If CInt(pagina) < objRS.PageCount Then 
Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Pr�xima</a></B></FONT></center>") 
Else 
Response.Write("Pr�xima</B></FONT></center>") 
End If 
End If 
%> 




<%While Not objRS.EOF AND cont < objRS.PageSize%>
<body bgcolor="#EEEEEE">

<tr bgcolor="#0099CC" bordercolor="0"> 
  <td height="7" width="110" align="left"><font size="3" face="Arial"><b><%=objRS("titulo")%></b></font></td> 
  <br>
  <br>
  <td height="7" width="110" align="left"><font size="2" face="Arial"><b><%=objRS("materia")%></b></font></td>


  <td height="7" width="55" align="center"> 
    </a>   
</td> 
             <b>
                         <font face="Arial" color="#FFFFFF" style="font-size: 10pt">
             <br>
             <img src="imagens/<%=objRS("foto")%>" border="0" align="bottom" hspace="8" vspace="2" width="511" height="404"></font></b><% 
cont = cont + 1 
objRS.MoveNext 
Wend 
%></tr></table><% 
' Fecha e destroi os objetos RS e conn 
objRS.Close : objconn.Close 
Set RS = Nothing : Set objconn = Nothing 
%>

 

 

Obrigado

[hargon 64]

Olá fabio Avila.

 

O código acima está muito sujo, veja que dentro do WHILE informa a tag <BODY>.

 

Existem várias formas de se fazer isso, mas vou mostrar um exemplo básico e você trabalha ele da melhora maneira para você.

 

<%While Not objRS.EOF AND cont < objRS.PageSize%>
<tr bgcolor="#0099CC" bordercolor="0"> 
<td height="7" width="33%" align="left">
	<font size="3" face="Arial"><b><%=objRS("titulo")%></b></font>
	<br /><font size="2" face="Arial"><b><%=objRS("materia")%></b></font>
	<br /><img src="imagens/<%=objRS("foto")%>" border="0" align="bottom" hspace="8" vspace="2" width="511" height="404">
</td> 
<%
objRS.MoveNext 
If Not objRS.EOF Then
%>
<td height="7" width="33%" align="left">
	<font size="3" face="Arial"><b><%=objRS("titulo")%></b></font>
	<br /><font size="2" face="Arial"><b><%=objRS("materia")%></b></font>
	<br /><img src="imagens/<%=objRS("foto")%>" border="0" align="bottom" hspace="8" vspace="2" width="511" height="404">
</td> 
<%
	objRS.MoveNext 
End If
If Not objRS.EOF Then
%>
<td height="7" width="33%" align="left">
	<font size="3" face="Arial"><b><%=objRS("titulo")%></b></font>
	<br /><font size="2" face="Arial"><b><%=objRS("materia")%></b></font>
	<br /><img src="imagens/<%=objRS("foto")%>" border="0" align="bottom" hspace="8" vspace="2" width="511" height="404">
</td> 
<%		
	objRS.MoveNext
End If
%>
</tr>
<%
cont = cont + 1 
Wend 
%>