Ir para conteúdo
Fórum Script Brasil

WEBIER

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    27

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que WEBIER postou

  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
  16. WEBIER
    possuo o seguinte codigo: <% 'inicio de codigo ASP Dim data, dia, mes, ano data = Rs("data") dia = day(data) mes = month(data) ano = year(data) if dia < 10 then dia = "0" & dia end if if mes < 10 then mes = "0" & mes end if response.Write(dia & "/" & mes & "/" & ano) 'fim do codigo ASP %> Como eu faço pra converter o ano pra 2 digitos? eu tentei ano = format(year(data), "yy") e não deu!
  17. WEBIER
    resolvi assim: <% if (Contar => 0 and Contar < 3) then %> <img src="images/fundoSite.jpg"></p> <%end if%>
  18. WEBIER
    AMIGO, fiz conforme você me disse: <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * from noticias 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") id = nt1("id") IF Contar > 3 Then exit do end if if Classe1 = "Matéria" Then %> <p align="left" style="margin-top: 0; margin-bottom: 0"> <a target="conteudo" href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>'> <font face="Arial" style="font-size:10pt;"><strong><%Response.Write tópico%></strong></font><br> <font face="Arial" style="font-size:8pt;"><%Response.Write Resumo%></font></p><br> <% conta_foto=1 for i=1 to 4 if conta_foto<4 then <img src="images/barra.jpg"> end if conta_foto=conta_foto+1 next %> <% Contar = Contar + 1 end if nt1.Movenext Loop %> e dar o seguinte erro: Script error detected at line 206. Source line: Description: Instrução esperada depois de Source line: aparece a imagem da barra.
  19. WEBIER
    se não tive como fazer via ASP... algum moderador poderia transferir esse tópico pra o forum JavaScript?
  20. WEBIER
    possuo o seguinte condigo: <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * from noticias 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") id = nt1("id") IF Contar > 3 Then exit do end if if Classe1 = "Matéria" Then %> <p align="left" style="margin-top: 0; margin-bottom: 0"> <a target="conteudo" href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>'> <font face="Arial" style="font-size:10pt;"><strong><%Response.Write tópico%></strong></font><br> <font face="Arial" style="font-size:8pt;"><%Response.Write Resumo%></font></p><br> <% Contar = Contar + 1 end if nt1.Movenext Loop %> Esse codigo ai acima é de um site de noticias q to fazendo! Com esse código acima consigo pegar as ultimas 4 materias e mostrar uma abaixo da outra. Exemplo: MATERIA 01 texto bla bla bla bla MATERIA 02 texto bla bla bla bla MATERIA 03 texto bla bla bla bla MATERIA 04 texto bla bla bla bla Está funcionando perfeitamente. O que quero fazer então? Coloca uma imagem entre esses registros somente pra exibição... Exemplo: MATERIA 01 texto bla bla bla bla [imagem] MATERIA 02 texto bla bla bla bla [imagem] MATERIA 03 texto bla bla bla bla [imagem] MATERIA 04 texto bla bla bla bla OBS: a imagem (barra.jpg) somente deve aparece depois do primeiro, segundo e terceiro registro exibido... não dever aparecer depois do ultimo, que seria o quarto registro exibido. Como eu faço isso?
  21. WEBIER
    possuo o seguinte codigo: <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * from noticias 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") Horas = nt1("Horas") id = nt1("id") IF Contar > 0 Then exit do end if if Classe1 = "Destaque" Then %> <p align="left" style="margin-top: 0; margin-bottom: 0"> <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 Resumo%></strong></font></p></a> <% Contar = Contar + 1 end if nt1.Movenext Loop %> Esse código é de um site de noticias q to fazendo... a ideia é mostrar uma Imagem e logo abaixo o Titulo da noticias e um resumo do texto... a se a pessoa clica em cima levará a materia na integra. Está funcionando! O que quero então? Ele trocar a noticia de tanto em tanto segundos... ficar reversando entras as ultimas 5 noticias... Exemplo: Aparece a foto/tópico/Resumo da ultima noticia... passa 10segundos... ele muda a foto/tópico/Resumo da penultima noticia... assim sucessivamente até 5 noticias... depois ele volta pra ultima novamente e recomeça o loop. Obs: somente será mostrado noticias que o campo Classe1 = "Destaque" e que o campo Foto<>""
  22. WEBIER
    Fiz igual nossa amigo acima ensinou e deu certo. Obrigado!
  23. WEBIER
    com a ajuda de nossa amigo acima e fiz assim? <%if Foto<>"" then%><img src="<%Response.Write Foto%>" align="left" border="0"><%end if%>
  24. WEBIER
    como eu faço pra marcar esse tópico como resolvido?
  25. WEBIER
    Estou fazendo um site de noticias. programei para aparecer o titulo da materia e logo abaixo o texto da materia... exemplo: BILL GATES MORREU Morre hoje o dono da multinacional e um dos homens mais ricos do mundo e proprietario da Microsoft MICHAEL JACKSON NÃO MORREU O cantor norte-americano Michael Jackson estva escondindo esse tempo todo em sua enorme casa ai eu queria limitar em uma quantidade de caracteres o texto. Quando chegasse aquele limite ele colocasse (...) reticências ai ficaria assim: BILL GATES MORREU Morre hoje o dono da multinacional e um dos homens mais ricos do mundo... MICHAEL JACKSON NÃO MORREU O cantor norte-americano Michael Jackson estva escondindo esse tempo todo... olha meus Codigos ai: <td width="288" valign="top"> <% Set nt1 = Server.CreateObject("ADODB.Recordset") nt1.Open "SELECT * from noticias 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") id = nt1("id") IF Contar > 3 Then exit do end if if Classe1 = "Matéria" Then %> <a target="conteudo" href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>'> <font face="Arial" color="red" style="font-size:10pt;"> <strong><%Response.Write tópico%></strong></font><br> <font face="Arial" color="black"> <span style="font-size:8pt;">- <%Response.Write Resumo%> </span></font> <font face="Arial" bold=true color="silver"> <span style="font-size:8pt;"> - <%Response.Write Data%></span></font></a> <font face="Arial"><span style="font-size:8pt;"><br><br> <% Contar = Contar + 1 end if nt1.Movenext Loop %> </tr>
×
×
  • Criar Novo...