Ir para conteúdo
Fórum Script Brasil

WEBIER

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    27

  • Registro em

  • Última visita

Sobre WEBIER

WEBIER's Achievements

0

Reputação

  1. WEBIER
    Tenho o seguinte form: <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" U-File="../../_private/form_results.csv" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --> <p> <font face="Tahoma"><span style="font-size:8pt;"><b> Sessão: <select size="1" name="Classe" class="textbox" id="Classe"> <option value="Local">Local</option> <option value="Geral">Geral</option> <option value="Estadual">Estadual</option> <option value="Brasil">Brasil</option> <option value="Mundo">Mundo</option> </select>&nbsp;&nbsp;&nbsp;&nbsp; Categoria: <select size="1" name="Categoria" class="textbox" id="Categoria"> <option value="Politica">Politica</option> <option value="Geral">Geral</option> <option value="Esporte">Esporte</option> <option value="Religião">Religião</option> <option value="Politica">Politica</option> </select></b></span></font></p> <input type="submit" name="submit" value="Exibir"></p> </form> ai tenho a sequinte SQL que vai fazer uma filtragem dos dados baseado nos nomes escolhidos nas combobox Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/dados.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM noticias WHERE Classe = '" & Request.Form("Classe") & "' and Categoria = '" & Request.Form("Categoria") & "' ORDER BY id desc" RS.Open SQL, conn, 3 Minha duvida tá em como fazer para clicar no botão EXIBIR e ele executar essa SQL...
  2. WEBIER
    Fiz uma pergunta no forum de ASP e me encaminharam para cá: Olha ai: http://scriptbrasil.com.br/forum/index.php...mp;#entry581207 Trata-se de uma SQL que possuo e 2 combobox: As combobox são preenchidas assim: Sessão: <select size="1" name="Classe" class="textbox" id="Classe"> <option value="Geral">Geral</option> <option value="Local">Local</option> <option value="Estadual">Estadual</option> <option value="Brasil">Brasil</option> <option value="Mundo">Mundo</option> </select Categoria: <select size="1" name="Categoria" class="textbox" id="Categoria"> <option value="Geral">Geral</option> <option value="Politica">Politica</option> <option value="Esporte">Esporte</option> <option value="Religião">Religião</option> <option value="Politica">Politica</option> </select> e a SQL é assim: Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/dados.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM noticias WHERE Classe = " & Request.Form("Classe") & " and Categoria = " & Request.Form("Categoria") & " ORDER BY id desc" RS.Open SQL, conn, 3 O que eu quero? Quando eu escolher um nome em qualquer um dos 2 combobox ele vai ver o nome q escolhi e mostrar os dados, ou seja, quero que ele releia a SQL para ele pegar esse CLASSE ou CATEGORIA que escolhi e me mostrar os dados baseados nesses criterios.
  3. WEBIER
    Amigo, fiz conforme cito assim e agora não dar erro e nem resultado nenhum. Eu abrir meu banco de dados e tem no minino 10 registros com a CLASSE = LOCAL e a CATEGORIA = POLITICA olha meu codigo completo: <!-- #include file="config.inc" --><%session.LCID=1046%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Notícia</title> </head> <body> <table border="0" width="500" cellspacing="0" cellpadding="0" id="table1"> <tr> <td> <form method="POST" name="Form"> <p> <font face="Tahoma"><span style="font-size:8pt;"><b>Sessão: Categoria:</b></span></font></p> <p> <select size="1" name="Classe"> <option value="Local" selected>Local</option> <option value="Geral">Geral</option> <option value="Estadual">Estadual</option> <option value="Brasil">Brasil</option> <option value="Mundo">Mundo</option> </select> <select size="1" name="Categoria"> <option value="Politica" selected>Politica</option> <option value="Geral">Geral</option> <option value="Esporte">Esporte</option> <option value="Religião">Religião</option> <option value="Politica">Politica</option> </select></p> </form> </td> </tr> <tr> <td> <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * FROM noticias WHERE Classe = '" & Request.Form("Classe") & "' and Categoria = '" & Request.Form("Categoria") & "' ORDER BY id desc", DB Contar = 0 Do while not nt1.Eof tópico = nt1("tópico") Resumo = nt1("Resumo") Classe1 = nt1("Classe1") Classe = nt1("Classe") Data = nt1("Data") Data = RIGHT("0" & DAY(Data), 2) & "/" & RIGHT("0" & MONTH(Data), 2) & "/" & RIGHT(YEAR(Data), 2) Horas = nt1("Horas") Horas = Right("0" & DatePart("H",Horas),2) & ":" & Right("0" & DatePart("n",Horas),2) id = nt1("id") IF Contar > 10 Then exit do end if VarNoticia = Mid(tópico, 1, 70) %> <span style="font-size:8pt;"> <a target="conteudo" href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>'> <font face="Arial" color="red"><strong><%Response.Write Data%> | <%Response.Write Horas%></strong></font> <font face="Arial" color="black"> - <%Response.Write VarNoticia &"..."%></span></font></a><br> <% Contar = Contar + 1 nt1.Movenext Loop %> </td> </tr> </table> </div> </body> </html> Como tah descrito na primeira linha, descrevo o local do bd no config.inc <% Set DB = Server.CreateObject("ADODB.Connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("dados/dados.mdb") & ";" & _ "Persist Security Info=False" DB.Open(sConnection) %> na verdade ele tah trazendo nenhum registro... se eu coloca CLASSE = 'LOCAL' AND CATEGORIA = 'POLITICA' ele tráz Mas quero pode selecionar no combobox! Onde to errando?
  4. WEBIER
    Fiz uma pergunta no forum de ASP e me encaminharam para cá: Olha ai: http://scriptbrasil.com.br/forum/index.php...mp;#entry581207 Trata-se de uma SQL que possuo e 2 combobox: As combobox são preenchidas assim: Sessão: <select size="1" name="Classe" class="textbox" id="Classe"> <option value="Geral">Geral</option> <option value="Local">Local</option> <option value="Estadual">Estadual</option> <option value="Brasil">Brasil</option> <option value="Mundo">Mundo</option> </select Categoria: <select size="1" name="Categoria" class="textbox" id="Categoria"> <option value="Geral">Geral</option> <option value="Politica">Politica</option> <option value="Esporte">Esporte</option> <option value="Religião">Religião</option> <option value="Politica">Politica</option> </select> e a SQL é assim: Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/dados.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM noticias WHERE Classe = " & Request.Form("Classe") & " and Categoria = " & Request.Form("Categoria") & " ORDER BY id desc" RS.Open SQL, conn, 3 O que eu quero? Quando eu escolher um nome em qualquer um dos 2 combobox a pagina relever a SQL e mostrar os dados
  5. WEBIER
    isso ai, depois de postar a pagina, você faria assim: nt1.Open "SELECT * from noticias where Classe = " & Request.Form("Classe") & " and Categoria = " & Request.Form("Categoria") & " order by id desc", DB e imagino q os campos tem q tar entre aspas simples ne. sem refresha?? ai isso é com ajax. fiz conforme você falou: SQL = "SELECT * FROM noticias WHERE Classe = " & Request.Form("Classe") & " and Categoria = " & Request.Form("Categoria") & " ORDER BY id desc" Ai dar o seguinte erro: Script error detected at line 86. Source line: RS.Open SQL, conn, 3 Description: Erro de sintaxe (operador faltando) na expressão de consulta 'Classe = and Categoria ='.
  6. WEBIER
    tenho 2 combobox: <select size="1" name="Classe" class="textbox" id="Classe"> <option value="Geral">Geral</option> <option value="Local">Local</option> <option value="Estadual">Estadual</option> <option value="Brasil">Brasil</option> <option value="Mundo">Mundo</option> </select <select size="1" name="Categoria" class="textbox" id="Categoria"> <option value="Geral">Geral</option> <option value="Politica">Politica</option> <option value="Esporte">Esporte</option> <option value="Religião">Religião</option> <option value="Politica">Politica</option> </select> e tenho essa SQL: <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * from noticias where Classe = " & Classe & " and Categoria = " & Categoria & " order by id desc", DB e não deu certo! queria 2 coisas: -A SQL usar os nomes que estão nos combobox -Quando eu selecionar um nome no combobox ele automaticamente atualizar a página baseado naquele novo nome que escolhi no combobox
  7. WEBIER

    Cadastro com foto

    pergunta respondeu ao WEBIER de WEBIER em ASP

    hospedei na internet e não deu erro não! O problema era local mesmo, no servidor local de teste! Obrigado a todos! como marco esse tópico como resolvido?
  8. WEBIER

    Cadastro com foto

    pergunta respondeu ao WEBIER de WEBIER em ASP

    eu tire o "On error resume next" e deu o seguinte erro: Script error detected at line 14. Source line: objUpload.UseVirtualDir = true Description: Objeto necessário
  9. WEBIER

    Cadastro com foto

    uma questão postou WEBIER ASP

    Meu codigo: <% Dim ADOCnn Dim objUpload Dim strErro Dim strURLFOTO Dim strExtensao strErro = "" strURLFOTO = "" On error resume next Set objUpload = Server.CreateObject("Dundas.Upload.2") objUpload.UseVirtualDir = true objUpload.UseUniqueNames = True objUpload.Save "\Classificados\imagens\" if objUpload.Form("txtNome") = "" then strErro = strErro & " - NOME<br>" end if if objUpload.Form("txtTelefone") = "" then strErro = strErro & " - TELEFONE<br>" end if if objUpload.Form("txtEmail") = "" then strErro = strErro & " - E-MAIL<br>" end if if objUpload.Form("txtTitulo") = "" then strErro = strErro & " - TITULO<br>" end if if objUpload.Form("cboTipo") = "" then strErro = strErro & " - TIPO<br>" end if if objUpload.Form("txtDescricao") = "" then strErro = strErro & " - DESCRIÇÃO<br>" end if if objUpload.Files.Count > 0 then strURLFOTO = "\Classificados\imagens\" & objUpload.GetFileName(objUpload.Files(0).Path) strExtensao = objUpload.GetFileExt(objUpload.Files(0).Path) else strURLFOTO = "\Classificados\imagens\semfoto.jpg" end if If Err <> 0 or strExtensao <> "jpg" and strExtensao <> "gif" and strExtensao <> "bmp" Then %> <span class="texto"> <p style="margin-top: 0; margin-bottom: 0"><br> <font color="#CC0000"><b><font size="3">HOUVE UM ERRO NA HORA DE CARREGAR O ARQUIVO !!</font></b></font></p> <p style="margin-top: 0; margin-bottom: 0"><br> 2 - VERIFIQUE A EXTENS&Atilde;O DO ARQUIVO , SOMENTE IMAGENS S&Atilde;O PERMITIDAS (*.JPG , *.GIF , *.BMP )<br> 3 - SE NENHUM DESSES PASSOS RESOLVERAM , ENTRE EM CONTATO COM O SITE <BR> &nbsp;</p> <p style="margin-top: 0; margin-bottom: 0"><b> <a href=java script:history.back(-1)>VOLTAR</a></b></font> <% objUpload.FileDelete "\Classificados\Imagens\" & objUpload.GetFileName(objUpload.Files(0).Path) Set objUpload = Nothing Response.End() else Set ADOCnn = Server.CreateObject("ADODB.Connection") ADOCnn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("\Classificados\CLASSIFICADOS.MDB")) ADOCnn.Execute("INSERT INTO TAB_CLAS(CLAS_NOM,CLAS_TEL,CLAS_MAIL,CLAS_TIT,CLAS_TIPO,CLAS_FOTO,CLAS_DESC,CLAS_DATA) VALUES ('" & ucase(objUpload.Form("txtNome")) & "','" & objUpload.Form("txtTelefone") & "','" & objUpload.Form("txtEmail") & "','" & ucase(objUpload.Form("txtTitulo")) & "','" & objUpload.Form("cboTipo") & "','" & strURLFOTO & "','" & objUpload.Form("txtDescricao") & "',#" & Date() & "#)") Set ADOCnn = Nothing Set objUpload = Nothing Response.Redirect("classificado.asp") end if %> já conferir o banco de dados, a tabela, os campos, os objetos do form e a validação dos objetos e todos estao perfeitos.. os dados estão preenchidos corretamente nos objetos no form. mas sempre ele usa o primeiro IF (If Err <> 0 or strExtensao <> "jpg" and strExtensao <> "gif" and strExtensao <> "bmp" Then).... uma hora para testar deixei o primeiro IF somente assim (If Err <> 0 then) e continua somente no primeiro IF, ou seja, sempre a mesma msg: HOUVE UM ERRO NA HORA DE CARREGAR O ARQUIVO !! 2 - VERIFIQUE A EXTENSÃO DO ARQUIVO , SOMENTE IMAGENS SÃO PERMITIDAS (*.JPG , *.GIF , *.BMP ) 3 - SE NENHUM DESSES PASSOS RESOLVERAM , ENTRE EM CONTATO COM O SITE VOLTAR uma hora tire esse primeiro IF todo... deixei somente: Set ADOCnn = Server.CreateObject("ADODB.Connection") ADOCnn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("\Classificados\CLASSIFICADOS.MDB")) ADOCnn.Execute("INSERT INTO TAB_CLAS(CLAS_NOM,CLAS_TEL,CLAS_MAIL,CLAS_TIT,CLAS_TIPO,CLAS_FOTO,CLAS_DESC,CLAS_DATA) VALUES ('" & ucase(objUpload.Form("txtNome")) & "','" & objUpload.Form("txtTelefone") & "','" & objUpload.Form("txtEmail") & "','" & ucase(objUpload.Form("txtTitulo")) & "','" & objUpload.Form("cboTipo") & "','" & strURLFOTO & "','" & objUpload.Form("txtDescricao") & "',#" & Date() & "#)") Set ADOCnn = Nothing Set objUpload = Nothing Response.Redirect("classificado.asp") simplesmente não aconteceu nada... não armazenou e nem deu msg de erro. Onde estou errando?
  10. WEBIER
    http://forum.imasters.uol.com.br/index.php...s-fechar-outra/
  11. WEBIER
    tenho a seguinte parte de meu ASP response.write("<script>alert('MENSAGEM POSTADA\nbla blá bla');self.close();</script>") gostaria de acrescentar nessa linha a opção de quando essa pagina se fechar ele abrisse a pagina /recados/index.asp no mesmo lugar. Como ficaria?
  12. WEBIER
    Deu Certo, Obrigado SK15 como eu marco como resolvido?
  13. WEBIER
    estou desenvolvendo um site de noticias e estou com um problema nessa parte. é para aparecer a primeira noticia (foto, titulo e resumo), depois de um tempo ela some e aparece a segunda noticia, depois a terça, quarta e quinta noticia... depois retorna para a primeira. Para fazer a rotatividade fiz em Java Script assim: <style type="text/css"> #noticia2, #noticia3, #noticia4, #noticia5 { display: none; } </style> &lt;script type="text/javascript"> noticias = function() { this.quantidade = 5; // int this.intervalo = 2000; // seconds this.num = 1; this.start = false; function noticia() { if (this.num == 1) { if (document.getElementById('noticia'+this.quantidade).style.display == "block") { hideNoticia(this.quantidade); } } else { hideNoticia(this.num-1); } showNoticia(this.num); } function showNoticia(noticia) { document.getElementById('noticia'+noticia).style.display = "block"; } function hideNoticia(noticia) { document.getElementById('noticia'+noticia).style.display = "none"; } function rodaNoticia() { if (this.start && this.num < this.quantidade) { this.num = this.num + 1; } else { this.num = 1 } noticia(); this.start = true; } window.setInterval(rodaNoticia, this.intervalo); } window.onload = noticias; </script> e a parte de trazer os dados em ASP fiz assim: <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * from noticias order by id desc", DB Contar = 0 numNoticia = 1 Do while not nt1.Eof tópico = nt1("tópico") Resumo = nt1("Resumo") Classe1 = nt1("Classe1") Classe = nt1("Classe") Foto = nt1("Foto") Horas = nt1("Horas") id = nt1("id") textoRes = Mid(Resumo, 1, 90) if Foto <> "fotos/" then %> <p align="left" style="margin-top: 0; margin-bottom: 0" id="noticia<%Response.Write numNoticia%>"> <a target="conteudo" href='Mostra.asp?Noticias=<%=nt1("id")%>&Classe=<%=nt1("classe")%>'> <img src="<%=nt1("foto")%>" width="189" height="158" border="1"> <font face="Arial" color="red" style="font-size:8pt;"><strong><%Response.Write tópico%></strong></font><br> <font face="Arial" color="black" style="font-size:6pt;"><strong><%Response.Write textoRes&"..."%></strong></font></a></p> <% numNoticia = numNoticia + 1 end if nt1.Movenext Loop %> Realmente aparece a 1a, 2a, 3a, 4a, 5a noticia e depois volta para a 1a... funcionando perfeitamente... Meu problema é a aparece abaixo da 1a noticia a 2a, 3a, 4a, 5a Exemplo: [NOTICIA 1] fazendo rotação com 2a, 3a, 4a, 5a [NOTICIA 2] parada [NOTICIA 3] parada [NOTICIA 4] parada [NOTICIA 5] parada e não era para aparecer essas noticias abaixo não... era somente 1 noticia em rotatividade de 5 noticias
  14. WEBIER
    resolvi assim: http://forum.imasters.uol.com.br/index.php...icao-de-campos/
  15. WEBIER
    usei ano = right(year(data), 2) deu certo! ObrigadoQ
×
×
  • Criar Novo...