<% Dim acao acao = Request.QueryString("acao") tpv = Request.QueryString("tpv") If (acao = "") Then acao = "ListarCategorias" End If If (tpv = "") Then tpv = 1 End If 'ListarCategorias 'ListarProdutos 'MostrarProduto 'tpv = Tipo Valor (1 - Classe Alta / 2 - Classe Media / 3 - Classe Baixa) %> Detetive Particular, Celular espião
Buscar Equipamento:

Leia aqui algumas reportagens sobre espionagem.
<% If (tpv = 1) Then %> <% Else If (tpv = 3) Then %> <% End If End If %>

<% If (acao = "ListarCategorias") Then sql = "Select * from categoria" Set consulta = Conn.Execute(sql) If (consulta.eof) Then response.write "
Não existe nenhuma categoria cadastrada no sistema.
" Else temp = "" & _ "" & _ "" &_ "" response.write temp While Not consulta.EOF temp = "" temp = temp & "" temp = temp & "" response.write temp consulta.Movenext 'move para o proximo registro Wend consulta.close Conn.close Set consulta = Nothing Set Conn = Nothing temp = "" & _ "" &_ "" & _ "" & _ "" &_ "" &_ "
Selecione uma categoria abaixo para visualizar nossos produtos
+ "&consulta("NomeCategoria")&"
 
" & _ "Aguarde link com equipamentos importados top de linha, para pronta entrega em caso de venda ou aluguel.

" &_ "* Micro Câmeras embutidas em diversos tipos de pastas.
" &_ "* Micro Câmera disfarçada em caneta.
" &_ "* Modificadores de voz.
" &_ "* Spray paralizante para defesa pessoal.
" &_ "* Equipamentos para varreduras em linhas telefônicas.
" &_ "Já dispomos dos equipamentos descritos acima, aguarde o desenvolvimento da seção detalhes.
" &_ "
" response.write temp response.write "

Espião SIP - Todos os direitos reservados
" End If End If If (acao = "ListarProdutos") Then codigocategoria = Request.QueryString("codigocategoria") tpv = Request.QueryString("tpv") sql = "Select * from Produto Where (IdCategoriaProduto="&codigocategoria&") and (IdCategoriaPrecoProduto="&tpv&")" Set consulta = Conn.Execute(sql) If (consulta.eof) Then response.write "

" response.write "
Não existe nenhum produto cadastrado para esta categoria.
" response.write "

" response.write "
" Else temp = "" & _ "" & _ "" &_ "" & _ "" & _ "" &_ "" response.write temp pg = 1 response.write "" consulta.MoveFirst While (Not consulta.EOF) If (pg <= 2) Then response.write "" pg = pg + 1 consulta.Movenext 'move para o proximo registro Else response.write "" response.write "" response.write "" pg = 1 End IF Wend consulta.close Conn.close Set consulta = Nothing Set Conn = Nothing response.write "
Clique sobre o produto desejado para visualizar a descrição do mesmo.
 

Mais Detalhes
Mais Detalhes
"&consulta("NomeProduto")&"
"&consulta("PrecoProduto")&"
 
" response.write "

" response.write "
" End If End If If (acao = "MostrarProduto") Then codigoproduto = Request.QueryString("codigoproduto") tpv = Request.QueryString("tpv") sql = "Select * from Produto Where (CodigoProduto="&codigoproduto&")" Set consulta = Conn.Execute(sql) response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
 
"&consulta("NomeProduto")&"

" response.write "Mais Detalhes
" response.write ""&consulta("PrecoProduto")&"
" response.write "COMPRAR

" response.write "Ver mais Equipamentos...

" response.write "Veja aqui como Pagar/Receber
" response.write "
"&consulta("DescricaoProduto")&"

" response.write "
" response.write "
" response.write "Ver mais Equipamentos..." response.write "  |  " If (tpv = 1) Then response.write "Voltar para Pagina Inicial
" Else If (tpv = 3) Then response.write "Voltar para Pagina Inicial" End If End If response.write "
" response.write "
" response.write "
" response.write "
" consulta.close Conn.close Set consulta = Nothing Set Conn = Nothing End If If (acao = "buscarexec") Then buscarpor = Trim(Request.Form("buscarpor")) tpv = Request.QueryString("tpv") sql = "Select Produto.*, Categoria.*, CategoriaPreco.* from Produto, Categoria, CategoriaPreco Where (Produto.DescricaoProduto like '%"&buscarpor&"%') and (Produto.IdCategoriaPrecoProduto = "&tpv&") and (Produto.IdCategoriaProduto = Categoria.CodigoCategoria) and (Produto.IdCategoriaPrecoProduto = CategoriaPreco.CodigoCategoriaPreco)" Set consulta = Conn.Execute(sql) If (consulta.eof) Then response.write "

" response.write "
Desculpe não foi encontrado nenhum produto com a palavra "&buscarpor&".
" response.write "

" response.write "
" response.write "

" Else temp = "" & _ "" & _ "" &_ "" & _ "" & _ "" &_ "" & _ "" & _ "" &_ "" response.write temp pg = 1 response.write "" consulta.MoveFirst While (Not consulta.EOF) If (pg <= 2) Then response.write "" pg = pg + 1 consulta.Movenext 'move para o proximo registro Else response.write "" response.write "" response.write "" pg = 1 End IF Wend consulta.close Conn.close Set consulta = Nothing Set Conn = Nothing response.write "
Resultado da busca.
Clique sobre o produto desejado para visualizar a descrição do mesmo.
 
Mais Detalhes
"&consulta("NomeProduto")&"
"&consulta("PrecoProduto")&"
 
" response.write "

" response.write "
" response.write "

" End If End If %>