| |
|
Principal
|
|
História
|
|
Clube
|
|
Estádio
|
|
Agenda
|
|
Classificação
|
|
Notícias
|
|
Sócios
|
|
Multimídia
|
|
Fale Conosco
|
|
|
|
|
|
DESTAQUES |
| |
<%
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.ConnectionString = "DBQ=" & Server.MapPath("../../dados/banco_dados") & ";"
Conn.ConnectionString = Conn.ConnectionString & "Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open
'objeto recordset
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.PageSize = 1
sql="SELECT * from noticias order by id desc"
RS.Open sql, Conn,3,3
If RS.EOF then
Response.Write " Nenhum destaque encontrado no sistema no momento! "
Else
If Request.QueryString("pagina")="" then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))<1 then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))>RS.PageCount then
intpagina=RS.PageCount
Else
intpagina=Request.QueryString("pagina")
End If
End if
End if
End if
RS.AbsolutePage=intpagina
intrec=0
%>
<%While intrec < RS.PageSize and not RS.EOF%>
<%
RS.MoveNext
intrec=intrec+1
Wend
Set Rs = nothing
Conn.close
Set Conn = nothing
%>
|
|
|
|
|
| |
|
 |
<%
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.ConnectionString = "DBQ=" & Server.MapPath("../../dados/banco_dados") & ";"
Conn.ConnectionString = Conn.ConnectionString & "Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open
'objeto recordset
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.PageSize = 4
sql = "SELECT * from noticias order by id desc"
RS.Open sql, Conn,3,3
If RS.EOF then
Response.Write "
Nenhuma notícia encontrada no sistema! "
Else
If Request.QueryString("pagina")="" then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))<1 then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))>RS.PageCount then
intpagina=RS.PageCount
Else
intpagina=Request.QueryString("pagina")
End If
End if
End if
End if
intrec=0
%>
<%While intrec
<%
RS.MoveNext
intrec=intrec+1
Wend
Conn.Close
%>
|
| |
|
|
|
 |
<%
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.ConnectionString = "DBQ=" & Server.MapPath("../../dados/banco_dados") & ";"
Conn.ConnectionString = Conn.ConnectionString & "Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open
'objeto recordset
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.PageSize = 8
sql = "SELECT * from classificacao order by p asc"
RS.Open sql, Conn,3,3
If RS.EOF then
Response.Write "
Classificação não disponível no momento! "
Else
If Request.QueryString("pagina")="" then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))<1 then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))>RS.PageCount then
intpagina=RS.PageCount
Else
intpagina=Request.QueryString("pagina")
End If
End if
End if
End if
intrec=0
%>
<%While intrec
| |
<%=RS("p")%> |
|
<%=RS("clube")%> |
|
<%=RS("pg")%> |
|
<%
RS.MoveNext
intrec=intrec+1
Wend
Conn.Close
%>
|
| |
|
|
|
| |
|
 |
|
 |
|
0 |
x |
2 |
|
 |
|
CAT |
|
01/08 |
|
COMERCIAL |
| |
| |
|
|
|
|
|
| |
| |
|
|
|
|
|
|
Do Clube
