Legionáriors
-
Total de itens
158 -
Registro em
-
Última visita
Tudo que Legionáriors postou
-
Boa noite pessoal, Vou reativar o tópico poi9s ainda estou precisando adaptar o famoso Próximo - Anterior no script que tenho não poder ser outro quero adaptar neste mesmo que postei porém depois de passado algum tempo do tópico postado ouveram algumas alterações no script e gastaria de saber se algums dos amigos poderia encarecidamente me ajudar nesta terafa pois já pesquisei no fórum mas nada do que vi consegui aplicar. Desculpem minha ignorancia mas sou sincero. Abraço a todos. Código: <body style="background-color: transparent"> <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Projetos\Videobluemix\banco\loja.mdb" sql = "SELECT ALL * FROM produtos ORDER BY Rnd(Int(Now()*[id])-Now()*[cat_id])" Set rs = objConn.Execute(sql) 'numero de colunas col=3 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while not rs.eof %> <table valign=top width=205 border="1" cellspacing="2" cellpadding="7"> <tr> <td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b><%response.write rs ("nome")%><b></td></tr> <td align="center"><center><a href="detalhe_acervo.asp?id=<%=rs("id")%>" target="_self"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="100" border="0" alt="Clique na imagem e veja os detalhes"/></a></tr> <tr> <td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b>» Locação R$: <%response.write formatnumber (rs("preço"),2)%></b> <br><font face="verdana" size="1" color="white"><b>» Áudio: <%response.write rs ("condicoes")%><b> <br><font face="verdana" size="1" color="white"><b>» Categoria: <%response.write rs ("descricaop")%><b></td></tr> </tr> </table> <% 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> Legionario.
-
Bom dia, beleza Rafael valeu pela ajuda vou testar aqui! Abraço. Legionario.
-
Boa noite pessoal, Alguém sabe como colocar a seguinte instrução (listaprod.asp?lista=categoria&cat_id=5&cat_nome=Audio) dentro de uma include e faze-la funcionar??? Obrigado a todos que puderem ajudar. Legionario Dá o seguinte erro: Tipo de erro: Active Server Pages, ASP 0126 (0x80004005) O arquivo de inclusão 'listaprod.asp?lista=categoria&cat_id=5&cat_nome=Audio' não foi encontrado. /Projetos/Lojas Adri/Projeto Lojas Adri/capa_audio.asp, line 124
-
Bom dia, Bareta, ,que tipo de parâmetros eu poderia passar aos frames ou iframes para que funcionasse da maneira que eu quero? Obrigado pela ajuda. Legionario
-
Boa noite Rafael, Já olhei alguma coisa mas na realidade é o seguinte, Temnho um site em que se faz necessário que o cliente clique com o botão direito do mouse sobre o produto e ao copiar o link e coloca-lo em outra página ele abra aquele produto mas com o site inteiro não somente o produto como neste axemplo: http://www.lojasadri.com.br/detalhe_produto_capa.asp?id=221 Se o que tem neste link for colocado no navegador vai abrir o produto mas com um fundo branco sem o resto do site pois eu utilizo frames e iframes e preciso do link completo para que os vendedores da loja possam copiar os links e passalos aos clientes que pedirem entendem? Estava tentando um movenext pois daí eu colocaria um link catálogo na página e neste não utilizaria nem frame nem iframe mas teria que mexer na estrutura do site. Não sei mas acredito que estou indo pelo caminho mais dificil mas além de ter urgencia não sou muito bom com asp para fazer algo mais avançado. Bom acho que é isso... Abraço Legionario
-
Boa noite pessoal, Tenho o seguinte código: <% 'declarando objetos dim sql, objConn, rs SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Projetos\Lojas Adri\Projeto Lojas Adri\banco\loja.mdb" sql = "SELECT ALL * FROM produtos ORDER BY Rnd(Int(Now()*[id])-Now()*[cat_id])" Set rs = objConn.Execute(sql) 'numero de colunas col=3 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "<table><tr><td>" 'iniciamos o loop´ while not rs.eof %> <table width="100%" border="0" cellspacing="7" cellpadding="3"> <tr> <td width="567"><center><a href="detalhe_mais_produtos.asp?id=<%=rs("id")%>" target="principal"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' width="100" border="0" alt="Clique no produto para ver sua descrição"></a></tr> <tr> <td style="border:0;position:relative; left:0; top:10;"><center><font face="verdana" size="1" color="black"><b><%response.write rs ("nome")%><b></td></tr> <td style="border:0;position:relative; left:0; top:0;"><center><font face="verdana" size="3" color="red"><b>R$ <%response.write formatnumber (rs("preço"),2)%></b></td></tr> <td style="border:0;position:relative; left:0; top:-10;"><center><font face="verdana" size="1" color="black"><b><%response.write rs ("condicoes")%><b></td></tr> </tr> </table> <% 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "</td><tr><td>" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write "</td><td>" 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "</td></tr></table>" end if rs.close set rs=nothing %> Preciso fazer com que ele liste 9 itens e crie automáticamente um link para uma próxima página caso tenha mais de 9 itens a serem listados no banco (que sei que existem mais de 9 claro) preciso que fique desta forma + ou -: <<Anterior 1 2 3 4 5 6 7 8 9 10 Próximo>> Agradeço a ajuda de todos que puderem. Abraço. Legionário
-
Boa noite pessoal! Afinal funcionou!!!!!!!! A opção que o Jonathan postou funcionou finalmente!!!!!! <img src='../images/<%=lista_produtos("imagem")%>' width="130" border=0 alt="Clique no produto para ver sua descrição"></a></td> Abraço a todos que ajudaram e principalmente ao Jonathan valeu velho! Legionario
-
Boa noite pessoal do fórum, Um dos sites que administro foi invadido por um hacker não uma vez mas diversas vezes e gostaria de saber se há alguém que tenha um script que possa ser adaptado a qualquer site via include ou outra opção qualquer pois mesmo o estrago não sendo grande coisa é muito chato ter alguém desconhecido mexendo na parte administrativa do seu site e hj foi um susto amanhã pode ser um desastre. Eu nunca precisei trabalhar com isso então venho pedir a ajuda dos amigos daqui para resolver esse problema. Abraço a todos! Att, Legionario.
-
Pessoal boa tarde, O negócio é o seguinte... Sou administrador de alguns sites e a alguns dias tive um dos sites que administro invadido por um haker que deixou a seguinte mensagem... ... Administrador do Site: Favor arrumar a opção de SQL Injeção em seu site... Essa opção da acesso a Root ( como dono ) do site... Assim.. Todos que tentarem entrar no Site por SQL Injeção irão conseguir... Eu lhes recomendo que arrume isso o mais breve possivel.. Para evitar transtornos maiores... Pois alguns Crackers se aproveitam desse tipo de vulnerabilidade para criar paginas falsas de login e conseguem capturar as suas senhas entre os outros usuários... Bom.. Lembrando... "Quem invade pra prejudar as pessoas são os CRACKERS, os HACKERS ajudam as pessoas... Eles mostram as vulnerabilidades no intuito de ajudar..." Então.. Fique com deus... E boas vendas para vocês... Alias... Os seus biscoitos são bem deliciosos... By: LDL;D Peso: 1 Gostaria de saber se esta é a parte certa do fórum para este tipo de pergunta e se vocês podem me informar uma maneira de isso não acontecer mais utilizando um script de segurança ou coisa parecida. Se o post foi colocado no local errado por favor me desculpem e movam o local adequado. Abraço a todos
-
Mais um erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'rs' /Projeto Lojas Adri/Novo Layout/resultado.asp, line 54 abraço. Legionario.
-
Bhá, Não testei ainda mas este "rs" não entra como uma variavel e não tem que ser declarada? Já tentei colocar um response.write com o rs e deu erro. Vou testar e ver se funciona, Valeu Legionario.
-
Bom dia, É realmente ontem mais uma vez não consegui fazer com que a imagem aparecesse... Já tentei diversas variaveis mas nada adianta. Se alguém poder olhar o código que postei e verificar se há algo errado agradeço... Abraço. Legionario
-
Segue: <td align="center"><center><a href="detalhe_produto_capa.asp?id=<%=rs("id")%>" target="principal"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="110" border="0"/></a></tr> Mas pode ser que algum outro parâmetro esteja diferente nos códigos. Valeu! Legionario.
-
Rafael, Estão armazenadas em uma pasta e não no db é isso que eu não consigo entender porque está dando erro porque tenho outras páginas funcionando e esta não quer funcionar por nada... Valeu. Legionario.
-
Boa tarde, O link está correto pois quando clico na imagem abre a descrição do produto o que não aparece á a imagem mesmo e já tentei diversas formas inclusive a que você sugeriu será que há alguma outra coisa que eu possa fezer??? Valeu a ajuda.... Legionario.
-
Pessoal, Está funcionando beleza. Agora só não consigo exibir as imagens nespa mesma página a imagem está lá mas parce que não quer aparecer não entendo já tentei de tudo tbém... Abraço.
-
Rafael em que parte devo aplicar o if rs.eof...??? Valeu a ajuda. Jonathan ocorreu o seguinte erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /Projeto Lojas Adri/Novo Layout/resultado.asp, line 69 Wend Valeu tbém. Abraço.
-
Bom dia pessoal, consegui adaptar outro código e fiz funcionar o motor de busca mas o que acontece agora com este script que vou postar abaixo é que em alguns produtos que são listados aparece o seguinte erro: Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /Projeto Lojas Adri/Novo Layout/detalheprod.inc, line 57 Lembrando é somente em alguns produtos. Ps. Não consegui fazer aparecer as imagens tbém tentei de tudo e não consegui... O script: <link rel=stylesheet href=loja.css type=text/css> <table border=0 width=100% cellspacing="0" cellpadding="10"> <% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\Novo Layout\banco\loja.mdb" lojaDB.open %> <% Dim lista_produtos,malha1,temp1,lista_categoria,lista,cat_id Select Case Request.QueryString("lista") Case "busca" Select Case Request.QueryString("campo") Case "todos" set lista_categoria = lojaDB.Execute("SELECT id FROM categorias WHERE nome LIKE '%" & Request.QueryString("procurar") & "%'") If lista_categoria.EOF Then cat_id = "a" Else cat_id = lista_categoria("id") End If set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE id LIKE '%" & Request.QueryString("procurar") & "%' OR cat_id LIKE '%" & cat_id & "%' OR cat_id LIKE '%" & Request.QueryString("procurar") & "%' OR nome LIKE '%" & Request.QueryString("procurar") & "%' OR descricaop LIKE '%" & Request.QueryString("procurar") & "%' OR descricaog LIKE '%" & Request.QueryString("procurar") & "%' OR preço LIKE '%" & Request.QueryString("procurar") & "%' OR imagem LIKE '%" & Request.QueryString("procurar") & "%' OR disp LIKE '%" & Request.QueryString("procurar") & "%'") Case "cat_id" set lista_categoria = lojaDB.Execute("SELECT id FROM categorias WHERE nome LIKE '%" & Request.QueryString("procurar") & "%'") If lista_categoria.EOF Then cat_id = "a" End If set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id LIKE '%" & cat_id & "%'") Case Else set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE " & Request.QueryString("campo") & " LIKE '%" & Request.QueryString("procurar") & "%'") End Select If lista_produtos.EOF Then %> <tr width=100%><td width=100%><h5>Nenhum resultado para esta pesquisa!</h5></td></tr> <% lista = "não" End If Case "order" set lista_produtos = lojaDB.Execute("SELECT * FROM produtos ORDER BY "& Request.QueryString("orderby") & " " & Request.QueryString("ord")) If lista_produtos.EOF Then %> <tr width=100%><td width=100%><h5>Nenhum resultado para esta pesquisa!</h5></td></tr> <% lista = "não" End If Case Else lista = "não" End Select If Not (lista = "não") Then %> <table border=0 width="100%" cellspacing="20" cellpadding="10"> <% malha1 = "sim" temp1 = 0 While not lista_produtos.EOF set lista_categoria = lojaDB.Execute("SELECT nome FROM categorias WHERE id=" & lista_produtos("cat_id")) %> <tr width=100% class=<%=malha1%>><td align=center><a href="detalheprod.asp?prod_id=<%=lista_produtos("id")%>"> <img src=./images/<%=imagem%> width="130" border=0 alt="Clique no produto para ver sua descrição"></a></td> <td><% If lista_categoria.EOF Then %> <font color=red><b>Sem Categoria</b></font> <% Else End If %> <b>Departamento: <%=lista_categoria("nome")%><br><br><b><%=lista_produtos("nome")%><br><font color=red><b> por apenas R$ <%=formatnumber(lista_produtos ("preço"),2)%></td> <% temp1 = temp1 + 1 lista_produtos.MoveNext If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If Wend %> </table> <tr width=100%><td><font size=1 face=verdana color=white>aaaa<font size=2 face=verdana color=black><b>Total de produtos nesta pesquisa: <%=temp1%></td></tr> <% End If %> </font> </table> Obrigado a quem poder ajudar, abraço. Legionario.
-
Outro erro... Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /Projeto Lojas Adri/Novo Layout/topo.inc, line 9
-
Novo erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01F4) Variável não definida: 'sql' /Projeto Lojas Adri/Novo Layout/topo.inc, line 9 Legionario.
-
Boa tarde pessoal, fiz algumas modificações mas continua dando erro poderiam me ajudar??? <% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") set rs = server.CreateObject ("adodb.recordset") lojaDB.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\Novo Layout\banco\loja.mdb" 'lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\Novo Layout\banco\loja.mdb" 'lojaDB.open sql="Select id, nome from categorias order by nome" rs.open sql1,conn,3,3 'response.write("Escolha a categoria: ") 'response.write("<select name='categorias'>")' 'do while not rs.EOF 'response.write("<option value='" & rs("id") & "'>" & rs("nome") & "</option>") 'rs.MoveNext 'loop 'response.write("</select>") %> <center> <table class=topo border=0 width="720" cellpadding=2 cellspacing=2> <td valign=middle align=right width="720"><p> <form action=listaprod.asp method=query target="principal"> <font face="verdana" size="2" color="white"><b> Buscar <input type=text size=20 name=nome> em <input type=text size=20 name=nome> <select name="atendimento" > <option value=""> Escolha uma categoria</option> <%do while not rs.EOF%> <option value=<%= rs("id")%>><%= rs("nome")%> </option> <%rs.movenext loop%> </select> <input type=button value=Buscar onClick="submit();"> <input type=hidden name=lista value=busca> </form></p> </td> </tr> </table> Retorna o erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01F4) Variável não definida: 'rs' /Projeto Lojas Adri/Novo Layout/topo.inc, line 4 Obrigado desde já! Legionario.
-
Olá Jonathan, Não entendi o porque de uma segunda página pois preciso que tudo fique junto em uma só página agrupado como um motor de busca no site. Fiz desta forma: <% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\Novo Layout\banco\loja.mdb" lojaDB.open set rs = lojaDB.Execute("Select id, nome from categorias order by nome") response.write("Escolha a categoria: ") response.write("<select name='categorias'>")' do while not rs.EOF response.write("<option value='" & rs("id") & "'>" & rs("nome") & "</option>") rs.MoveNext loop response.write("</select>") %> <center> <table class=topo border=0 width="720" cellpadding=2 cellspacing=2> <td valign=middle align=right width="720"><p> <form action=listaprod.asp method=query target="principal"> <font face="verdana" size="2" color="white"><b> Buscar <input type=text size=20 name=nome> em <input type=text size=20 name=nome> <input type=button value=Buscar onclick="submit();"> <input type=hidden name=lista value=busca> </form></p> </td> </tr> </table> Deu o erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x1cc Thread 0x88c DBC 0x17654bc Jet' do Registro. /topo.inc, line 5 E não cheguei a usar todo o código que você passou porque o que você se refere a segunda página eu não sei onde colocar... Obrigado pela ajuda amigo. Legionario.
-
Bom dia pessoal, Tenho o seguinte código: <% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\banco\loja.mdb" lojaDB.open %> <center> <table class=topo border=0 width="720" cellpadding=2 cellspacing=2> <td valign=middle align=right width="720"><p> <form action=listaprod.asp method=query target="principal"> <font face="verdana" size="2" color="white"><b> Buscar <input type=text size=20 name=nome> em <input type=text size=20 name=nome> <input type=button value=Buscar onclick="submit();"> <input type=hidden name=lista value=busca> </form></p> </td> </tr> </table> Preciso que este código além de realizar a busca que já faz com perfeição tenha um campo select para que o usuário possa indicar no dropdown a categoria que deseja pesquisar. No banco existe uma tabela com o nome de categorias mas não é a mesma tabela onde estão os cadastrados os produtos. Não consigo nada que funcione para executar este script corretamente, será que algum dos amigos do Fórum pode me ajudar? Obrigado e abraç oa todos! Legionario
-
Boa noite pessoal, Será que alguém sabe de um script que tenha as seguintes caracteristicas: O Internauta preenche um formulário, Ao clicar em [enviar] aparecem os dados que ele digitou para conferencia, Ao clicar em [confirma] os dados dele são cadastrados no BD e enviados por e-mail para mim. Com envio de solicitação de ativação via email. Abraço Obrigado a todos. Legionariors.
-
Ok amigo, muito obrigado pelas dicas foram muito úteis Abraço.