|
<%
Conectar
categoria = request("categoria")
Set rs = Server.CreateObject("adodb.recordset")
registroporpagina = 15
RS.PageSize = registroporpagina
RS.CursorLocation = 3
RS.CacheSize = registroporpagina
'Vamos fazer a busca na tabela contatos
if request("categoria") = "" then
sql = "SELECT * FROM produtos WHERE sessao='"&request("id")&"' and visivel='s'"
elseif request("categoria") <> "" and request("subcategoria") = "" then
sql = "SELECT * FROM produtos WHERE sessao='"&request("id")&"' and categoria='"&request("categoria")&"' and visivel='s'"
elseif request("categoria") <> "" and request("subcategoria") <> "" then
sql = "SELECT * FROM produtos WHERE sessao='"&request("id")&"' and categoria='"&request("categoria")&"' and subcategoria='"&request("subcategoria")&"' and visivel='s'"
end if
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then
set rs3 = conexao.execute("SELECT * FROM sessoes WHERE ses_id='"&request("id")&"'")
%>
Home » <%=rs3("ses_nome")%> »
<%
if request("categoria") <> "" then
set rs2 = conexao.execute("SELECT * FROM categoria WHERE cat_id='"&request("categoria")&"'")
response.write rs2("cat_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
cotacao_dia = dados_nc("cotacao", "config_geral", "")
moeda = dados_nc("moeda", "config_geral", "")
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
rs.AbsolutePage = intpagina
intrec=0
set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE sub_id='"&request("subcategoria")&"'")
set rs3 = conexao.execute("SELECT * FROM sessoes WHERE ses_id='"&request("id")&"'")
'esta linha serve apenas para edição. remover após terminar.%>
Home » <%=rs3("ses_nome")%>
<%if request("categoria") <> "" then
set rs2 = conexao.execute("SELECT * FROM categoria WHERE cat_id='"&request("categoria")&"'")
response.write "» " & rs2("cat_nome") &""
end if %>
<%if request("subcategoria") <> "" then
set rs4 = conexao.execute("SELECT * FROM subcategoria WHERE sub_id='"&request("subcategoria")&"'")
response.write " » " & rs4("sub_nome") &""
end if %>
| <%=rs.recordcount%> produtos. Página <%=intpagina%> de <%=rs.pagecount%> |
<%While intrec < rs.PageSize and not rs.EOF
'validar promoção! Verifica se ainda é válida!
set promov = conexao.execute("SELECT * FROM promocao WHERE produto='"&rs("id")&"' and ativo='s'")
if not promov.eof then
verificar = DateDiff("d", date, promov("data_final"))
if verificar < 0 then
conexao.execute("UPDATE promocao SET ativo='n' WHERE produto='"&rs("id")&"'")
end if
end if
promov.close
set promov=nothing
%>
-
<%
preco = formatnumber(fnc_pdt_preco(rs("moeda"), rs("preco"), cotacao_dia),2)
set promo = conexao.execute("SELECT * FROM promocao WHERE produto='"&rs("id")&"' and ativo='s'")
if promo.eof or promo.bof then
por =0
else
por = desconto(preco,promo("desconto"))
end if
%>
&produto=<%=rs("id")%>');" onMouseOut="mOut(this,'')" width="100%" align="center" >
<%=img_promo(rs("id"))%><% If len(cstr(rs("foto1")))<3 or rs("foto1") = "grande.gif" then foto1="pequena.gif" else foto1=rs("foto1") end if%>
|
<%=rs("nome")%>
<%=exibe_fabricante(rs("fabricante"))%> |
<%if por <> "" and por <> 0 then%>
De <%= moeda & " " & preco%> Por <%= moeda & " " & por%> à vista
<%else%>
Apenas <%= moeda & " " & preco%> à vista
<%end if%>
|
<%if calcular_parcela = "s" then
if por <> 0 then
response.write parcela(por, parcelas, minima)
else
response.write parcela(preco, parcelas, minima)
end if
end if%>
|
<%
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%>
|
<%
IF (intpagina) <> 0 then %>
Página:
<% for i = 1 to RS.PageCount %>
&categoria=<%=request("categoria")%>&subcategoria=<%=request("subcategoria")%>&pagina=<%=i%>">
<%if 1 + i - 1 = 1 + intpagina - 1 then response.write "" end if%>
[
<%Response.Write i%>
]
<%if 1 + i - 1 = 1 + intpagina - 1 then response.write "" end if%>
<%next%>
<% END IF %> |
<%END IF
Desconectar%>
|
|
|