<%Dim conn, Rs2, Rs Call abre_conexao(loja) n_page=request("n_page") If n_page="" Then n_page = 1 strSQL = "SELECT categoria FROM tbl_Produto WHERE flg_ok=1 group by categoria" Set RsM = conn.execute(StrSql) strSQL = "SELECT peso,variaveis,id_produto,produto,url_imgp,url_imgG,descricao,preco,categoria FROM tbl_Produto WHERE FLG_OK=1 AND id_produto="&NumeroBD(request("id_produto")) Set Rs = conn.execute(StrSql) categoria = Rs("categoria") session("lnk")="lnk05" img = server.mappath("loja/"&Rs("url_ImgG")) if gfxSpex(img, w, h, c, strType) = true then w = w h = h end if descricao = Rs("descricao") str_conteudo = split(Rs("variaveis"),"#") detalhe = str_conteudo(0) modelo = str_conteudo(1)%> Projeto CEL - Casa Esperança e Liberdade para Animais Carentes
" onsubmit="return verificaCarrinho();">

<%while not rsM.eof if RsM("categoria") = categoria then%> <%else%> <%end if%> <%RsM.MoveNext Wend%>

" border="0">
','camiseta',0,<%=w%>,<%=h%>);">
<%if len(descricao) >= 500 then%>
 Detalhes do Produto: 
<%if detalhe <> "" then str_detalhe = split(detalhe,";") if ubound(str_detalhe) > 0 then%> <%else str_campos = split(detalhe,"|")%> <%end if else %> <%end if %>
Modelo: 
Tamanho: 
Modelo: 
Quantidade: 

<%end if%>
<%=Rs("produto")%>
R$ <%=Rs("preco")%>

<%=TextoForm(descricao)%>

<%if len(descricao) < 500 then %>
 Detalhes do Produto: 
<%if detalhe <> "" then str_detalhe = split(detalhe,";") if ubound(str_detalhe) > 0 then%> <%else str_campos = split(detalhe,"|")%> <%end if else %> <%end if %>
Modelo: 
Tamanho: 
Modelo: 
Quantidade: 



','Recomende','no','460','300');"> <%end if %>
« voltar
<%call fecha_conexao Set Rs = nothing Set RsM = nothing%>