%
catID = 0
if Request.QueryString("catid") <> "" then
catID = Clng(Request.QueryString("catid"))
end if
nomeSecao = "Loja Virtual"
corSecao = ""
bannerSecao = "imagens/secaogenerica.jpg"
Session("id_usuario") = "1"
if Cint(Request.Cookies("produtosth")("produtos")) = 0 then
Response.Cookies("produtosth")("produtos") = "0"
end if
blocal = 999
if catID = 0 then
strProdutos = "select * from "& prefixo &"produtos where excluido = 0 and destaque_secao = 1 and bloqueado = 0 limit 9"
else
strProdutos = "select * from "& prefixo &"produtos where excluido = 0 and id_secao = "& catID &" and bloqueado = 0 limit 9"
end if
set objProdutos = objConexao.execute(strProdutos)
if not objProdutos.EOF then
produtos = ""
while not objProdutos.EOF
nomeInteiro = objProdutos("titulo")
titulo = ""
subtitulo = ""
strFoto = "select caminho_final from "& prefixo &"fotos where id_galeria = " & Cint(objProdutos("id_galeria"))
set objFoto = objConexao.execute(strFoto)
if not objFoto.EOF then
caminhoImagem = objFoto("caminho_final")
caminhoImagem = Replace(caminhoImagem,"../controlli","")
caminhoImagem = Replace(caminhoImagem,"../","")
'caminhoImagem = "controlli/" & caminhoImagem
'caminhoImagem = Replace(caminhoImagem,"controlli/controlli/","controlli/")
end if
for i=1 to Len(nomeInteiro)
if i >= 18 and Mid(nomeInteiro, i, 1) = " " then
titulo = Mid(nomeInteiro,1,i) & "
"
subtitulo = Mid(nomeInteiro,i,Len(nomeInteiro))
Exit For
end if
next
if titulo = "" then
titulo = nomeInteiro
end if
if Cint(Session("ClienteID")) > 0 and zbloqueiaVendas = 0 then
produtos = produtos & "