| |
<%
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
sql = "SELECT * FROM produtos WHERE fabricante='"&request("marca")&"' and visivel='s'"
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then
%>
| Home » Pesquisa de Fabricante |
Não há produtos com a marca escolhida!
Certifique-se que clicou na logomarca correta do fabricante! |
<%
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
'esta linha serve apenas para edição. remover após terminar.%>
| Home » Pesquisa de Fabricante
| <%=rs.recordcount%> produtos. Página <%=intpagina%> de <%=rs.pagecount%> |
<%While intrec < rs.PageSize and not rs.EOF
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 %>
&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%>
|
|
|