|
|
 |
| ::
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:
|
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
|
<%
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:
|
ANDREA
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
30
|
| |
ESCRIBIME
A :
|
andreafd77@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:
|
javier
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
17
|
| |
ESCRIBIME
A :
|
gustavo_hongn@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
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
17
|
| |
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:
|
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:
|
MARCELO
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
43
|
| |
ESCRIBIME
A :
|
marcelo_o63@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:
|
Gabriel
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario-Córdoba |
21
|
| |
ESCRIBIME
A :
|
antoniosantucho@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:
|
silvia
|
EDAD:
|
| |
LUGAR:
|
Rosario |
42
|
| |
ESCRIBIME
A :
|
ferrarisnatal@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:
|
Adrian
|
EDAD:
|
| |
LUGAR:
|
Luque |
18
|
| |
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:
|
jessica gomez
|
EDAD:
|
| |
LUGAR:
|
Gdoy Cruz Mendoza |
20
|
| |
ESCRIBIME
A :
|
jesy705@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 |
50
|
| |
ESCRIBIME
A :
|
lauragaleasso@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:
|
HUGO
|
EDAD:
|
| |
LUGAR:
|
VILLA DEL ROSARIO |
46
|
| |
ESCRIBIME
A :
|
hrprangers@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:
|
Carlita Ruggeri
|
EDAD:
|
| |
LUGAR:
|
villa del Rosario |
18
|
| |
ESCRIBIME
A :
|
karlyta_777@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
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
27
|
| |
ESCRIBIME
A :
|
bylilu_170 |
<%
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:
|
jesus ortiz flores
|
EDAD:
|
| |
LUGAR:
|
JUAREZ CHIH |
24
|
| |
ESCRIBIME
A :
|
triste2136@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:
|
Juan Napoleon
|
EDAD:
|
| |
LUGAR:
|
cachari |
26
|
| |
ESCRIBIME
A :
|
tupapisexy@amor.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:
|
carolina
|
EDAD:
|
| |
LUGAR:
|
villa del rosario |
16
|
| |
ESCRIBIME
A :
|
ana_caro_05@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:
|
Liliana Villagarcia
|
EDAD:
|
| |
LUGAR:
|
Villa del Rosario |
17
|
| |
ESCRIBIME
A :
|
lili_mr_93@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:
|
Rodrigo
|
EDAD:
|
| |
LUGAR:
|
Venado Tuerto |
13
|
| |
ESCRIBIME
A :
|
rodri_14_06@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:
|
José Luis Matzkin
|
EDAD:
|
| |
LUGAR:
|
Cap. Fed. |
41
|
| |
ESCRIBIME
A :
|
info@matzkin.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:
|
María José Bertea
|
EDAD:
|
| |
LUGAR:
|
villa del rosario(córdoba) |
19
|
| |
ESCRIBIME
A :
|
majobertea@latinmail.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 |
15
|
| |
ESCRIBIME
A :
|
sergio_13306@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:
|
adrian porcel de peralta
|
EDAD:
|
| |
LUGAR:
|
calchin |
20
|
| |
ESCRIBIME
A :
|
adrianperalta@covinter.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.EO | |