<%
if request("link") = "ver" then
%>
|
VEJA
TODAS AS SEÇÕES DE CATEGORIAS E SUBCATEGORIAS
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
<%
'CHAMA OS DEPARTAMENTOS CADASTRADOS
Set rs = Server.CreateObject("adodb.recordset")
registroporpagina = 10
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
sql = "SELECT * FROM sessoes ORDER by nome"
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then %>
Não há departamentos cadastrados
em sua loja virtual
<%
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
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < rs.PageSize and not rs.EOF
'numiz = CInt(intpagina & "0")
'iz = iz + numiz
iz = iz + 1
%>
Foram encontrados <%=rs.RecordCount %> departamentos
cadastrados divididos em <%=rs.PageCount %> páginas
Serão mostrados os departamentos e seus respectivos
sub-departamentos
Você está navegando na página de
número <%=intpagina %>
» <%=rs("nome")%>
 " name="img_imagem" border="0" id="img_imagem"> Visivel:
<% if rs("ver") = "s" then response.write "Sim" else response.write "Nao" end if%>
|
|
<%
Set Rs3 = conexao.Execute("SELECT * FROM categoria WHERE idsessao="& rs("id") &" ORDER by nome")
if rs3.bof or rs3.eof then
end if
While Not rs3.EOF%>
| <%=rs3("nome")%> |
Visível:
<% if rs3("ver") = "s" then response.write "Sim" else response.write "Nao" end if%>
|
|
<%
Set Rs4 = conexao.Execute("SELECT * FROM subcategoria WHERE idcategoria="& rs3("idcategoria") &" ORDER by nome")
if rs4.bof or rs4.eof then
end if
While Not rs4.EOF%>
| ::
<%=rs4("nome")%> |
Visível:
<% if rs4("ver") = "s" then response.write "Sim" else response.write "Nao" end if%>
|
|
<% rs4.movenext
wend%>
|
<% rs3.movenext
wend%>
|
<%
rs.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rs.EOF then
response.write " "
END IF
Wend 'fim do loop%>
|
| |
|
| |
|
<% 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF (intpagina) <> 0 then %>
Página:
<% for i = 1 to RS.PageCount %>
[
<%Response.Write i%>
]
<%response.Write" "%>
<%next%>
<% END IF
END IF %>
|
| |
|
| |
|
<%
elseif request("link") = "editarcateg" then
set rs = conexao.execute("SELECT * FROM sessoes WHERE id="&request("id")&"")
%>
EDITE
AS CATEGORIAS CADASTRADAS
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "subcateg" then
codigo = request("id")
set rs = conexao.execute("SELECT * FROM categoria WHERE idcategoria="&codigo&"")
%>
EDITE
AS SUB-CATEGORIAS CADASTRADAS
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "incluircateg" then
%>
CRIAR
SEÇÕES DE PRODUTOS
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "incluirsubcateg" then
%>
INCLUA
UMA CATEGORIA EM SUA SEÇÃO
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "incluirsubsubcateg" then
%>
INCLUA
UMA SUB-CATEGORIA EM SUA CATEGORIA
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "editarsubsubcateg" then
set subs= conexao.execute("SELECT * FROM subcategoria WHERE idsubcategoria='"&request("id")&"'")
set cat = conexao.execute("SELECT * FROM categoria WHERE idcategoria='"&subs("idcategoria")&"'")
set ses = conexao.execute("SELECT * FROM sessoes WHERE id='"&cat("idsessao")&"'")
set roda = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&ses("id")&"'")
%>
|
INCLUA UMA SUB-CATEGORIA
EM SUA CATEGORIA
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
end if
%>
CONFIGURE
TODAS AS SEÇÕES DE CATEGORIAS E SUBCATEGORIAS
|
|
|
