03/07/2002, 20:27
|
| | | Fecha de Ingreso: mayo-2002
Mensajes: 91
Antigüedad: 23 años Puntos: 0 | |
| Re: Puedo tener varios forms dentro de una pagina?
Te envío el código de mi página!
Traté de quitarle partes del diseño pero el listado de eventos está completo y la paginación tal cual como los tengo:
primera parte:
<html>
<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina&q uot;)-1
if session("pagina")< 1 then
session("pagina")=1
end if
else
if xx="Adelante" then
session("pagina")=session("pagina&q uot;)+1
else
session("pagina")=1
end if
end if%>
<head>
<title>Listado de Eventos dependencia XX</title>
</head>
<body BGCOLOR="#fcfcfc" TEXT="#000000" LINK="#74BA72" VLINK="#800080" ALINK="#FF0000">
<!--#INCLUDE File="../ADOVBS.inc"-->
<%
Set Ob_Conn=Server.CreateObject("ADODB.Connection ")
Ob_Conn.Open "Basedatos"
dependencia = XXXXXX
sqll = "SELECT * FROM usuarios where UCase([coddependencia])='" & dependencia & "'"
Set Ob_RSU = Server.CreateObject("ADODB.Recordset")
Ob_RSU.Open sqll,Ob_Conn
usuario=Ob_RSU("idusuario")
Ob_RSU.close%>
<%
sql = "SELECT * FROM eventos where UCase([idusuario])='" & usuario & "'"
set Ob_RS = CreateObject("ADODB.Recordset")
Ob_RS.CursorType = adOpenstatic
Ob_RS.Open SQL, Ob_conn
Ob_RS.pagesize=10
if session("pagina")>Ob_RS.pagecount then
session("pagina")=Ob_RS.pagecount
end if%>
<%Ob_RS.absolutepage=session("pagina" )
inicio=1+(session("pagina")-1)*Ob_RS.pagesize
fin=inicio+9
if fin > Ob_RS.recordcount then
fin =Ob_RS.recordcount
end if%>
<%if Ob_RS.eof and Ob_RS.bof then%>
<center>
<font face="Arial" color="#ffffff"><big>no hay eventos por mostrar ...</big></font>
</center>
<% else %>
|