Jump to content
Fórum Script Brasil

ibreak

Membros
  • Content Count

    39
  • Joined

  • Last visited

Community Reputation

0 Neutro

About ibreak

  1. Oi pessoal, beleza... É o seguinte, eu tenho esse código que exibe as 10 últimas notícias cadastradas no meu DB. <%Dim objDestTexto2 Set objDestTexto2 = Banco.Execute("SELECT TOP 10 ID, Titulo, ExibicaoDe FROM Noticias ORDER BY ID DESC") While not objDestTexto2.EOF Response.Write "<a href='Noticia.asp?ID="& objDestTexto2("ID") &"' class='lVerdana11Azul'>["& objDestTexto2("ExibicaoDe") &"] "& objDestTexto2("Titulo") &"</a><br>" objDestTexto2.MoveNext : Wend Set objDestTexto2 = Nothing%> Eu gostaria de usar esse código também para exibir as últimas notícias da data anterior a que eu acesso o site, no caso ontém. Como eu tenho que fazer no meu código pra dar certo. Outra coisa,,, antes de aparecer as notícias eu vou escrever numa tabela, Notícias do dia ??? (Como eu coloco um comando para que ele exiba a data de ontém, mesma data que será usada para exibir notícias. Caso não tenha nenhum dado, aparecer sem registros. Podem me ajudar? Muito obrigado. Paulinho
  2. Delphi conheço legal o ASP... NÃO O AVANÇADO... Eu quero na verdade criar as minhas páginas web (asp) com fotos e imagens on-line... tipo eu abro um página no site aonde preencho, título e conteúdo e digo se aquela página vai pro menu do site... e envio ela pro DB. Meu interesse é saber se é mais legal usar fckeditor ou o htmlarea com muita gente usa por aqui. Tipo dá pra enviar fotos, criar tabelas e tudo mais, estou certo... isso claro usando ume ditor on-line.
  3. Pessoal me ajudem a organizar uma lógica... fiz uma busca no site e procurei sobre editor on-line de páginas.... tipo criar as páginas do meu site pela web... Eu vi que muita gente usa um tal de htmlarea, tipo fckeditor... eu acessei o site e achei o WYSIWYG Editor, que ao meu ver também é da htmlarea. Bem minha dúvida é este. Eu creio uma página asp e insiro nela esse editor... a função desse editor será criar as páginas... Depois de criar a página no editor eu devo enviá-la a um DB conteúdo e inserir todas as informações nele, fotos e textos numa mesmo campo da tabela conteúdo, é isso? Se alguém puder me explicar como eu faço o insert no DB com todos os dados do editor eu agradeço. Obrigado.
  4. Andreia eu olhei na busca mas não achei nada, sobre um script ou ajax que fizesse isso... mudasse a imagem com aquele efeito fade... Pra entender o script exibe uma imagem, da fade, vai pra próxima, da fade e assim sucessivamente... mínimo 3 vezes... Alguém já viu ou teria esse script... Obrigado.
  5. Oi Andreia... outro web que estuda comigo usa o outro nick... Vou instalar então o mysql... você disse DOS? Já me assustei... Espero que não seja tão complexo o uso dele via dos... Obrigada...
  6. Alterei minha linha para: objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>" e resolveu... Obrigado.
  7. Já resolvi, obrigado.
  8. Delphi estou usando a função Random, mas está dando erro... Microsoft JET Database Engine erro '80040e10' Nenhum valor foi fornecido para um ou mais parâmetros necessários. /noticias/indexnot.asp, line 54 Tenho isso na linha 54: RS2.Open SQL2, Dados, 3, 3 Veja como está o meu código (parte principal) SQL = "SELECT Top 12 noticias.ID, noticias.categoria, noticias.descricao, noticias.data, noticias.hora, noticias.foto, categorias.categorias FROM noticias, categorias WHERE categorias.ID=noticias.categoria ORDER BY noticias.ID DESC" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Dados, 3, 3 Cont = RS.RecordCount Aux = 1 Dim RS_Tema(12), RS_Data(12), RS_Hora(12), RS_Foto(12), RS_Descricao(12), RS_Link(12) While (Aux < Cont) RS_Tema(Aux) = RS("categorias") RS_Data(Aux) = RS("data") RS_Hora(Aux) = RS("hora") RS_Foto(Aux) = "noticias/imagens/" & RS("foto") If Ucase(Cstr(RS_Foto(Aux))) = "noticias/IMAGENS/N" then RS_Foto(Aux) = "noticias/imagens/semfoto.gif" End if RS_Descricao(Aux) = RS("descricao") RS_link(Aux) = "noticias/view.asp?id=" & RS("ID") Aux = Aux + 1 RS.MoveNext Wend SQL2 = "SELECT Top 1 destaque.ID, destaque.categoria, destaque.titulo, destaque.descricao, destaque.data, destaque.foto, destaque.descricaofoto, destaque.foto2, destaque.descricaofoto2, categorias.categorias as auxcategorias FROM destaque, categorias WHERE categorias.ID=destaque.categoria ORDER BY RND(INT(DOW*DESTAQUE.ID)-NOW*DESTAQUE.ID)" 'SQL2 = "SELECT Top 1 destaque.ID, destaque.categoria, destaque.titulo, destaque.descricao, destaque.data, destaque.foto, destaque.descricaofoto, destaque.foto2, destaque.descricaofoto2, categorias.categorias as auxcategorias FROM destaque, categorias WHERE categorias.ID=destaque.categoria ORDER BY destaque.ID DESC" Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open SQL2, Dados, 3, 3 Cont = 2 Aux = 1 Dim RS2_Tema(2), RS2_Data(2), RS2_Titulo(2), RS2_Foto(2), RS2_Descricaofoto(2), RS2_Descricao(2), RS2_Link(2) While (Aux < Cont) RS2_Tema(Aux) = RS2("auxcategorias") RS2_Titulo(Aux) = RS2("titulo") RS2_Data(Aux) = RS2("data") RS2_Foto(Aux) = "noticias/imagens/destaque/" & RS2("foto") If Ucase(Cstr(RS2_Foto(Aux))) = "noticias/IMAGENS/N" then RS2_Foto(Aux) = "noticias/imagens/semfoto.gif" End if RS2_Descricaofoto(Aux) = RS2("descricaofoto") RS2_Descricao(Aux) = RS2("descricao") RS2_link(Aux) = "noticias/view_destaque.asp?id=" & RS2("ID") Aux = Aux + 1 RS2.MoveNext Wend SQL3 = "SELECT Top 4 agenda.ID, agenda.categoria, agenda.descricao, agenda.foto, categorias.categorias as auxcategorias FROM agenda, categorias WHERE categorias.ID=agenda.categoria" Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open SQL3, Dados, 3, 3 Cont = 5 Aux = 1 Dim RS3_Tema(5), RS3_Foto(5), RS3_Descricao(5), RS3_Link(5) While (Aux < Cont) RS3_Tema(Aux) = RS3("auxcategorias") RS3_Foto(Aux) = "noticias/imagens/agenda/" & RS3("foto") If Ucase(Cstr(RS3_Foto(Aux))) = "noticias/IMAGENS/AGENDA/N" then RS3_Foto(Aux) = "noticias/imagens/agenda/semfoto.gif" End if RS3_Descricao(Aux) = RS3("descricao") RS3_link(Aux) = "noticias/view_agenda.asp?id=" & RS3("ID") Aux = Aux + 1 RS3.MoveNext Wend SQL4 = "SELECT Top 3 emdestaque.ID, emdestaque.categoria, emdestaque.descricao, emdestaque.foto, categorias.categorias as auxcategorias FROM emdestaque, categorias WHERE categorias.ID=emdestaque.categoria" Set RS4 = Server.CreateObject("ADODB.Recordset") RS4.Open SQL4, Dados, 3, 3 Cont = 4 Aux = 1 Dim RS4_Tema(4), RS4_Foto(4), RS4_Descricao(4), RS4_Link(4) While (Aux < Cont) RS4_Tema(Aux) = RS4("auxcategorias") RS4_Foto(Aux) = "noticias/imagens/emdestaque/" & RS4("foto") If Ucase(Cstr(RS4_Foto(Aux))) = "noticias/IMAGENS/EMDESTAQUE/N" then RS4_Foto(Aux) = "noticias/imagens/emdestaque/semfoto.gif" End if RS4_Descricao(Aux) = RS4("descricao") RS4_link(Aux) = "noticias/view_emdestaque.asp?id=" & RS4("ID") Aux = Aux + 1 RS4.MoveNext Wend 'SQL5 = "select * from noticias WHERE categoria = 26 ORDER BY ID DESC" set CMD=Server.CreateObject("ADODB.COMMAND") CMD.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\banco\noticias.mdb") cmd.CommandText="select * from noticias WHERE categoria = 26 ORDER BY ID DESC" set RS5 = CMD.Execute 'Set RS5 = Server.CreateObject("ADODB.Recordset") 'RS5.Open SQL5, Dados, 3, 3 'Cont = 6 'Aux = 1 'Dim RS5_Categoria(6), RS5_Data(6), RS5_Hora(6), RS5_Titulo(6), RS5_Link(6) 'if not (RS5.Eof or RS5.Bof) then 'RS5_Categoria(Aux) = RS5("categoria") 'RS5_Titulo(Aux) = RS5("titulo") 'RS5_Data(Aux) = RS5("data") 'RS5_Hora(Aux) = RS5("hora") 'RS5_link(Aux) = "noticias/view.asp?id=" & RS5("ID") 'Aux = Aux + 1 'End If set CMD=Server.CreateObject("ADODB.COMMAND") CMD.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\banco\noticias.mdb") cmd.CommandText="select * from noticias WHERE categoria = 27 ORDER BY ID DESC" set RS6 = CMD.Execute %>
  9. Andrei verifiquei detalhadamente mas não consegui resolver o problema não... Contei as aspas e com a linha debaixo está tudo ok... Aonde poderia estar o problema... Obrigado...
  10. Oi pessoal, beleza... estou com o erro abaixo numa página que é responsável por gerar o arquivo rss do meu site. Podem ajudar. Obrigado. Erro de compilação do Microsoft VBScript erro '800a0409' Constante de seqüência não finalizada /rss/generate.asp, line 31 objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" -------------------------------------------------------------^ Na linha 31 eu tenho isso: set objfso = server.createobject("scripting.filesystemobject") set objtstream = objfso.createtextfile(var_file, true) objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>" objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">" objtstream.writeline "<channel>" Abaixo código completo da página: <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/data.asp" --> <% Dim rs_news Dim rs_news_numRows Set rs_news = Server.CreateObject("ADODB.Recordset") rs_news.ActiveConnection = MM_data_STRING rs_news.Source = "SELECT * FROM noticias ORDER BY data DESC" rs_news.CursorType = 0 rs_news.CursorLocation = 2 rs_news.LockType = 1 rs_news.Open() rs_news_numRows = 0 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <% dim var_path, var_file, var_count var_path = server.mappath("rss") var_file = var_path & "\" & "news.xml" var_count = 0 set objfso = server.createobject("scripting.filesystemobject") set objtstream = objfso.createtextfile(var_file, true) objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>" objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">" objtstream.writeline "<channel>" objtstream.writeline "<title>Notícia Regional</title>" objtstream.writeline "<link>http://www.noticiaregional.com.br</link>" objtstream.writeline "<description>As principais notícias de Rio Claro/SP e região atualizadas diariamente. </description>" objtstream.writeline "<language>pt-br</language>" while (var_count < 10) and (not rs_news.eof) objtstream.writeline "<item>" objtstream.writeline "<title>"&rs_news.fields.item("new_title").value&"</title>" objtstream.writeline "<link>http://www.noticiaregional.com.br/noticias/view.asp?id="&rs_news.fields.item("new_id").value&"</link>" objtstream.writeline "<description>"&rs_news.fields.item("new_resume").value&"</description>" objtstream.writeline "</item>" var_count = var_count + 1 rs_news.movenext() wend objtstream.writeline "</channel>" objtstream.writeline "</rss>" objtstream.close Set objtstream = nothing Set objfso = nothing %> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <font color="#FF9900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="rss/news.xml">RSS &gt;&gt; </a></strong><a href="rss/news.xml">rss/news.xml</a></font> </body> </html> <% rs_news.Close() Set rs_news = Nothing %>
  11. Andréia tudo bem. Andréi poderia me dizer que programas devo usar pra criar DB MYSQL localmente? Tem programa que converte de access para mysql? Obrigado.
  12. Pessoal aonde eu arrumo este script... Alguns sites usam um sisteminha aonde aparece a notícia (foto e um testinho embaixo) e dá um fade, muda para a próxima, fade de novo e muda pr aoutra... Geralmente sempre são 3 imagens com texto... As imagens mudam num intervalo de 4 segundos... Tem algo assim em java ou é dhtml??? Podem me ajudar...
  13. Oi Andreia, muito obrigado pela resposta, porque estava difícil receber informações a respeito da montagem deste sistema. Andreia eu não sei usar esta função que você mencionou, mas verifiquei sobre o componente Ad Rotator e conta no meu servidor instalado sim Microsoft Ad Rotator, é o mesmo né? Aonde posso obter informações para montar uma consulta no DB que chama a foto em destaque, juinto duma breve notícia... alternando... 3 última snotícias selecionadas em destaque... Obrigado...
  14. Tudo bem gente. Eu gostaria de criar um sistema como o da MSN, vocês já viram... na UOL também tem um sistema parecido. A notícia em destaque fica mudando. No campo é exibido 3 notícias em destaque, as 3 últimas. A cada 4 segundos muda para a próxima e assim sucessivamente. Alguém tem um código parecido que eu possa usar como base para o meu sistema de news? Se alguém puder ajudar agradeço. Muito obrigado. Jr.
  15. Oi pessoal beleza... vejam esse filme abaixo e notem o seguinte defeito que ocorre... Vejam que logo no começo da animação um painél que eu fiz no fotoshop com várias fotos coladas uma do lado da outra (salvo em jpg) começa rolando da esquerda para a direita e passa durante toda a animação... O probelam que acontece é de que quando exporto o filme em swf ou aperto o f12 pra visualizar no navegador dá esse problema... o fundo fica distorcido e a foto logo no comecinho só aparece um pedaço e sai... Não entendo porque acontece isso... Já instalei duas versões do flash e está do mesmo jeito... refazer tudo de novo me mataria... gostaria de saber de vocês esperientes no flash o que pode dar esse defeito... qual pode ser o problema... Pra quem quiser aqui vai o arquivo anexado... para examinarem e me ajudarem... obrigado... É um mega banner de topo... http://www.noticiaregional.com.br/anim.fla http://www.noticiaregional.com.br/modelo.htm Qualquer ajuda é bem vinda...
×
×
  • Create New...