<% 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 & "

" & titulo & "" & subtitulo & "

DETALHESCOMPRAR
" else produtos = produtos & "

" & titulo & "" & subtitulo & "

DETALHESCOMPRAR
" end if objProdutos.movenext wend objFoto.close set objFoto = Nothing else produtos = produtos & "Nenhum produto encontrado" end if %> <%=nomeSecao%> - <%=empresaTitulo%>
<% sTipo = "i" %>
<% strCat = "select * from "& prefixo &"categorias order by titulo asc" set objCat = objConexao.execute(strCat) If Not objCat.EOF Then While Not objCat.EOF %> " class="categoria"><%=objCat("titulo")%> <% objCat.Movenext Wend End If %>

<%=nomesecao%>

<%=produtos%>