<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
deporte = cstr(request.querystring("deporte"))
if deporte = "" then
response.redirect("index.asp")
end if
%>
sportstime.com.mx
<%
Dim DB, rs, SQL, rs2, SQL2
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.mdb"))
SQL = "SELECT * FROM " & deporte &""
'-----------------------------------------------------------------
Dim cantidadregistros, mostrarpagina, maxregistros
Dim desde, hasta, contreg, cero, nombrescript, ref
cantidadregistros = 15
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.cachesize=60
rs.open SQL, DB, 3, 3
if rs.recordcount = 0 then
response.Write("No hay registros")
else
rs.pagesize=cantidadregistros
maxpagina=cint(rs.pagecount)
maxregistros=cint(rs.pagesize)
rs.absolutepage=mostrarpagina
contreg=0
if int(mostrarpagina)<>int(maxpagina) then
hasta=mostrarpagina*15
desde=hasta-14
else
hasta=rs.recordcount
desde=(maxpagina*15)-14
end if
response.write "Resultados : "
response.write "" & desde & " a " & hasta & " de " & rs.recordcount & " encontrados."
response.write "
"
%>
<%
dim c1, c2, c3, c4, c5
do while not rs.eof and contreg < maxregistros
'--------------------------------------------------
Response.Write "
"
response.Write("")
'response.write rs.fields("nombre") & " "
rs.movenext
contreg=contreg+1
loop
cero="0"
nombrescript=request.servervariables("script_name")
if int(mostrarpagina)<>1 then
ref="[<< Anterior] "
end if
for contador=1 to maxpagina
if contador>9 then
cero =" "
end if
ref=ref & " " & cero & contador & ""
else
ref=ref & "'>" & cero & contador & ""
end if
next
if int(mostrarpagina)<>int(maxpagina) then
ref=ref & " [Siguiente >>]"
end if
response.write "" & ref & ""
end if
%>