Visualizar o ID atual

lezão · Setembro 15, 2015

Ola galera, boa noite!

estou com uma dificuldade em um lance aki, nem sei por onde começar.

tenho uns códigos q esta rodando belezinha, mas o problema é o seguinte, meu cliente quer q o id da RODADA apareça atualmente.

veja nesse link

http://www.shopcolina.com.br/public_html/colinaesporte_novo/teste.asp

gostaria q qnd as pessoas acessesem este link ja aparecia a RODADA atual.

qnd eu entro aparece a 1ª RODADA ao envéz de aparecer a 3ª RODADA

Igual a do GLOBOESPORTE

http://globoesporte.globo.com/futebol/brasileirao-serie-a/

qnd entra ja entra nas rodadas em branco

pensei assim um codigo q contava sete dias ai ele pula p/ a proxima rodada tem como fazer isso?

automaticamente ou manaulmente?

biakelly · Setembro 15, 2015

Oi Lesao, posta este código completo para te ajudar. Vi algo parecido

lezão · Setembro 16, 2015

Ola BiaKelly, boa noite!

segue o codigo

Rodada

<% registros = 1
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("Dados/Amador_2015.mdb")
conexao.open 
 
Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  
 
sql = "SELECT * FROM Rodada ORDER BY id ASC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina


%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>




<table width="380" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="76" height="42" class="texto" style="border-top: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0"><div align="left">
      <%' 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=#FFFFFF><B><a href='rodada_2.asp?pagina=" & pagina-1 & "'><img src='imagens/bt_anterior.png' /></a> ")
Else
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#FFFFFF><B><img src='imagens/bt_anterior2.png' /> ")
End If

%>
    </div></td>
    <td colspan="5" class="texto" style="border-top: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0">      <div align="center"><font size="3" color="#666666" face="arial">
        <b>
        <%=rs("Rodada")%>
        </b>
      </font></div></td>
    <td width="33" class="texto" style="border-top: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0"><div align="right">
      <%

' 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) < rs.PageCount Then
Response.Write("<a href='rodada_2.asp?pagina=" & pagina+1 & "'><img src='imagens/bt_proximo.png' /></a></B></FONT></center>")
Else
Response.Write("<img src='imagens/bt_proximo2.png' /></B></FONT></center>")
End If
End If
%>

    </div></td>
  </tr>
        <%
' Fecha e destroi os objetos RS e conn
rs.Close :
Set RS = Nothing : Set objRS = Nothing
%>


<% 

		registros = 6
' Definindo o caminho do banco de dados
caminho = "Dados/Amador_2015.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("Dados/Amador_2015.mdb")
objconn.Open DSN

' String SQL para consulta
SQL = "select * from Jogos ORDER BY id ASC"
           
' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("<center> <img src='Imagens/logo_teste_vazio.png' width='302' height='299' /><br/><br/><font face=Arial size=4><b>Desculpe não temos produtos Á VENDA!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>")
Else
' Definindo o número de registros por página
objRS.PageSize = registros

' 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
%>	    


 <% While Not objRS.EOF AND x < objRS.PageSize x = x + 1 %> 


  <tr>
    <td height="19" colspan="7">    <div align="center">
<font size="2" color="#666666"face="sans-serif">    
    <%=objrs("Dia")%>  <%=objRS("Data")%>  <%=objRS("Local")%>  <b><%=objRS("Hora")%></b>      
</font>    
    </div></td>
  </tr>
  <tr>
    <td height="56">
      <div align="center"><font size="2" color="#666666" face="arial">
        

<%=Left(objrs("Clube"),36)%>        
      </font></div>
    
    </td>
    <td width="64"><div align="center"><img src="<%=objrs("Foto")%>" width="45" height="45" /></div></td>
    <td width="40">      <div align="center"><font size="4" color="#666666" face="arial"><%=objrs("Gol")%>
        
    </font></div></td>
    <td width="30">      <div align="center"><font size="4" color="#666666" face="arial">
        
        X
        
      </font></div></td>
    <td width="40">      <div align="center"><font size="4" color="#666666" face="arial">
    
    
    <%=objrs("Gol_2")%>
        
      </font></div></td>
    <td width="64"><div align="center"><img src="<%=objRS("Foto_2")%>" width="45" height="45" /></div></td>
    <td>      <div align="center"><font size="2" color="#666666" face="arial">
        
<%=Left(objrs("Clube_2"),36)%>
        
      </font></div></td>
  </tr>
  <tr>
    <td colspan="7" height="10" valign="bottom"><div align="center"><img src="Imagens/separador2.png" width="379" height="4" /></div></td>
  </tr>
  <%	 	
    	
objRS.MoveNext
 
 		Wend
%>
</table>

    <div align="right">
<FONT FACE="Verdana" SIZE="3" COLOR="#666666"><B>    
   
	<%' 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("")
Else
Response.Write("")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
 For i = 1 To objRS.PageCount
   response.write("")
 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("")
     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("")
Else
Response.Write("")
End If
End If
%>
<%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set objRS = Nothing : Set objconn = Nothing
%>


</B></FONT>    </div> 
</body>
</html>

fiz assim na cambiarra, e esta funcionando kkkkkk!

biakelly · Setembro 16, 2015

Oi Lezão, então modifique seu code neste trecho:

SQL = "select * from Jogos ORDER BY id ASC"

para

SQL = "select * from Jogos ORDER BY id DESC"

Quero ver como se comporta.

Além disso me informe como esta sua tabela, como esta puxando os dados. O campo data esta em formato texto ou formato data?

biakelly · Setembro 16, 2015

Tem como você postar aquele código da tabela?

lezão · Setembro 16, 2015

Ola biaKlley, bom dia !

Esse teste de colocar DESC ou ASC eu ja fiz e ele pega apenas o ultimo registro

enqnto a TABELA esta em outra pagina estou usando include, creio eu q naun influencia nada o codigo da RODADA.

O campo data esta em formato texto!

lezão · Setembro 16, 2015

achei a solução!

Muito obrigado pela sua atenção BiaKelly Vlw

Entrar

Arquivado

Visualizar o ID atual

Recommended Posts

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

biakelly 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

biakelly 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

biakelly 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Modal Bootstrap 5

Verificar usuário

Variável dentro dentro do strtotime

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante