plz doct News Live ! - Ernia e Laparocele

<%
'#################################################################################
'## Ver.3.4.06 multi-language Skin3D Portal V2
'#################################################################################
'## Copyright (C) 2001-07 Gaëtan Dupont All Rights Reserved
'##
'## By using this program, you are agreeing to the terms of the
'## GNU General Public License.
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding ImageForums2001 must remain intact
'## in the scripts and in the outputted HTML.
'## The "Image Forums 2001" text with a link back to 
'## <a href="http://www.forums2001.ca" target="_blank">http://www.forums2001.ca</a> in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## Support can be obtained from support forums at:
'## <a href="http://www.forums2001.ca" target="_blank">http://www.forums2001.ca</a>
'##
'## Email: <a href="mailto:image_forum_2001@hotmail.com">image_forum_2001@hotmail.com</a>
'##
'#################################################################################
'## This Page Contains source code of Snitz Forums 2000
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## <a href="http://forum.snitz.com" target="_blank">http://forum.snitz.com</a> in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## <a href="http://forum.snitz.com" target="_blank">http://forum.snitz.com</a>
'##
'## Correspondence and Marketing Questions can be sent to:
'## <a href="mailto:manderson@snitz.com">manderson@snitz.com</a>
'##
'#################################################################################

if Request("HideNewsLive") = "Y" then
   Response.Cookies(strUniqueID & "HideNewsLive") = "Y"
   Response.Cookies(strUniqueID & "HideNewsLive").Expires = dateAdd("d", intCookieDuration, strForumTimeAdjust)
else
   if Request("HideNewsLive") = "N" then
      Response.Cookies(strUniqueID & "HideNewsLive") = "N"
      Response.Cookies(strUniqueID & "HideNewsLive").Expires = dateAdd("d", intCookieDuration, strForumTimeAdjust)
   end if
end if
Response.Write	"      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
       "        <tr>" & vbNewLine & _
       "          <td " & TableBorderColor & ">" & vbNewLine & _
       "            <table border=""0"" width=""100%"" " & Cellspacing & " cellpadding=""2"">" & vbNewLine & _
       "              <tr>" & vbNewLine & _
       "                <td " & HeadCellColor & ">" & vbNewLine & _
       "                  <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
       "                    <tr valign=""middle"">" & vbNewLine & _
       "                      <td width=""99%"" " & HeadCellColor5 & " align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ " & HeadFontColor & ">News Live</font></b></td>" & vbNewLine & _
       "                      <td align=""right"">" & vbNewLine
   if Request.Cookies(strUniqueID & "HideNewsLive") = "Y" then
      Response.Write   "<a id=left align=left href=""" & ScriptName & "?HideNewsLive=N"">" & getCurrentIcon(strIconPlus,fLang("strLangExpand00010"),"") & "</a>"
   else
      Response.Write   "<a href=""" & ScriptName & "?HideNewsLive=Y"">" & getCurrentIcon(strIconMinus,fLang("strLangCollapse00010"),"") & "</a>"
   end if
Response.Write	"                      </td>" & vbNewLine & _
       "                    </tr>" & vbNewLine & _
       "                  </table>" & vbNewLine & _
       "                </td>" & vbNewLine & _
       "              </tr>" & vbNewLine

if Request.Cookies(strUniqueID & "HideNewsLive") = "N" or Request.Cookies(strUniqueID & "HideNewsLive") = "" then
   Response.Write   "              <tr>" & vbNewLine & _
          "                <td " & ForumCellColor & " valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ " & DefaultFontColor & ">" & vbNewLine
%>
<!-- Start Of Stratics.com News Javascript Code -->
<script language="JavaScript1.1">
  <!--
  // the array global_article is used to allow multiple categories
  var global_article = new Array();
  var global_article_counter = 0;
  var article = null;
  var early_exit = 1;
  var moreover_text = 0;
  function load_wizard()
    {
    
    var newwin = window.open("","clone","resizable,scrollbars,width=500,height=590");
    document.forms.moreover_clone.submit();
    return true;
    }
  
  // -->
 </script>
	<script language="JavaScript" src="http://wow.stratics.com/php-bin/rss/rss.php?type=js">
	<noscript>
	<a href="http://wow.stratics.com/">Latest World of Warcraft News</a>
	</noscript>
	</script>
   <!--

  if (article != null)
    {
    early_exit = 0;

    for (var article_counter = 0; article_counter < Math.min(article.length,9); article_counter++)
      {
      global_article[global_article_counter] = article[article_counter];
      global_article[global_article_counter].url += "&w=555226";
      global_article[global_article_counter].url += "' TARGET='_blank";
      global_article[global_article_counter].document_url += "' TARGET='_blank";
      global_article_counter++;
      }


    }


  // -->

 </script>
	<script language="JavaScript" src="http://wow.stratics.com/php-bin/rss/rss.php?type=js">
	<noscript>
	<a href="http://wow.stratics.com/">Latest World of Warcraft News</a>
	</noscript>
	</script>
   <!--

  if (!early_exit)
  {
  var webfeed_heading = "Top News";
  var width = "100%";
  var numberofarticles = <%= intLiveNewsNum %>;
  var item_spacing = "4";

  var cluster_border = "0";
  var heading_display = "Yes";
  var time_display = "Yes";
  var cell_spacing = "0";
  var cell_padding = "0";

  var heading_font = "<%= strDefaultFontFace %>";
  var heading_font_size = "<%= strDefaultFontSize %>";


  var headline_font = "<%= strDefaultFontFace %>";
  var headline_font_size = "<%= strDefaultFontSize %>";

  var source_font = "<%= strDefaultFontFace %>";
  var source_font_size = "<%= strFooterFontSize %>";
  

  var access_font = "<%= strDefaultFontFace %>";
  var access_font_size = "<%= strFooterFontSize %>";

  var time_font = "<%= strDefaultFontFace %>";
  var time_font_size = "<%= strFooterFontSize %>";

  var time = new Array(global_article.length);

  // Print out the table containing the headlines
  document.writeln("<CENTER><TABLE BORDER="+cluster_border+"  WIDTH='"+width+"' CELLPADDING=2 CELLSPACING=0>");
  //document.writeln("<tr><td  align='center'><img src='<a href="http://i.moreover.com/images/moreover_wizard_link.gif'" target="_blank">http://i.moreover.com/images/moreov...rd_link.gif'</a> border='0'></td></tr>")
  document.writeln("<TR><TD><CENTER><TABLE CELLPADDING="+cell_padding+" CELLSPACING="+cell_spacing+"  WIDTH='100%'>");

  if (heading_display == "Yes")
    {
    // Print a new category heading
    document.writeln("<TR><TD>");
    document.writeln("<FONT SIZE="+heading_font_size+" FACE="+heading_font+">");
    document.writeln("<B>"+webfeed_heading+"</B></FONT></TD></TR>");
    }

  // Start loop for articles
    for (var counter=0; counter < Math.min(numberofarticles,global_article.length); counter++)
    {
    if ((counter == (global_article.length - 1)) && moreover_text == 1) 
      { 
 
      time_display = "No";
      }

    // Print out the headline
    document.writeln("<TR><TD><A HREF='"+global_article[counter].url+"' >");
    document.writeln("<FONT SIZE="+headline_font_size+" FACE="+headline_font+" ");
    document.writeln(">"+global_article[counter].headline_text+"...</FONT></A><br>");

    
      // Print out the source
        if ((counter != (global_article.length - 1)) || moreover_text != 1)
        {
        document.writeln("<A HREF='"+global_article[counter].document_url+"' >");
        document.writeln("<FONT FACE="+source_font+" SIZE="+source_font_size+">");
        document.writeln(""+global_article[counter].source+"</FONT></A>  ");
        }
    

    // Print out reg/sub if appropriate
    if (global_article[counter].access_status == "sub" || global_article[counter].access_status == "reg")
      {
      document.writeln(" <A HREF='"+global_article[counter].access_registration+"'>");
      document.writeln("<FONT FACE="+access_font+" SIZE="+access_font_size);
      document.writeln(">"+global_article[counter].access_status+"</FONT></A>  ");
      }


        // Print out the harvest time
    if (time_display == "Yes")
      {
      // Make a new date object
      time[counter] = new Date(global_article[counter].harvest_time);
      time[counter].setHours(time[counter].getHours() - (time[counter].getTimezoneOffset() / 60 ));
      document.writeln("<BR><FONT FACE="+time_font+" SIZE="+time_font_size+">");
      document.writeln(""+time[counter].toString()+"</FONT>");
//      document.writeln(""+time[counter].toString()+"</FONT>");
      } 



    document.writeln("</TD></TR><TR><TD HEIGHT="+item_spacing+"></TD></TR>");
    } // End of article loop

  // Start of clone button code //
  // NOTE: DO NOT REMOVE any of the code in this section //
  document.writeln("<FORM METHOD='POST' ACTION='<a href="http://www.moreover.com/cgi-local/wizard_clone.pl'" target="_blank">http://www.moreover.com/cgi-local/wizard_clone.pl'</a> target='clone' name='moreover_clone'>");
  document.writeln("<INPUT TYPE='hidden' NAME='parent_code' VALUE='555226'>");
  document.writeln("<INPUT TYPE='hidden' NAME='heading_font_size' VALUE='-1'><INPUT TYPE='hidden' NAME='source_font_size' VALUE='-2'>")
  document.writeln("<INPUT TYPE='hidden' NAME='cluster_width' VALUE='200'><INPUT TYPE='hidden' NAME='time_display' VALUE='Yes'>")
  document.writeln("<INPUT TYPE='hidden' NAME='time_font' VALUE='Arial,Helvetica, sans-serif'><INPUT TYPE='hidden' NAME='cluster_cellspacing' VALUE='0'>")
  document.writeln("<INPUT TYPE='hidden' NAME='heading_font' VALUE='Arial,Helvetica, sans-serif'><INPUT TYPE='hidden' NAME='number_of_headlines' VALUE='10'>")
  document.writeln("<INPUT TYPE='hidden' NAME='cluster_bgcolor' VALUE='FFFFFF'><INPUT TYPE='hidden' NAME='search_keywords' VALUE=''>")
  document.writeln("<INPUT TYPE='hidden' NAME='refine_category' VALUE=''><INPUT TYPE='hidden' NAME='time_fgcolor' VALUE='ff0000'>")
  document.writeln("<INPUT TYPE='hidden' NAME='access_fgcolor' VALUE='ff0000'><INPUT TYPE='hidden' NAME='time_font_size' VALUE='-2'>")
  document.writeln("<INPUT TYPE='hidden' NAME='headline_bgcolor' VALUE='FFFFFF'><INPUT TYPE='hidden' NAME='access_font_size' VALUE='-2'>")
  document.writeln("<INPUT TYPE='hidden' NAME='cluster_name' VALUE='c=US%20news&o=js'><INPUT TYPE='hidden' NAME='heading_display' VALUE='Yes'>")
  document.writeln("<INPUT TYPE='hidden' NAME='headline_fgcolor' VALUE='000000'><INPUT TYPE='hidden' NAME='source_font' VALUE='Arial,Helvetica, sans-serif'>")
  document.writeln("<INPUT TYPE='hidden' NAME='access_font' VALUE='Arial,Helvetica, sans-serif'><INPUT TYPE='hidden' NAME='headline_font_size' VALUE='-1'>")
  document.writeln("<INPUT TYPE='hidden' NAME='headline_font' VALUE='Arial,Helvetica, sans-serif'><INPUT TYPE='hidden' NAME='heading_bold' VALUE='Yes'>")
  document.writeln("<INPUT TYPE='hidden' NAME='item_spacing' VALUE='5'><INPUT TYPE='hidden' NAME='wizard_brand' VALUE='moreover_new'>")
  document.writeln("<INPUT TYPE='hidden' NAME='heading_bgcolor' VALUE='FFFFFF'><INPUT TYPE='hidden' NAME='cluster_cellpadding' VALUE='1'>")
  document.writeln("<INPUT TYPE='hidden' NAME='heading_fgcolor' VALUE='000000'><INPUT TYPE='hidden' NAME='source_fgcolor' VALUE='ff0000'>")
  document.writeln("<INPUT TYPE='hidden' NAME='cluster_border' VALUE='0'><INPUT TYPE='hidden' NAME='cluster_layout' VALUE='<br>'>")

  document.writeln("</FORM>");
  // End of clone button code //

  document.writeln("</TABLE></CENTER></TD></TR></TABLE></CENTER>");

  // ************************************************************************************
  // This code is subject to the copyright and warranty restrictions detailed at 
  // <a href="http://www.moreover.com/wizard_copyright.html" target="_blank">http://www.moreover.com/wizard_copyright.html</a>
  // Copyright 2000 Moreover.com Inc. All rights reserved.
  // *************************************************************************************
  } 
  // -->
  </script><!-- End Of Stratics.com News Javascript Code --><%
   Response.Write   "                </font></td>" & vbNewLine & _
          "              </tr>" & vbNewLine
end if
Response.Write	"            </table>" & vbNewLine & _
       "          </td>" & vbNewLine & _
       "        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine
%>