% LANGUAGE=VBScript %>
<% Response.Buffer=true %>
<%
total_encontrados = 0
whichpage=Cint(Request("Id_carrera"))
dato_carrera = Cint(Request("Id_carrera"))
SQL2 = "SELECT count(*) as total_encontrados FROM qry_relacion_competiciones"
Set dbConn2 = Server.CreateObject("ADODB.Connection")
dbConn2.Open bd_documentos
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open SQL2, dbConn2
sqltemp = "SELECT * FROM qry_relacion_competiciones"
set rs = server.CreateObject("adodb.recordset")
rs.CursorLocation = 3 'clientside
rs.lockType = adlockoptimistic
rs.CursorType = adopenkeyset
rs.PageSize = 15
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open bd_documentos
max_reg = Cint(Request("total_documentos"))
If max_reg = "" or max_reg = 0 then
max_reg = rs2("total_encontrados")
end if
mypage = request("whichpage")
If mypage = "" then
mypage = 1
end if
mypagesize = request("pagesize")
If mypagesize = "" then
mypagesize = 15
end if
mySQL = request("SQLquery")
IF mySQL = "" THEN
mySQL = SQLtemp
END IF
rs.open mySQL,dbconn
rs.movefirst
rs.pagesize = mypagesize
maxpages = cint(rs.pagecount)
maxrecs = cint(rs.pagesize)
rs.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rs.fields.count -1
%>