salve vorrei sottoporvi questa pagina
http://www.mgimmobiliare.org/0406040...r.asp?cod=1297
questo lo script
<HTML>
<head>
<title></title>
</head>
<BODY onload="LoadAJScroller()" onresize="LoadAJScroller()">
<link href="stili.css" rel="stylesheet" type="text/css">
<DIV ID="TICKER" STYLE="overflow:hidden; width:520px">
TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST
</DIV>
<script type="text/javascript" src="webticker_lib.js"></script>
</td>
</tr></table>
<%
Dim cod
Dim SQL,Rec
Dim oCon
Dim oCon1
Dim oRS
Dim oRS1
Set oCon=Server.CreateObject("ADODB.Connection")
Set oCon1=Server.CreateObject("ADODB.Connection")
Set rec = Server.CreateObject("ADODB.Recordset")
cod=Request.Querystring("cod")
sql = "SELECT * FROM fototv WHERE codiceimmobile =" & cod
Set Rec=Conn.Execute(SQL)
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/1212.mdb")
Set oRS = oCon.Execute("select Indice from fotoimmobili3tv where CodiceImmobile=" & cod & " and pubblica<>0 order by indice")
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0"><tr>
<td width="100%">
<iframe width="100%" height="319" frameborder="0" allowtransparency="true" scrolling="yes" marginheight="0" marginwidth="0" src="1fotodx.asp?cod=<%=Rec("codiceimmobile")%>"></iframe>
</td>
</tr>
<tr>
<td width="100%">
<iframe width="100%" height="319" frameborder="0" allowtransparency="true" scrolling="yes" marginheight="0" marginwidth="0" src="2fotodx.asp?cod=<%=Rec("codiceimmobile")%>"></iframe>
</td>
</tr>
<tr>
<td width="100%">
<iframe width="100%" height="318" frameborder="0" allowtransparency="true" scrolling="yes" marginheight="0" marginwidth="0" src="3fotodx.asp?cod=<%=Rec("codiceimmobile")%>"></iframe>
</td>
</tr>
</table>
</BODY>
</HTML>
questo uno dei 3 frame
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="it">
<%
Dim cod
Dim SQL,Rec
Dim oCon
Dim oCon1
Dim oRS
Dim oRS1
Set oCon=Server.CreateObject("ADODB.Connection")
Set oCon1=Server.CreateObject("ADODB.Connection")
Set rec = Server.CreateObject("ADODB.Recordset")
cod=Request.Querystring("cod")
sql = "SELECT * FROM fototv WHERE codiceimmobile =" & cod
Set Rec=Conn.Execute(SQL)
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/121212.mdb")
Set oRS = oCon.Execute("select Indice from fotoimmobili3tv where CodiceImmobile=" & cod & " and pubblica<>0 order by indice")
%>
<head>
<title></title>
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Content-Language" content="it" />
<meta name="Robots" content="All" />
<meta name="Description" content="HTML.it - il sito italiano sul Web publishing" />
<meta name="Keywords" content="Ad ogni apertura di pagina questo script genera un differente colore di sfondo." />
<meta name="Owner" content="HTML.it srl" />
<meta name="Author" content="HTML.it srl" />
<meta name="Copyright" content="HTML.it srl" />
<body bgcolor="E3E4E6" scroll="no" topmargin="0" leftmargin="0">
<meta http-equiv="Content-Language" content="it" />
<link href="stili.css" rel="stylesheet" type="text/css">
<style type="text/css">
ul.ppt1 {
position: relative;
}
.ppt1 li {
list-style-type: none;
position: absolute;
top: 0;
left: 5;
}
.ppt1 img {
background-color: #ececec;
}
</style>
</head>
<body bgcolor="E3E4E6" scroll="no" topmargin="0" leftmargin="0">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" class="cartpub1"></td>
<td width="99%" class="cartpub1" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0"><tr>
<ul class="ppt1" valign="top">[*][img]/public/<%=rec([/img]" border="0" width="400" height="300"></img>[*][img]/public/<%=rec([/img]" border="0" width="400" height="300"></img>[*][img]/public/<%=rec([/img]" border="0" width="400" height="300"></img>[*][img]/public/<%=rec([/img]" border="0" width="400" height="300"></img>[*][img]/public/<%=rec([/img]" border="0" width="400" height="300"></img>[/list]
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js"></script>
<script type="text/javascript">
$('.ppt1 li:gt(0)').hide();
$('.ppt1 li:last').addClass('last');
var cur = $('.ppt1 li:first');
function animate() {
cur.fadeOut( 1000 );
if ( cur.attr('class') == 'last' )
cur = $('.ppt1 li:first');
else
cur = cur.next();
cur.fadeIn( 1000 );
}
$(function() {
setInterval( "animate()", 2500 );
} );
</script>
</tr>
</table>
</td>
</tr>
</table>
[/list]
</body>
</html>
Notate che tutte le volte che avviene la dissolvenza della foto il testo in alto rallenta e l'ho provato su altri computer con piu foto e il testo va a scatti ..addirittura si ferma
qualche consiglio
o qualche esempio simile da poter considerare ....
Rispondi quotando
