|
<%
categoria = request("categoria")
Set rs = Server.CreateObject("adodb.recordset")
registroporpagina = 15
RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise.
RS.CursorLocation = 3
RS.CacheSize = registroporpagina
'Vamos fazer a busca na tabela contatos
if request("categoria") = "" then
sql = "SELECT * FROM produtos WHERE estoque='s' and idsessao='"&request("id")&"'"
elseif request("categoria") <> "" and request("subcategoria") = "" then
sql = "SELECT * FROM produtos WHERE estoque='s' and idsessao='"&request("id")&"' and idcategoria='"&request("categoria")&"'"
elseif request("categoria") <> "" and request("subcategoria") <> "" then
sql = "SELECT * FROM produtos WHERE estoque='s' and idsessao='"&request("id")&"' and idcategoria='"&request("categoria")&"' and idsubcategoria='"&request("subcategoria")&"'"
end if
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then
set rs3 = conexao.execute("SELECT * FROM sessoes WHERE id='"&request("id")&"'")
%>
Home » <%=rs3("nome")%> »
<%
if request("categoria") <> "" then
set rs2 = conexao.execute("SELECT * FROM categoria WHERE idcategoria='"&request("categoria")&"'")
response.write rs2("nome")
end if%> |
A sessão de produtos selecionada está vazia
Novos produtos são cadastrados todos os dias. Volte em breve e escolha esta categoria para visualizar nossos produtos. |
<%
else
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> rs.PageCount then
intpagina=rs.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rs.AbsolutePage = intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE idsubcategoria='"&request("subcategoria")&"'")
set rs3 = conexao.execute("SELECT * FROM sessoes WHERE id='"&request("id")&"'")
'esta linha serve apenas para edição. remover após terminar.%>
<%END IF%>
|
|
|