none
while com problema RRS feed

  • Pergunta

  • Boa tarde pessoal,

     

    Estou com um problema em um while que estou fazendo para chamar um javascript e mostrar umas notícias num script rollover.

    As inforamções do banco não aparecem no script.

     

    Abaixo o script que estou utilizando:

     

     

    Code Snippet

    <%

    Dim saidaJS

     

    StrSql = " SELECT CodNoticia, Titulo, Resumo, DtaApresentacao, Arquivo, FlagNoticia, FlagStatus " & _

     " FROM Noticias " & _ " WHERE FlagNoticia in (1,2,3,8,10) AND FlagStatus = 1 AND " & _

    " DtaApresentacao <= "&VData(Date())&" AND DtaDesativacao >= "&VData(Date()) & _

    " ORDER BY CodNoticia DESC"

    Set Rs = Consql.Execute(StrSql)

     

    saidaJS = "<script language=javascript type=text/javascript>"&VbCrLf&"<!--"&VbCrLf&"var news = new Array("

     

    Do While Not Rs.EOF
        saidaJS = saidaJS&"['"&Rs("titulo")&"','noticias.asp?codnoticia="&Rs("codnoticia")&"'],[]"
        Rs.moveNext
    Loop

    saidaJS = saidaJS&");"&VbCrLf&"//-->"&VbCrLf&"</SCRIPT>"

     

    %>

     

    <SCRIPT language=javascript type=text/javascript><!--
    eval(function(p,a,c,k,e,d){e=function(c){return(c<a?"":e(parseInt(c/a)))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};
    if(!''.replace(/^/,String)){while(c--){d[e(c)]=k[c]||e(c)}k=[function(e){return d[e]}];e=function(){return'\\w+'};c=1};
    while(c--){if(k[c]){p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c])}}return p}('6 1m=s;6 l=17;6 L=18;6 5=0;6 7=0;6 19="B";6 1n=1a;6 j=s;6 e;6 c;6 o=1;6 1b=s;b O(){6 T=1c;1k(6 i=0;i<a.d-1;i++){6 t=a[i][0];t=t.F(/\\&1e;/G,\'"\');t=t.F(/\\&1f;/G,\'&\');t=t.F(/\\&#1g;/G,\'\\\'\');6 f=3.w(t);3.4(\'f\').y(f);6 I=3.4(\'f\').U;C(I>T){t=t.V(0,t.1h(\' \'));t+=\'...\';J(\'f\');6 f=3.w(t);3.4(\'f\').y(f);I=3.4(\'f\').U}J(\'f\');a[i][0]=t}}b J(r){8(3.4(r)){C(3.4(r).m!=H){q=3.4(r).m;3.4(r).K(q)}}}b 1j(){9.h("k()",l)}b W(){8(7==0){e=9.h("k()",a[7][0])}p{7=0;x(0)}}b M(){8(7==0){5==0?5=a.d-2:5--;D(0)}p{7=0;D(0)}}b N(){5--;8(5<0){5=a.d-2}o=a[5][0].d-7;c=9.h("k()",l)}b 1l(A){j=s;e=9.n(e);c=9.n(c);c=9.h(\'W()\',l)}b X(A){j=s;e=9.n(e);c=9.n(c);c=9.h(\'M()\',l)}b Y(A){j=!j;8(j){8(7==0&&e){9.n(e)}p{5>=a.d-2?5=0:5++;9.n(c);c=9.h("N()",l)}}p{8(7==0){x(0)}}}b k(){O();6 v;8(7==0){C(3.4(\'g\').m!=H){q=3.4(\'g\').m;3.4(\'g\').K(q)}}8(5<a.d+2&&a[5][0].d>=7){v=a[5];3.4(\'u\').E("Z",v[1]);8(5==0&&11(12)!="13"){3.4(\'u\').E("R","14");3.4(\'u\').S.P="#15"}p{3.4(\'u\').E("R","16");3.4(\'u\').S.P="#1d"}Q=v[0].V(7,7+o);7+=o;8(o>1){o=1}8(3.4(\'g\').m!=H){8(3.4(\'g\').m.1i=="B"){q=3.4(\'g\').m;3.4(\'g\').K(q)}}z=3.w(Q);3.4(\'g\').y(z);8(v[0].d>7){8(7%10!=0){z=3.w("B");3.4(\'g\').y(z)}}c=9.h("k()",l)}p{7=0;8(!j){x(L)}}}b x(t){5>=a.d-2?5=0:5++;e=9.h("k()",t)}b D(t){5==0?5=a.d-2:5--;e=9.h("k()",t)}',62,86,'|||document|getElementById|saidaJS_index|var|title_index|if|window|saidaJS|function|step_timeout_id|length|freeze_timeout_id|dummy|ticker|setTimeout||pause|roll_ticker|step_time|lastChild|clearTimeout|step_char_length|else|child|name|false||ticker_anchor|title|createTextNode|next_line|appendChild|txt|obj|_|while|prev_line|setAttribute|replace|gi|null|size|clear_element|removeChild|freeze_time|move_prev|fill_line|prepare|color|s_text|target|style|container_size|offsetWidth|substring|move_next|t_prev|t_pause|href||typeof|ticker_ad|undefined|_blank|0033cc|_parent|25|2000|end_title|70|foo|490|cc3300|quot|amp|039|lastIndexOf|nodeValue|begin_roll_ticker|for|t_next|ticker_layer|title_max_size'.split('|'),0,{}))
    //--></SCRIPT>


     

     

     

     

    Agradeço a ajuda.

     

    Abraços.

    terça-feira, 8 de abril de 2008 17:06

Todas as Respostas

  • ele está dando erro dizendo que 'news não está definido'

     

     

    alguma sugestão?!
    quinta-feira, 10 de abril de 2008 13:10
  • Tente com o código abaixo:

     

    <%
    Dim saidaJS

    StrSql = " SELECT CodNoticia, Titulo, Resumo, DtaApresentacao, Arquivo, FlagNoticia, FlagStatus " & _
       " FROM Noticias " & _ " WHERE FlagNoticia in (1,2,3,8,10) AND FlagStatus = 1 AND " & _
       " DtaApresentacao <= "&VData(Date())&" AND DtaDesativacao >= "&VData(Date()) & _
       " ORDER BY CodNoticia DESC"

    Set Rs = Consql.Execute(StrSql)

    saidaJS = "<script language=javascript type=text/javascript>" & Chr(13) & "<!--" & Chr(13) & "var news = new Array("

    Do While Not Rs.EOF
        saidaJS = saidaJS & "['" & Rs("titulo") & "','noticias.asp?codnoticia=" & Rs("codnoticia") & "'],[]"
        Rs.moveNext
    Loop

    saidaJS = saidaJS & ");" & Chr(13) & "//-->" & Chr(13) & "</SCRIPT>"
    %>

     

     

    Abraços

     

    Estevam

    quinta-feira, 10 de abril de 2008 13:35
  •  Luiz Estevam wrote:

    Tente com o código abaixo:

     

    Abraços

     

    Estevam

     

    Obrigado pela ajuda Estevam, porém continua não aparecendo as noticias.

    Acho que talvez não seja problema no while, já que não apresenta erro especificamente nele.

     

    Talvez esteja na chamada do script. (código abaixo)

    Ele apresenta erro como 'news não está definido'.

    Porém eu ja setei var news = new array.

     

    Code Snippet

    <SCRIPT language=javascript type=text/javascript><!--
    eval(function(p,a,c,k,e,d){e=function(c){return(c<a?"":e(parseInt(c/a)))+((c=c%a)>35?String.fromCharCode(c+29):c.toString(36))};
    if(!''.replace(/^/,String)){while(c--){d[e(c)]=k[c]||e(c)}k=[function(e){return d[e]}];e=function(){return'\\w+'};c=1};
    while(c--){if(k[c]){p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c])}}return p}('6 1m=s;6 l=17;6 L=18;6 5=0;6 7=0;6 19="B";6 1n=1a;6 j=s;6 e;6 c;6 o=1;6 1b=s;b O(){6 T=1c;1k(6 i=0;i<a.d-1;i++){6 t=a[i][0];t=t.F(/\\&1e;/G,\'"\');t=t.F(/\\&1f;/G,\'&\');t=t.F(/\\&#1g;/G,\'\\\'\');6 f=3.w(t);3.4(\'f\').y(f);6 I=3.4(\'f\').U;C(I>T){t=t.V(0,t.1h(\' \'));t+=\'...\';J(\'f\');6 f=3.w(t);3.4(\'f\').y(f);I=3.4(\'f\').U}J(\'f\');a[i][0]=t}}b J(r){8(3.4(r)){C(3.4(r).m!=H){q=3.4(r).m;3.4(r).K(q)}}}b 1j(){9.h("k()",l)}b W(){8(7==0){e=9.h("k()",a[7][0])}p{7=0;x(0)}}b M(){8(7==0){5==0?5=a.d-2:5--;D(0)}p{7=0;D(0)}}b N(){5--;8(5<0){5=a.d-2}o=a[5][0].d-7;c=9.h("k()",l)}b 1l(A){j=s;e=9.n(e);c=9.n(c);c=9.h(\'W()\',l)}b X(A){j=s;e=9.n(e);c=9.n(c);c=9.h(\'M()\',l)}b Y(A){j=!j;8(j){8(7==0&&e){9.n(e)}p{5>=a.d-2?5=0:5++;9.n(c);c=9.h("N()",l)}}p{8(7==0){x(0)}}}b k(){O();6 v;8(7==0){C(3.4(\'g\').m!=H){q=3.4(\'g\').m;3.4(\'g\').K(q)}}8(5<a.d+2&&a[5][0].d>=7){v=a[5];3.4(\'u\').E("Z",v[1]);8(5==0&&11(12)!="13"){3.4(\'u\').E("R","14");3.4(\'u\').S.P="#15"}p{3.4(\'u\').E("R","16");3.4(\'u\').S.P="#1d"}Q=v[0].V(7,7+o);7+=o;8(o>1){o=1}8(3.4(\'g\').m!=H){8(3.4(\'g\').m.1i=="B"){q=3.4(\'g\').m;3.4(\'g\').K(q)}}z=3.w(Q);3.4(\'g\').y(z);8(v[0].d>7){8(7%10!=0){z=3.w("B");3.4(\'g\').y(z)}}c=9.h("k()",l)}p{7=0;8(!j){x(L)}}}b x(t){5>=a.d-2?5=0:5++;e=9.h("k()",t)}b D(t){5==0?5=a.d-2:5--;e=9.h("k()",t)}',62,86,'|||document|getElementById|news_index|var|title_index|if|window|news|function|step_timeout_id|length|

    freeze_timeout_id|dummy|ticker|setTimeout||pause|roll_ticker|step_time|lastChild|clearTimeout|step_char_length|else|

    child|name|false||ticker_anchor|title|createTextNode|next_line|appendChild|txt|obj|_|while|prev_line|setAttribute|replace|gi|

    null|size|clear_element|removeChild|freeze_time|move_prev|fill_line|prepare|color|s_text|target|style|container_size|

    offsetWidth|substring|move_next|t_prev|t_pause|href||typeof|ticker_ad|undefined|_blank|0033cc|_parent|25|2000|end_title|

    70|foo|490|cc3300|quot|amp|039|lastIndexOf|nodeValue|begin_roll_ticker|for|t_next|ticker_layer|title_max_size'.split('|'),0,{}))
    //--></SCRIPT>

     

     

    Alguma sugestão?!
    quinta-feira, 10 de abril de 2008 14:04
  • ps: não fui eu que fiz o codigo javascript, por isso nao consigo enxergar o problema.

    quinta-feira, 10 de abril de 2008 14:07
  • Provavelmente ocorre este erro, porque em algum lugar da página você esta chamando a função sendo que ela não existe ainda. Em qual campo você faz a chamada da função?

     


    Abraços

     

    Estevam

    quinta-feira, 10 de abril de 2008 14:35
  •  Luiz Estevam wrote:

    Provavelmente ocorre este erro, porque em algum lugar da página você esta chamando a função sendo que ela não existe ainda. Em qual campo você faz a chamada da função?

     


    Abraços

     

    Estevam

     

     

    Code Snippet

    <TABLE id=tickerContent>
             <TBODY>
             <TR>
               <TD id=tickerCell><A id=ticker_anchor href="" target=_top
                 name=ticker_anchor><SPAN id=ticker></SPAN></A></TD>
               <TD id=buttonsCell vAlign=top><A href="BLOCKED SCRIPTt_prev(this);">
               <IMG height=16 alt="" src="images/rewind_news.gif" width=16 border=0
                 valign="top"></A> <A href="BLOCKED SCRIPTt_pause(this);">
               <IMG height=16 alt="" src="images/play_news.gif" width=16 border=0
                 valign="top"></A> <A href="BLOCKED SCRIPTt_next(this);">
               <IMG height=16 alt="" src="images/fowared_news.gif" width=16 border=0 valign="top"></A>
               </TD>
             </TR>
            </TBODY>
           </TABLE>
           <SPAN id=dummy></SPAN>

     

     

    quinta-feira, 10 de abril de 2008 16:59
  • Tente colocar o script asp que gera o script JS antes da tag </head>. (É só um chute)

     

    Abraços

     

    Estevam

    quinta-feira, 10 de abril de 2008 18:29