|
| Links Úteis |
<%
Set rs = server.CreateObject("ADODB.Recordset")
'Busca os produtos em que a categoria foi armazenada na variavel vcategoria
rs.Open "SELECT * FROM Links order by LIN_ref, LIN_site", Conexao, 3, 3
rs.PageSize = 100
rs.CacheSize = 6
rs.Move = 0
if request.querystring("pagina")= "" then
intpagina = 1
else
if Cint(request.querystring("pagina")) < 1 then
intpagina = 1
elseif Cint(request.querystring("pagina")) > rs.Pagecount then
intpagina = rs.Pagecount
else
intpagina = Cint(request.querystring("pagina"))
end if
end if
rs.AbsolutePage = intpagina
intRec= 0
While intRec < rs.pagesize AND NOT rs.EOF
count=count + 1
id = rs("ID_LIN")
LIN_ref = rs("LIN_ref")
LIN_tema = rs("LIN_tema")
LIN_site = rs("LIN_site")
LIN_url = rs("LIN_url")
LIN_nv = rs("LIN_nv")
%>
|
<%=LIN_tema%> |
<%=LIN_site%> |
<%=LIN_nv%> |
<%rs.Movenext
intRec = intRec + 1
Wend
%>
|
|
|
