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 Local
  Declarate!!!
  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 %>
    :: AGREGAR UNA DECLARACIÓN
<% 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 %>
 
PARA:
leoncito
 
DE:
krlitos
 
DECLARACIÓN:
sos unica t re-kiero
<% 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 %>
 
PARA:
sandro
 
DE:
gaby
 
DECLARACIÓN:
cada dia que despierto y te veo con nuestros hijos, siento que te amo más y más. Sos la luz de mis ojos
<% 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 %>
 
PARA:
Santino
 
DE:
mamucha
 
DECLARACIÓN:
Hola mi bebé chiquito... tu mami te AMA hasta el cielo!!! sos toda mi vida
<% 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 %>
 
PARA:
TATI
 
DE:
mumita
 
DECLARACIÓN:
Hola patito kería decirte que TE AMO HASTA EL CIELO Y PARA TODA LA VIDA.- BESOS
<% 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 %>
 
PARA:
remigio
 
DE:
jesica
 
DECLARACIÓN:
gracias x la hermosa hija q me diste te amo mucho....
<% 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 %>
 
PARA:
lucas
 
DE:
yamile
 
DECLARACIÓN:
amor te amo mucho!..gracias x star 100pre..bss..
<% 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 %>
 
PARA:
KA...SHU..RO..
 
DE:
SHAA..
 
DECLARACIÓN:
chiks las adora!!gracias x star!!..no m falten..
<% 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 %>
 
PARA:
CORBACHO
 
DE:
LA FLACA
 
DECLARACIÓN:
mi amor me encanto la noche de anoche...sos mi leon...tomate otra pastillita!!..te amo mi tigre salvajeee!!grrrrr...
<% 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 %>
 
PARA:
marga
 
DE:
tu amor invisible
 
DECLARACIÓN:
te ame,te amo y te amare x siempre
<% 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 %>
 
PARA:
pipino disco
 
DE:
tatu
 
DECLARACIÓN:
aguante pipino disco and pub
<% 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 %>
 
PARA:
DAMIAN
 
DE:
MAJO
 
DECLARACIÓN:
GORDO TE AMO SOS LO MEJOR QUE ME ESTA PASANDO EN ESTA VIDA UN BESO INMENSO TU CHANCHO
<% 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 %>
 
PARA:
mer.pao.pao.sole..lili..vero
 
DE:
CANTALETA
 
DECLARACIÓN:
siempre unidas en las buenass y las malas.....SOBRE TODO ENN LA JODA...... JA JA JA AGUANTEN LOS HOMBRES.....
<% 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 %>
 
PARA:
raquel albina z .
 
DE:
erico........
 
DECLARACIÓN:
aun te espero, como se espera las cosas bellas en silencio y paciencia...ericoelpery@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 %>
 
PARA:
raquel. albina....
 
DE:
erico........
 
DECLARACIÓN:
gracias por alegrar mi alegrar mi alma, cada vez que te veo...... aun te espero.
<% 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 %>
 
PARA:
Pedro Gigena
 
DE:
Lu, Sabri y Daniel
 
DECLARACIÓN:
feliz cumple!!! gracias por ser el papa del nene mas hermoso de villa! los queremos besos!!
<% 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 %>
 
PARA:
todos
 
DE:
el cantor
 
DECLARACIÓN:
muchas gracias por todo lo del sabado en villa del rosario de parte de a todo ritmo
<% 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 %>
 
PARA:
Fer V.
 
DE:
Lukas A.
 
DECLARACIÓN:
TE AMO Y TE VOY A AMAR POR SIEMPRE!!!!!
<% 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 %>
 
PARA:
JORGE H
 
DE:
ANDREA D
 
DECLARACIÓN:
AMOR...MI VIDA ES TODA TUYA PARA SIEMPRE. CUIDALA. TE AMO CON EL CORAZON !!!
<% 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 %>
 
PARA:
veronica barberis
 
DE:
una amiga
 
DECLARACIÓN:
hola!sos hermana de gabriel o conoces a gabriel?porq necesito contactarme con un gabriel de villa del rosario q no m dio su apellido..tiene 22 años..gracias!!

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