|
|
 |
| ::
AGREGARME
A LA LISTA DE AMIGOS VIRTUALES |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
adrian
|
EDAD: |
| |
LUGAR: |
luque
|
21
|
| |
ESCRIBIME
A : |
adrian.vivas@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
romina
|
EDAD: |
| |
LUGAR: |
v del rosaio
|
19
|
| |
ESCRIBIME
A : |
romi_br@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
paola suarez
|
EDAD: |
| |
LUGAR: |
v. del.ros.
|
27
|
| |
ESCRIBIME
A : |
pao_ojitos_bellos@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
cesar camusso
|
EDAD: |
| |
LUGAR: |
villa del rosario
|
14
|
| |
ESCRIBIME
A : |
ivan_bocha_cesar@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
celeste
|
EDAD: |
| |
LUGAR: |
bs as /villa del rosario
|
30
|
| |
ESCRIBIME
A : |
laintrepidacoraje_22@hotmail.ccom
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
MADO
|
EDAD: |
| |
LUGAR: |
STGO. TEMPLE |
21 |
| |
ESCRIBIME
A : |
LOLI_214@HOTMAIL.COM
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE: |
luis robledo |
EDAD: |
| |
LUGAR: |
General Deheza |
49 |
| |
ESCRIBIME
A : |
alberto_robledo22@hotmail.com |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
maria
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
21
|
| |
ESCRIBIME
A :
|
celeste-magali21@hotmail.com |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Sergio
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
--
|
| |
ESCRIBIME
A :
|
sergiopalazon@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
silvina gaviglio
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
26
|
| |
ESCRIBIME
A :
|
silvina_li@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
robert
|
EDAD:
|
| |
LUGAR:
|
clorinda(Fsa) |
52
|
| |
ESCRIBIME
A :
|
rjs@hotmail |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Marcos
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
22
|
| |
ESCRIBIME
A :
|
mac1087@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Lorena Perez
|
EDAD:
|
| |
LUGAR:
|
Ushuaia - Tierra del Fuego |
24
|
| |
ESCRIBIME
A :
|
lolyta_c84@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Luciana
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
28
|
| |
ESCRIBIME
A :
|
lucita_cba_arg@yahoo.com.ar
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
NAY MAR
|
EDAD:
|
| |
LUGAR:
|
VILLA DEL ROSARIO |
32
|
| |
ESCRIBIME
A :
|
ros-mary-30@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Ramiro Eduardo
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
19
|
| |
ESCRIBIME
A :
|
ramiro_elbombi07@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Laura
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
25
|
| |
ESCRIBIME
A :
|
laurazab370@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
daniel
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
19
|
| |
ESCRIBIME
A :
|
gomez_109@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
RICARDO PAILLER
|
EDAD:
|
| |
LUGAR:
|
VILLA MARIA |
26
|
| |
ESCRIBIME
A :
|
ema24_@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Silvina
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
19
|
| |
ESCRIBIME
A :
|
silvi_vdr_@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
lucas.d.c
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
27
|
| |
ESCRIBIME
A :
|
lucascarabante@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
patricia
|
EDAD:
|
| |
LUGAR:
|
va del rosario |
23
|
| |
ESCRIBIME
A :
|
patriciab_27@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
natalia soledad
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
29
|
| |
ESCRIBIME
A :
|
soledad_bortoletto@yahoo.com.a
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
MARGA
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
48
|
| |
ESCRIBIME
A :
|
labrujita_marga@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
jorge a ferreyra
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
25
|
| |
ESCRIBIME
A :
|
silvina_li@hotmail.com.ar
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
jorge a ferreyra
|
EDAD:
|
| |
LUGAR:
|
base marambi antartida argentia |
40
|
| |
ESCRIBIME
A :
|
jorgealfredo369@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
leandro
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
15
|
| |
ESCRIBIME
A :
|
leocapo29@hotmail.es
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
marcos
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
17
|
| |
ESCRIBIME
A :
|
elcholo_capo@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
nestor
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
24
|
| |
ESCRIBIME
A :
|
nesto_gabi@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
bnatalia44
|
EDAD:
|
| |
LUGAR:
|
cordoba |
47
|
| |
ESCRIBIME
A :
|
bnatalia44@yahoo.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
rodrigo
|
EDAD:
|
| |
LUGAR:
|
luque |
25
|
| |
ESCRIBIME
A :
|
rodrigoventeo@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
patricia
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
40
|
| |
ESCRIBIME
A :
|
patri_vdr@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
marcos
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
17
|
| |
ESCRIBIME
A :
|
elpolaco-08@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
sonia alejandra
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
32
|
| |
ESCRIBIME
A :
|
son1a_alejandra@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
jesica
|
EDAD:
|
| |
LUGAR:
|
rincon |
20
|
| |
ESCRIBIME
A :
|
jesica5v@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
MARGA
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
48
|
| |
ESCRIBIME
A :
|
labrujita_marga@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Jose
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario / bsas |
19
|
| |
ESCRIBIME
A :
|
pepe_xeneize@hotmail.com |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
marcela
|
EDAD:
|
| |
LUGAR:
|
buenos aires |
35
|
| |
ESCRIBIME
A :
|
marce_32_@hotmail.com |
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
Victor Manuel
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
30
|
| |
ESCRIBIME
A :
|
pixelcanal@hotmail.com
|
<%
TamPagina= 15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Setear la conexion
Set oCon = Server.CreateObject ("ADODB.Connection")
oCon.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Student1;Password=Student1;Initial Catalog=COVINTER;Data Source=SISCOBETA\SISCOBETA"
oCon.Open
'setear un comando
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
' Defino el tamaño de las páginas
ors.PageSize=TamPagina
ors.CacheSize=TamPagina
'select ,Traigo lo que consultó de la tabla
oCmd.CommandText = "select * from Foro WHERE titulo = '" & request ("titulo") & "', and '" & request ("nombre") order by date"
'Setear el recordset
set ors = Server.CreateObject("ADODB.Recordset")
ors.open oCmd
Set oCon = Nothing
'Cuento las páginas
PaginasTotales=ors.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
ors.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
cantidad=0
while not ors.EOF and cantidad < TamPagina
cantidad=cantidad+1
%>
| |
NOMBRE:
|
roberto
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
29
|
| |
ESCRIBIME
A :
|
roberto0541@hotmail.com
|
|
|
|
<%
'Muestro los enlaces
ors.MoveNext
wend
Response.Write("
