<%
hei=380
wid=500
%>
<%
cod_logo = Request.QueryString("cod_log")
cod_tipo = Request.QueryString("cod_tipo")
referencia=cod_tipo & cod_logo
cantidadregistros=26
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if
Set imagen_logo=Server.CreateObject("ADODB.Recordset")
Set titulo_pagina=Server.CreateObject("ADODB.Recordset")
imagen_logo.cachesize=60
conexion.Open
imagen_logo.Open "SELECT * FROM LOGOS WHERE ver='s' and cod_logotipo="&cod_logo&"",conexion,1,1
TITULO_PAGINA.Open "SELECT * FROM TIPO_LOGO WHERE cod_logotipo="&cod_logo&"",conexion,1,1
imagen_logo.pagesize=cantidadregistros
maxpagina=cint(imagen_logo.pagecount)
maxregistros=cint(imagen_logo.pagesize)
imagen_logo.absolutepage=mostrarpagina
contreg=0 %>
<%conexion.close%>