<% If Request("Ir") & "" = "ProdutosDetalhes" Then CodProduto = Iif(IsNumeric(Request("produto") & ""), Request("produto"), 0) If CodProduto = 0 Then Response.Redirect("Index.asp") End If sSql = " Select ProNome, ProResumo, ProPalavras " _ & " From Produtos " _ & " Where ProCodigo = " & CodProduto Set RsProduto = Server.CreateObject("ADODB.RecordSet") RsProduto.Open sSql, Conn, 0, 1 If Not RsProduto.EOF Then TituloPagina = RsProduto("ProNome") MetaDescription = Replace(RsProduto("ProResumo"), vbNewLine, " ") ' MetaAbstract = Replace(RsProduto("ProResumo"), vbNewLine, " ") MetaAbstract = RsProduto("ProNome") MetaKeywords = Replace(RsProduto("ProPalavras"), vbNewLine, " ") End If RsProduto.Close Set RsProduto = Nothing Else If Request("Ir") & "" = "Rastreador" Then CodProduto = Iif(IsNumeric(Request("produto") & ""), Request("produto"), 0) If CodProduto = 0 Then Response.Redirect("Index.asp") End If sSql = " Select ProNome, ProResumo, ProPalavras " _ & " From Produtos " _ & " Where ProCodigo = " & CodProduto Set RsProduto = Server.CreateObject("ADODB.RecordSet") RsProduto.Open sSql, Conn, 0, 1 If Not RsProduto.EOF Then TituloPagina = RsProduto("ProNome") MetaDescription = Replace(RsProduto("ProResumo"), vbNewLine, " ") ' MetaAbstract = Replace(RsProduto("ProResumo"), vbNewLine, " ") MetaAbstract = RsProduto("ProNome") MetaKeywords = Replace(RsProduto("ProPalavras"), vbNewLine, " ") End If RsProduto.Close Set RsProduto = Nothing Else ' TituloPagina = "Equipamentos para Espionagem - A Loja do Detetive Particular - celulares especiais e monitorados, câmeras ocultas, equipamentos de gravação ambiental e telefônica, equipamentos exclusivos de gravação" TituloPagina = "Equipamentos para Espionagem / Contra-espionagem" ' MetaDescription = "Equipamentos para Espionagem - A Loja do Detetive Particular - celulares especiais e monitorados, câmeras ocultas, equipamentos de gravação ambiental e telefônica, equipamentos exclusivos de gravação" MetaDescription = "Equipamento de Espionagem. Equipamento Celular Espião, monitoramento de celulares, gravadores, equipamento de gravação oculta para celulares, programas para celular, softwares, escuta telefônica,ambiental" ' MetaAbstract = "Equipamentos para Espionagem - A Loja do Detetive Particular - celulares especiais e monitorados, câmeras ocultas, equipamentos de gravação ambiental e telefônica, equipamentos exclusivos de gravação" MetaAbstract = "Equipamentos contra-Espionagem" ' MetaKeywords = "Equipamentos para Espionagem - A Loja do Detetive Particular - celulares especiais e monitorados, câmeras ocultas, equipamentos de gravação ambiental e telefônica, equipamentos exclusivos de gravação" MetaKeywords = "Equipamentos para Espionagem contra-espionagem,escuta ambiental, para espionar, equipamento gravação celular, monitoramento, software espião para apple iphone, software espião para blackberry, programa espião para apple iphone, programa espião para apple blackberry, programa espião para apple android, programa espião para apple windows mobile, monitorar celular,ambiente, escuta ambiente, celular espião, celular espia, movil espia, escuta telefonica, grampo telefônico, grampo de celular, gravação telefônica, loja detetives, detetive, escuta de celular, spyphone" End If End If %> <%=TituloPagina%>
 
 
 
<% sSqlTP = " Select Distinct TP.TPCodigo, TPNome " _ & " From TiposProdutos TP, Produtos P " _ & " Where TP.TPCodigo = P.TPCodigo " _ & " And P.ProExibir = 1 " _ & " Order By TPNome Asc " Set RsTP = Server.CreateObject("ADODB.Recordset") RsTP.Open sSqlTP, Conn, 0, 1 If RsTP.EOF Then %> <% Else QtdTipos = 0 While Not RsTP.EOF sSqlMarcas = " Select Distinct M.MarCodigo, MarNome, ProNome, ProCodigo " _ & " From Marcas M, Produtos P " _ & " Where M.MarCodigo = P.MarCodigo " _ & " And P.TPCodigo = " & RsTP("TPCodigo") _ & " And P.ProExibir = 1 " _ & " Order by ProNome Asc, MarNome Asc " Set RsMarcas = Server.CreateObject("ADODB.RecordSet") RsMarcas.Open sSqlMarcas, Conn, 0, 1 %> <% RsMarcas.Close Set RsMarcas = Nothing QtdTipos = QtdTipos + 1 RsTP.MoveNext Wend End If RsTP.Close Set RsTP = Nothing %>
Não há produtos cadastrados em nosso sistema.
<% If CInt("0" & RsTP("TPCodigo")) = 4 Or CInt("0" & RsTP("TPCodigo")) = 6 Then %> <% End If While Not RsMarcas.EOF If Len(RsMarcas("ProNome")) <= 30 Then NomeProduto = RsMarcas("ProNome") Else NomeProduto = Left(RsMarcas("ProNome"), 30) & "..." End If %> <% RsMarcas.MoveNext Wend If CInt("0" & RsTP("TPCodigo")) = 6 Then %> <% End If %>
 
 
 
 
  São José do Rio Preto, SP, <%=FormatDateTime(Now(), 1)%>
Busca:
 
<% If Request("Ir") & "" = "" Then ConProdAleatorios = RetornaValor("Select ConProdAleatorios From Configuracoes") If CBool(ConProdAleatorios) Then sSql = " Select P.ProCodigo, ProNome, ProDescricao, ProValor, M.MarNome " _ & " From Produtos P, Marcas M " _ & " Where P.MarCodigo = M.MarCodigo " _ & " And ProExibir = 1 " _ & " Order by RAND() " _ & " Limit 11 " Else sSql = " Select P.ProCodigo, ProNome, ProDescricao, ProValor, M.MarNome " _ & " From Produtos P, Marcas M, Configuracoes C " _ & " Where P.MarCodigo = M.MarCodigo " _ & " And (P.ProCodigo = C.ConProd1 " _ & " Or P.ProCodigo = C.ConProd2 " _ & " Or P.ProCodigo = C.ConProd3 " _ & " Or P.ProCodigo = C.ConProd4 " _ & " Or P.ProCodigo = C.ConProd5 " _ & " Or P.ProCodigo = C.ConProd6 " _ & " Or P.ProCodigo = C.ConProd7 " _ & " Or P.ProCodigo = C.ConProd8 " _ & " Or P.ProCodigo = C.ConProd9) " End If Set RsProdutos = Server.CreateObject("ADODB.Recordset") RsProdutos.Open sSql, Conn, 0, 1 %> <% End If %>
 
Parceiros | Mais Vendidos

 
PRODUTOS EM DESTAQUE
 
  <% If Request("Ir") & "" = "" Then If RsProdutos.EOF Then %> <% Else %> <% End If Else Arquivo = Server.MapPath(".") & "\" & Request("Ir") & ".asp" If LCase(Request("Ir")) & "" = "index" Or Not ExisteArquivo(Arquivo) Then Response.Redirect("Index.asp") Else %> <% End If End If %>
Não há produtos cadastrados em nosso sistema.
<% linha = 1 While Not RsProdutos.EOF For p = 1 To 3 If linha <> 1 And p = 1 Then %> <% End If NomeFoto = RetornaValor("Select PFNomeFoto From ProdutosFotos Where PFExibir = 1 And ProCodigo = " & RsProdutos("ProCodigo") & " Order by PFCodigo Asc") SrcFoto = Iif(NomeFoto & "" <> "", "Fotos/Produtos/" & RsProdutos("ProCodigo") & "/" & "Pq_" & NomeFoto, "img/img_nao_disp_pq.gif") %> <% RsProdutos.MoveNext If linha = 1 And p = 2 Then Exit For End If If RsProdutos.EOF Then Exit For ElseIf p = 3 Then %> <% End If Next %> <% linha = linha + 1 Wend %>
Celular Espião
Rastreador Baby SatCelular Espião
Celular Espião
Celular EspiãoCelular Espião
">
" class="texto"><%=RsProdutos("ProNome")%>Celular Espião
 
<%=Server.Execute(Request("Ir") & ".asp")%>
 
   
   
 
 
 
Rastreamento   Rastreador GPS
 
Atendimento de segunda a sexta-feira das 9h às 18h.
E-mail: contato@equipamentosespionagem.org
Rastreador Baby Sat
<% Conn.Close Set Conn = Nothing %>