- Tudo em Telhas" /> <% dim conexao call abre_conexao set objRs=server.createobject("adodb.recordset") if request("pesquisa")="" then 'strSQL="SELECT modelos.idmodelo, modelos.idmarca, modelos.idtipo, modelos.modelo, modelos.img, modelos.especificacao, modelos.imagem, marcas.marca FROM modelos INNER JOIN marcas ON modelos.idmarca = marcas.idmarca WHERE idtipo="&request.querystring("id")&" ORDER BY modelos.imagem" strSQL="SELECT modelos.idmodelo, modelos.idmarca, modelos.idtipo, modelos.modelo, modelos.img, modelos.especificacao, modelos.imagem, marcas.marca, medidas.medida FROM ((modelos INNER JOIN marcas ON modelos.idmarca = marcas.idmarca) INNER JOIN medidas ON medidas.id_medida=modelos.id_medida) WHERE idtipo="&request.querystring("id")&" ORDER BY MODELOS.IMAGEM, modelos.ORDEM" str_titulo = request("tit") else 'strSQL="SELECT modelos.idmodelo, modelos.idmarca, modelos.idtipo, modelos.modelo, modelos.img, modelos.especificacao, modelos.imagem, marcas.marca, tipos.tipo FROM ((modelos INNER JOIN marcas ON modelos.idmarca = marcas.idmarca) INNER JOIN tipos ON modelos.idtipo = tipos.idtipo) INNER JOIN categorias ON tipos.idcategoria = categorias.idcategoria WHERE (((modelos.modelo) Like '%"& request("pesquisa")&"%')) OR (((marcas.marca) Like '%"& request("pesquisa")&"%')) OR (((tipos.tipo) Like '%"& request("pesquisa")&"%')) OR (((categorias.categoria) Like '%"& request("pesquisa")&"%')) ORDER BY modelos.imagem ,modelos.modelo" 'strSQL="SELECT modelos.idmodelo, modelos.idmarca, modelos.idtipo, modelos.modelo, modelos.img, modelos.especificacao, modelos.imagem, marcas.marca, tipos.tipo, medidas.medida FROM ((modelos INNER JOIN marcas ON modelos.idmarca = marcas.idmarca) INNER JOIN tipos ON modelos.idtipo = tipos.idtipo) INNER JOIN medidas ON medidas.id_medida=modelos.id_medida INNER JOIN categorias ON tipos.idcategoria = categorias.idcategoria WHERE (((modelos.modelo) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) OR (((marcas.marca) Like '%"& request("pesquisa")&"%')) OR (((tipos.tipo) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) OR (((categorias.categoria) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) ORDER BY MODELOS.IMAGEM, modelos.ORDEM" strSQL="SELECT modelos.idmodelo, modelos.idmarca, modelos.idtipo, modelos.modelo, modelos.img, modelos.especificacao, modelos.imagem, marcas.marca, tipos.tipo, medidas.medida FROM (((modelos INNER JOIN medidas ON modelos.id_medida = medidas.id_medida) INNER JOIN marcas ON modelos.idmarca = marcas.idmarca) INNER JOIN tipos ON modelos.idtipo = tipos.idtipo) INNER JOIN categorias ON tipos.idcategoria = categorias.idcategoria WHERE (((modelos.modelo) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) OR (((marcas.marca) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) OR (((tipos.tipo) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) OR (((categorias.categoria) Like '%"& replace(request("pesquisa"),"'"," ")&"%')) ORDER BY MODELOS.IMAGEM, modelos.ORDEM" str_titulo = "Busca por " & request("pesquisa") end if 'response.write strsql 'response.end objRs.open strSQL, conexao, 3 if objRs.eof then if request("pesquisa")="" Then str_erro = "

No momento não há registro para esse tipo de produto.

" else str_erro = "

A pesquisa por "&request("pesquisa")&" não retornou registros,
tente novamente observando a sua correta sintaxe.

" end if 'objRs.close 'set objRs=nothing 'call fecha_conexao 'response.end end if %>
  <%=str_titulo%>


<% If str_erro="" Then %>
<% arrRS = objRS.GetRows objRS.Close numRegistros = Ubound(arrRS, 2) identificador=1 registroAtual=0 'do while not objRs.EOF do while registroAtual < numRegistros+1 and arrRS(6, registroAtual)=true 'if objRs("idcategoria")=1 then 'categoria=1 'else 'categoria=0 'end if %>
<%=arrRS(3, registroAtual)%>
Marca: <%=arrRS(7, registroAtual)%>
Medidas:
<% objRs.open "SELECT idproduto, medida FROM produtos WHERE medida <> 'unica' AND idmodelo = "&arrRS(0, registroAtual), conexao if objRs.eof then objRs.close objRs.open "SELECT idproduto FROM produtos WHERE medida = 'unica' AND idmodelo = "&arrRS(0, registroAtual), conexao response.write " Produto único" objRs.close else response.write "" objRs.close end if %>
Quant.:   <%=arrRS(8, registroAtual)%>
<%if arrRS(5, registroAtual)= true then%> <% end if %>
<% identificador=identificador+1 ' objRs.movenext registroAtual=registroAtual+1 'if objRs.eof then 'med="S" 'exit do 'end if if registroAtual=numRegistros+1 then med="S" exit do end if if arrRS(6, registroAtual)=false then med="S" exit do end if 'if objRs("idcategoria")=1 then 'categoria=1 'else 'categoria=0 'end if %>
<%=arrRS(3, registroAtual)%>
Marca: <%=arrRS(7, registroAtual)%>
Medidas:
<% objRs.open "SELECT idproduto, medida FROM produtos WHERE medida <> 'unica' AND idmodelo = "&arrRS(0, registroAtual), conexao if objRs.eof then objRs.close objRs.open "SELECT idproduto FROM produtos WHERE medida = 'unica' AND idmodelo = "&arrRS(0, registroAtual), conexao response.write " Produto único" objRs.close else response.write "" objRs.close end if %>
Quant.:   <%=arrRS(8, registroAtual)%>
<%if arrRS(5, registroAtual)= true then%> <% end if %>
<% identificador=identificador+1 registroAtual=registroAtual+1 if registroAtual=numRegistros+1 then exit do end if loop if med="S" then response.write "
" end if if registroAtual<>numRegistros +1 then %> <% end if while registroAtual <> numRegistros +1 %> <% identificador=identificador+1 registroAtual=registroAtual+1 wend set objRs=nothing call fecha_conexao %>
Descrição Medidas Quant.  
<%=arrRS(3, registroAtual)&" "&arrRS(7, registroAtual)%> <% objRs.open "SELECT idproduto, medida FROM produtos WHERE medida <> 'unica' AND idmodelo = "&arrRS(0, registroAtual), conexao if objRs.eof then objRs.close objRs.open "SELECT idproduto FROM produtos WHERE medida = 'unica' AND idmodelo = "&arrRS(0, registroAtual), conexao response.write " Produto único" objRs.close else response.write "" objRs.close end if %>
  <%=arrRS(8, registroAtual)%>

<% Else response.write str_erro End if %>