<%Next%> <% RS.MoveNext Wend %> <% i=0 While i
|
|
|
|
| TRABAJOS PRESENTADOS - TRABAJOS ACEPTADOS - TRABAJOS RECHAZADOS | |||
| <%
'entre " " va el nombre de la tabla, y luego de la "," se indica la BD que contiene esa tabla.
'El número que le sigue, el "1", es la forma de abrir la tabla.
Set rs3 = Server.CreateObject ("ADODB.RecordSet")
Sql= "SELECT count(*) as son "
Sql = Sql & "FROM trabajos WHERE valido=-1"
rs3.Open Sql, Conn
valor=rs3("son")
rs3.movenext
rs3.close
if (valor>0) then
Sql= "SELECT codtrab, codpar, titulo, autores, resumen, institucion "
Sql = Sql & "FROM trabajos WHERE valido=-1 ORDER BY codpar "
'resultados por pagina a elegir arbitrariamente
num_registros = 5
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Session("npagina")=num_registros*(Request.QueryString("pag")-1)
Else
Session("pagina")=1
Session("npagina")=0
End If
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
Set Command = Server.CreateObject("ADODB.Command")
rs.Open Sql,Conn,adopenstatic,adcmdtext
'rs.Open Sql, Conn
rs.PageSize=num_registros
rs.AbsolutePage=Session("pagina")
x=0
'do while not rs.eof
%>
<%
'Contamos el numero de campos
'num_campos=rs.Fields.Count
num_campos=1
'For campo=0 to num_campos-1
'response.Write(rs("codpar").Name)
response.Write(campo)
'Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
Session("npagina")=Session("npagina")+1
' x=x+1
%>
<%For campo=0 to num_campos-1 %>
<%Next%> <% RS.MoveNext Wend %> <% i=0 While i |
|||
|
|||