<% %> <% 'Requisita a variavel para saber a sessao idsessao = Request.QueryString("item") categoria = Request.QueryString("Categoria") if idsessao="" then idsessao ="000000000000000" end if if categoria="" then categoria ="000000000000000" end if pag = request.querystring("itens") pagdxx = request.querystring("pagina") finalera = request.querystring("final") '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### ' Pega a categoria com a sub-categoria do produto. '---------------------------------------------------------------------------------------- 'Abre os departamentos '######################################################################################### ' Pega a categoria com a sub-categoria do produto. '---------------------------------------------------------------------------------------- IF Categoria <> "000000000000000" THEN SQL = "SELECT A.*, B.NOME AS SESSAO FROM CATEGORIA AS A, SESSOES AS B WHERE A.IDSESSAO = B.ID AND idcategoria="&categoria&" and idsessao="&idsessao ELSE SQL = "SELECT top 1 A.*, B.NOME AS SESSAO FROM CATEGORIA AS A, SESSOES AS B WHERE A.IDSESSAO = B.ID AND idsessao="&idsessao END IF Set nomes = abredb.execute(SQL) if nomes.eof then%>
<%=strLg4%> » <%=strLg206%>

>



<%=strLg207%> <%=nomeloja%>!



>
:: <%=strLg41%> ::
<% response.end else strSessao = nomes("Sessao") strNome = nomes("nome") strParam = nomes("idcategoria") 'Conta a quantidade de produtos set rs2 = abredb.execute("SELECT count(nome) AS total FROM produtos WHERE idsessao = '"&strParam&"' AND estoque='s'") totalreg = rs2("total") rs2.close set rs2 = nothing %>
<%=strLg4%> » <%=strSessao%> » <%= strNome %>

>
<%=strLg48%> <%=totalreg%>
>
<%if totalreg = "0" then%>


<%=strLg208%>



>
<%=strLg45%> 1 <%=strLg46%> 1
>
:: <%=strLg41%> ::
<% response.end end if nomes.Close set nomes = Nothing end if %>
<% if VersaoDb = 1 Then '*** Inicio da Rotina MySQL if pag = "" then inicial = 0 final = 4 inicialx = 4 else inicial = pag final = 4 inicialx = 4 + pag end if 'Abre os produtos do departamento na primeira coluna set rs = abredb.execute("SELECT * FROM produtos WHERE idsessao = '"&strParam&"' AND estoque='s' ORDER by nome LIMIT "&inicial&","&final&"") 'Abre os produtos do departamento na segunda coluna set rs3 = abredb.execute("SELECT * FROM produtos WHERE idsessao = '"&strParam&"' AND estoque='s' ORDER by nome LIMIT "&inicialx&",4") if rs.eof or rs.bof then %> <% else while not rs.EOF precito = formatNumber(rs("preco"),2) intProdID = rs("idprod") impequeno= rs("impeq") 'Inicia a primeira coluna%> <% If len(cstr(impequeno))<3 then impeq="img_nao_disp.gif" else impeq=impequeno end if%> <% rs.MoveNext pagn = inicial + 8 wend rs.close set rs = nothing end if %>
>
" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;">><%=rs("nome")%>

<%=strLg29%> <%= strlgMoeda & " " & precito%> <% '*** Verifica se tem Estoque do Produtos da Esquerda set rs_estoque1 = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs.fields("idprod")&" ;") if not rs_estoque1.eof then estoque_atual_1=rs_estoque1("estoque") end if rs_estoque1.close set rs_estoque1 = nothing %>
<%=strLg28%> <%if estoque_atual_1 > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if%>
 <%if rs3.eof or rs3.bof then%> <%else while not rs3.EOF 'Formata o preco precito2 = formatNumber(rs3("preco"),2) 'id do produto intProdID2 = rs3("idprod") impequeno2= rs3("impeq") 'Inicia a segunda coluna %> <% If len(cstr(impequeno2))<3 then impeq="img_nao_disp.gif" else impeq=impequeno2 end if%>
<% rs3.MoveNext wend rs3.close set rs3 = nothing end if %>
>
" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;">><%=rs3("nome")%>

<%=strLg29%> <%=strlgMoeda & " " & precito2%> <% '*** Verifica se tem Estoque do Produtos da Direita set rs_estoque2 = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs3.fields("idprod")&" ;") if not rs_estoque2.eof then estoque_atual_2=rs_estoque2("estoque") end if rs_estoque2.close set rs_estoque2 = nothing %>
<%=strLg28%> <%if estoque_atual_2 > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if%>
<% 'Calcula o numero de pagina if totalreg Mod 8 <> 0 then valor = 1 else valor = 0 end if pagina = fix(totalreg / 8) + valor pagina = replace(pagina,".","") if pagina = "0" then pagina = "1" end if %>
<% paga = pagn - 16 paga = replace(paga,".","") pagn = replace(pagn,".","") pagdxx = pagdxx + 1 pagdxx = replace(pagdxx,".","") pagdxx2 = pagdxx - 2 pagdxx2 = replace(pagdxx2,".","") if pagdxx = "" then pagd = 1 end if if paga < 0 then paga = 0 else %> :: <%=strLg209%> ::   <% end if if totalreg < final OR pagdxx = pagina then totalreg = "" else variavel1 = CStr(pagdxx + 1) variavel2 = Cstr(pagina) variavel1 = replace(variavel1,".","") variavel2 = replace(variavel2,".","") %>   " style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg47%>';return true;">:: <%=strLg47%> :: <%end if%>
>
<%=strLg45%> <%=pagdxx%> <%=strLg46%> <%=pagina%> <% if pagina = 1 then finalera = "sim" end if if pagina <> 1 then For i=1 to pagina - 1 i = replace(i,".","") i2 = i - 1 i2 = replace(i2,".","") fator = 8 totalfator = fator * i - 8 totalfator = replace(totalfator,".","") paginadem = pagdxx paginadem = replace(paginadem,".","") %>  ';return true;"><%if paginadem = i then response.write "" end if%><%=replace(i,",","")%> · <% Next end if pagina2 = pagina * 8 - 8 pagina2 = replace(pagina2,".","") pagina3 = pagina - 1 pagina3 = replace(pagina3,".","") %>  <%if finalera = "sim" then response.write "" end if%><%=pagina%>
>
:: <%=strLg41%> ::
<% '*** Fim da Rotina MySQL Else '*** Inicio da Rotina Access regs = 8 'Aqui setamos quantos registros serão listados por página pag = request.querystring("pagina") if pag = "" Then pag = 1 end if set rs = createobject("adodb.recordset") set rs.activeconnection = abredb rs.cursortype = 3 'Definimos o cursor a ser utilizado rs.CacheSize = regs rs.pagesize = regs sql = "SELECT * FROM produtos WHERE idsessao = '"&strParam&"' AND estoque='s' ORDER by impeq DESC ,nome" rs.open sql rs.movefirst somando = 0 if rs.eof or rs.bof then%> <%else rs.absolutepage = pag contador = 0 do while not rs.eof and contador < rs.pagesize precito = formatNumber(rs("preco"),2) intProdID = rs("idprod") impequeno= rs("impeq") If len(cstr(impequeno))<3 then impeq="img_nao_disp.gif" else impeq=impequeno end if if somando = 0 then '*** Inicia a primeira coluna %>
>
" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;"> ><%=rs("nome")%>

<%=strLg29%> <%=strLgMoeda & " " & precito%> <% '*** Verifica se tem Estoque do Produtos da Esquerda set rs_estoque1 = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs.fields("idprod")&" ;") if not rs_estoque1.eof then estoque_atual_1=rs_estoque1("estoque") end if rs_estoque1.close set rs_estoque1 = nothing %>
<%=strLg28%> <%if estoque_atual_1 > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if%>
<% contador = contador + 1 somando = 1 elseif somando = 1 then '*** Inicia a segunda coluna %>
>
" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;"> ><%=rs("nome")%>

<%=strLg29%> <%=strLgMoeda & " " & precito%> <% '*** Verifica se tem Estoque do Produtos da Direita set rs_estoque2 = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs.fields("idprod")&" ;") if not rs_estoque2.eof then estoque_atual_2=rs_estoque2("estoque") end if rs_estoque2.close set rs_estoque2 = nothing %>
<%=strLg28%> <%if estoque_atual_2 > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if%>
<% contador = contador + 1 somando = 0 end if rs.movenext loop end if %> <%'Fecha os produtos do departamento%>
<%'Criando links para a navegação%>
>
<%=strLg45%>:   <%for i = 1 to rs.pagecount if i = cint(pag) then response.write " " & i & "  " else response.write "" & i & "  " end if next rs.close set rs = nothing %>
>
:: <%=strLg41%> ::
<%end if%>