Atletas em Colunas
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 & Letranext
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> ")
nextend 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
Discussão (1)
Carregando comentários...