Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      MODULI AGGIUNTIVI
         meglio citare adnkronos nel modulo

meglio citare adnkronos nel modulo

Autore Messaggio
nixthepix

Principiante
Principiante
13 Discussioni


Profilo - nixthepix 		01 giugno 2004 alle 11:47:55 Profilo - nixthepixInvia un messaggio privato Rispondi quotando
Modificato il 01 giugno 2004 alle 12:00:00
<%
'
' * ASP-Nuke: Free web portal in ASP *
'
' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) *
' * http://www.asp-nuke.com *
' * *
' * 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. *
' * *
' %>
<%
Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & vbCRLF
Response.Write "<html>" & vbCRLF
Response.Write "<head>" & vbCRLF
Response.Write "<title>" & GLOBAL_SITE_NAME & "</title>" & vbCRLF
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=" & sCharset & """>" & vbCRLF
Response.Write "<meta name=""Keywords"" CONTENT=""" & GLOBAL_META_KEYWORDS & """>" & vbCRLF
Response.Write "<meta name=""Description"" CONTENT=""" & GLOBAL_META_DESCRIPTION & """>" & vbCRLF
Response.Write "<meta name=""Author"" CONTENT=""" & GLOBAL_META_AUTHOR & """>" & vbCRLF
Response.Write "<meta name=""Revisit-after"" CONTENT=""15 days"">" & vbCRLF
Response.Write "<meta name=""Generator"" CONTENT=""ASP"">" & vbCRLF
Response.Write "<meta name=""robots"" CONTENT=""index,follow"">" & vbCRLF
Response.Write "<script language=""Java_Script"" type=""text/Java_Script"">" & vbCRLF
Response.Write " var myimages=new Array();" & vbCRLF
Response.Write " function preloadimages(){" & vbCRLF
Response.Write " for (i=0;i<preloadimages.arguments.length;i++){" & vbCRLF
Response.Write " myimages[i]=new Image();" & vbCRLF
Response.Write " myimages[i].src=preloadimages.arguments[i];" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " }" & vbCRLF
Response.Write " preloadimages(""" & GLOBAL_SITE_THEMES_PATH & sTheme & "/logo.jpg"");" & vbCRLF
Response.Write "</script>" & vbCRLF


Response.Write "<link rel=""stylesheet"" href=""" & GLOBAL_SITE_THEMES_PATH & sTheme & "/default.css"" type=""text/css"">" & vbCRLF
Response.Write "</head>" & vbCRLF
Response.Write "<body>" & vbCRLF
Response.Write "<table id=""TopPage"" width=""100%"" height=""60"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""topbanner"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td align=""left"" width=""40%""><a href=""" & GLOBAL_SITE_URL & "/default.asp""><img src=""" & GLOBAL_SITE_THEMES_PATH & sTheme & "/logo.gif"" border=""0"" alt=""Logo""></td>" & vbCRLF
Response.Write " <td align=""right"" width=""60%"">" & vbCRLF
If bDisplayAdvertising Then DisplayWebsiteAdvertising()
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
Response.Write "<table id=""InfoPage"" width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""InfoPage"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td width=""10""> </td>" & vbCRLF
Response.Write " <td width=""300"">" & sTitlePage & " "
DisplayNewPrivateMessages(sPseudo)
Response.Write "</td>" & vbCRLF
Response.Write " <td align=""right""> " & sInfoPage & "</td>" & vbCRLF
Response.Write " <td width=""10""> </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
Response.Write "<TABLE cellSpacing=0 cellPadding=0 align=center><!-- id=""Notizie"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"" class=""myTable""> -->" & vbCRLF
Response.Write "<TBODY>" & vbCRLF

Response.Write " <TR>" & vbCRLF


%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><font face="Arial" color="#FFFFFF"><p align="right">AdnKronos News </font></td>
<td width="50%"><!-- ADNKRONOS NEWS -->
<SCRIPT language="Java_Script">
<!--

function popWinOpen(str) // funzione chiamata dal Ticker (Banners.txt)


{searchWin=window.open(str,'popWinOpen','scrollbars=yes,resizable=no,status=no,location=no,toolbar=no');


}
//-->
</SCRIPT>

<div align="center">
<applet code="Banners.class" codebase="http://www.adnkronos.com/applet" width=437 height=21 mayscript="true">
<param name="bgColor" value="#0000FF">
<param name="pause" value="5">
<param name="font" value="Helvetica">
<param name="size" value="9">
<param name="fps" value="20">
<param name="cpf" value="6">
<param name="borderWidth" value="0">
<param name="borderColor" value="gray">
<param name="enter" value="ScrollLeft">
<param name="exit" value="ScrollLeft">
<param name="textColor" value="#FFFFFF">
<param name="repeat" value="5">
<param name="msgFile" value="http://www.adnkronos.com/applet/bannerNotizie.txt">
<param name="reloadInterval" value="50"></applet></div>
<!-- ADNKRONOS NEWS --> </td>
</tr>
</table>


<%

Response.Flush

Response.Write "<table id=""MainPage"" width=""100%"" height=""60"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""mytable"">" & vbCRLF
Response.Write " <tr class=""mytr"">" & vbCRLF
Response.Write " <td width=""10""> </td>" & vbCRLF
If IsArray(tLeftColumn) Then
Response.Write " <td width=""150""> </td>" & vbCRLF
Response.Write " <td width=""10""> </td>" & vbCRLF
End If
Response.Write " <td> </td>" & vbCRLF

If IsArray(tRightColumn) Then
Response.Write " <td width=""10""> </td>" & vbCRLF
Response.Write " <td width=""150""> </td>" & vbCRLF
End If

Response.Write " <td width=""10""> </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""mytr"">" & vbCRLF
Response.Write " <td width=""10""> </td>" & vbCRLF

If IsArray(tLeftColumn) Then
Response.Write " <td width=""150"" valign=""top"">" & vbCRLF
DisplayColumn(tLeftColumn)
Response.Write " </td>" & vbCRLF
Response.Write " <td width=""10""> </td>" & vbCRLF
End If

Response.Write " <td valign=""top"">" & vbCRLF
Response.Write " <table id=""Display"" width=""100%"" height=""450"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCRLF
Response.Write " <tr>" & vbCRLF
Response.Write " <td height=""440"" valign=""top"">" & vbCRLF
%>

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 93
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 425 Notizie: 180 Sondaggi: 11 Preferiti: 203059 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi