Home
Portada Su correo de Covinter Novedades
<% 'Muestro los enlaces ors.MoveNext wend Response.Write("
") if PaginaActual > 1 then Response.Write("" & tampagina & " Anteriores ") end if if PaginaActual < PaginasTotales then Response.Write("" & tampagina & " Siguientes ") end if end if %>
  La Empresa
  Servicios
  Guía Comercial
  Clasificados
  Lectores
  Publicite
  Educación
  Amigos Virtuales
  Turismo
  Prensa
<% 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 %>
    :: 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 %>
 
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

  » Anterior » Siguiente

 
 
 
 

| Inicio | Créditos | Contáctenos | © 1998 - 2008 - Villa del Rosario, Córdoba - Argentina
® Covinter, nuestra internet - Todos los Derechos Reservados. Optima 800 X 600