Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

funzione scroll eventi adattata alle news

Autore Messaggio
lucapuccetti

Utente
Utente
93 Discussioni



Profilo - lucapuccetti
27 marzo 2005 alle 17:57:35 Profilo - lucapuccettiInvia un messaggio privato Rispondi quotando
Salve a tutti.

Ho visto lo splendido script che scrolla gli eventi della versione 2.05. Io lavoro con una versione supercustomizzata della 1.2. Ho una pagina che scorre le ultime 10 news

http://www.pillole.org/public/aspnuke/homepagemultitop10.asp

come vedete include una pagina news-inc modificata ma non è quiesto il problema.

Ho visto la funzione che scrolla gli eventi nella nuova versione, se non erro la funzione dovrebbe essere contenuta dentro /include/calendar-inc.asp alla sub

DisplayTopHomeEvents

Ebbeno NON riesco ad adattare lo script di questa sub alla mia pagina delle news in modo che mi scrolli con una pausa una notizia rispetto all'altra.

Potete aiutarmi?

capisco che sia una esigenza particoalre e vi ringrazio comunque

auguri

Luca Puccetti Pisa

il codice della pagina è questo


<!-- #include file='includes/includes-inc.asp' -->
<!-- #include file='includes/newshome-inc.asp' -->
<_Script language="Java_Script">
var speed=1
var currentpos=0,alt=1,curpos1=0,curpos2=-1
function initialize(){
startit()
}
function scrollwindow(){
if (document.all)
temp=document.body.scrollTop
else
temp=window.pageYOffset
if (alt==0)
alt=1
else
alt=0
if (alt==0)
curpos1=temp
else
curpos2=temp
if (curpos1!=curpos2){
if (document.all)
currentpos=document.body.scrollTop+speed
else
currentpos=window.pageYOffset+speed
window.scroll(0,currentpos)
}
else{
currentpos=0
window.scroll(0,currentpos)
}
}
function startit(){
setInterval("scrollwindow()",300)
}
window.onload=initialize
</_Script>


<_Script language="Java_Script" type="text/Java_Script">
profilo = new Image()
profilo.src = "/cornice_file/proponi2.png"
</_Script>

<%
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=""Generator"" CONTENT=""ASP-Nuke"">" & vbCRLF
Response.Write "<meta name=""robots"" CONTENT=""index,follow"">" & 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 bgcolor=""#FFFFFF"" marginheight=""0"" marginwidth=""0"" leftmargin=""3"" topmargin=""0"">" & vbCRLF

%>

<%
Dim conn2, rs2, sql2, ultima, conteggiorecords


set conn2=server.createobject("adodb.connection")
conn2.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/public/aspnuke/db/main.mdb")
sql2="select top 10 * from news WHERE nvalid= true order by ndate desc"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2, conn2, 1, 3

conteggiorecords = rs2.RecordCount
If Not rs2.EOF Then
While Not rs2.EOF

if conteggiorecords => 1 then

ultima= rs2("nID")

else ultima ="1"


end if



Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF

Response.Write "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""0"" align=""center"">" & vbCRLF
Response.Write " <tr>" & vbCRLF

Response.Write " <td width=""100%"" valign=""top"">" & vbCRLF



DisplayNews ultima, true, True
'DisplayTopNews2 GLOBAL_NEWS_LINKS_TOP, 0
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF


Response.Write "</table>" & vbCRLF
rs2.MoveNext
WEnd
End If

rs2.Close
conn2.close
set rs2=nothing
set conn2=nothing
%>
<!-- #include file='includes/clearitall-inc.asp' -->

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 : 161
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: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685140 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi