<%
dim l
l = Request("l")
Set objRec2 = Server.CreateObject("ADODB.Recordset")
Set objRec2.ActiveConnection = my_Conn
strSQL = "SELECT TOP 4 * FROM " & strTablePrefix & "SITE_LINKS WHERE N_IMAGE = '"& l & "' ORDER BY LINKID DESC"
objRec2.Open strSQL, my_Conn
cont=1
Do While Not objRec2.EOF
if cont=1 then
NAME1=objRec2("NAME")
LINKID1=objRec2("LINKID")
ADDED1=objRec2("ADDED")
N_CAT1=objRec2("N_CAT")
'CatID1=objRec2("CatID")
'CATTITLE1=Server.URLEncode(CATTITLE)
' areanum1=areanum
end if
if cont=2 then
NAME2=objRec2("NAME")
LINKID2=objRec2("LINKID")
ADDED2=objRec2("ADDED")
N_CAT2=objRec2("N_CAT")
'CatID2=objRec2("CatID")
'CATTITLE2=(CATTITLE)
'areanum2=areanum
end if
if cont=3 then
NAME3=objRec2("NAME")
LINKID3=objRec2("LINKID")
ADDED3=objRec2("ADDED")
N_CAT3=objRec2("N_CAT")
'CatID3=objRec2("CatID")
'CATTITLE3=CATTITLE
'areanum3=areanum
end if
cont=cont+1
objRec2.MoveNext
Loop
objRec2.Close
Set objRec2 = Nothing
my_Conn.Close
Set my_Conn = Nothing
%>
<style type="text/css">
#divNewsCont {position:absolute; left:5px; top:5px; width:300px; height:80px; clip:rect(0px 300px 100px 0px); visibility:hidden; overflow:hidden;background-color:#FFFFF0;border:ridge 1px #446E44;}
#divNews {position:absolute;}
</style>
<script language="JavaScript" type="text/javascript">
function lib_bwcheck(){ //Browsercheck (needed)
this.ver=navigator.appVersion
this.agent=navigator.userAgent
this.dom=document.getElementById?1:0
this.opera5=this.agent.indexOf("Opera 5")>-1
this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom && !this.opera5)?1:0;
this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom && !this.opera5)?1:0;
this.ie4=(document.all && !this.dom && !this.opera5)?1:0;
this.ie=this.ie4||this.ie5||this.ie6
this.mac=this.agent.indexOf("Mac")>-1
this.ns6=(this.dom && parseInt(this.ver) >= 5) ?1:0;
this.ns4=(document.layers && !this.dom)?1:0;
this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.opera5)
return this
}
var bw=new lib_bwcheck()
//How do you want the script to work?
//0 = Fade in - Fade out
//1 = Slide in - Fade out
//2 = Random
nWorks = 1
//If you use the slide set these variables:
nSlidespeed = 5 //in px
nNewsheight = 120 //This is how long down it should start the slide.
nBetweendelay = 3000 //The delay before fading out.
nFont = 'arial,helvetiva' //The font for the news.
nFontsize = 12 //Font size in pixel.
nFadespeed = 100 //The speed to fade in, in milliseconds.
//Set the colors, first color is same as background, last color is the color it stops at:
//You can have as many colors you want
nColor=new Array('#FFFFFF', '#EEEEEE','#CCCCCC','#999999','#666666','#333333', '#000000')
//This is the news you wanna have, set the link and the text. If you don't wan't it to link anywhere
//use a # as the link
nNews=new Array()
//Copy there three lines and change the info and numbers to get more news.
nNews[0]=new Array()
nNews[0]["text"]="
<%=N_CAT1%> - <%=ChkDate1(ADDED1)%> - <%=DisplayTime(ADDED1)%>
<%=NAME1%>"
nNews[0]["link"]="portal_redirect.asp?linkid=<%=LINKID1%>&linkname =<%=Server.URLEncode(NAME1)%>&catid=<%=CatID%>&cat title=<%=Server.URLEncode(CATTITLE)%>&area=<%=area num%>"
nNews[1]=new Array()
nNews[1]["text"]="
<%=N_CAT2%> - <%=ChkDate1(ADDED2)%> - <%=DisplayTime(ADDED2)%>
<%=NAME2%>"
nNews[1]["link"]="portal_redirect.asp?linkid=<%=LINKID2%>&linkname =<%=Server.URLEncode(NAME2)%>&catid=<%=CatID%>&cat title=<%=Server.URLEncode(CATTITLE)%>&area=<%=area num%>"
nNews[2]=new Array()
nNews[2]["text"]="
<%=N_CAT3%> - <%=ChkDate1(ADDED3)%> - <%=DisplayTime(ADDED3)%>
<%=NAME3%>"
nNews[2]["link"]="portal_redirect.asp?linkid=<%=LINKID3%>&linkname =<%=Server.URLEncode(NAME3)%>&catid=<%=CatID%>&cat title=<%=Server.URLEncode(CATTITLE)%>&area=<%=area num%>"
/************************************************** ******************************
Object code...Object constructors and functions...
************************************************** ******************************/
function makeNewsObj(obj,nest,font,size,color,news,fadespee d,betweendelay,slidespeed,works,newsheight){
nest=(!nest) ? "":'document.'+nest+'.'
this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document .all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;
this.writeref=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+"document.layers." +obj+".document"):0;
if(font){this.color=new Array(); this.color=eval(color); this.news=new Array(); this.news=eval(news)
this.font=font; this.size=size; this.speed=fadespeed; this.delay=betweendelay; this.newsheight=newsheight;
this.fadeIn=b_fadeIn;this.fadeOut=b_fadeOut; this.newsWrite=b_newsWrite; this.y=1
this.slideIn=b_slideIn; this.moveIt=b_moveIt; this.slideSpeed=slidespeed; this.works=works
if(bw.dom || bw.ie4){this.css.fontFamily=this.font; this.css.fontSize=this.size; this.css.color=this.color[0]}
}
this.obj = obj + "Object"; eval(this.obj + "=this"); return this
}
// A unit of measure that will be added when setting the position of a layer.
var px = bw.ns4||window.opera?"":"px";
function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x+px; this.css.top=this.y+px;}
function b_newsWrite(num,i){
if (bw.ns4){
this.writeref.write("<a href=\""+this.news[num]['link']+"\" target=\"myTarget\" style=\"text-decoration:none; font-size:"+this.size+"px\">"
+"<font face=\""+this.font+"\" color=\""+this.color[i]+"\">"+this.news[num]['text']+"</font></a>")
this.writeref.close()
}else this.writeref.innerHTML = '
'+this.news[num]['text']+''
}
//Slide in
function b_slideIn(num,i){
if (this.y>0){
if (i==0){this.moveIt(0,this.newsheight); this.newsWrite(num,this.color.length-1)}
this.moveIt(this.x,this.y-this.slideSpeed)
i ++
setTimeout(this.obj+".slideIn("+num+","+i+");",50)
}else setTimeout(this.obj+".fadeOut("+num+","+(this.colo r.length-1)+")",this.delay)
}
//The fade functions
function b_fadeIn(num,i){
if (i<this.color.length){
if (i==0 || bw.ns4) this.newsWrite(num,i)
else{
obj = bw.ie4?eval(this.obj+"link"):document.getElementBy Id(this.obj+"link")
obj.style.color = this.color[i]
}
i ++
setTimeout(this.obj+".fadeIn("+num+","+i+")",this. speed)
}else setTimeout(this.obj+".fadeOut("+num+","+(this.colo r.length-1)+")",this.delay)
}
function b_fadeOut(num,i){
if (i>=0){
if (i==0 || bw.ns4) this.newsWrite(num,i)
else{
obj = bw.ie4?eval(this.obj+"link"):document.getElementBy Id(this.obj+"link")
obj.style.color = this.color[i]
}
i --
setTimeout(this.obj+".fadeOut("+num+","+i+")",this .speed)
}else{
num ++
if(num==this.news.length) num=0
works = !this.works?0:this.works==1?1:Math.round(Math.rand om())
if(works==0) setTimeout(this.obj+".fadeIn("+num+",0)",500)
else if (works==1){this.y=1; setTimeout(this.obj+".slideIn("+num+",0)",500)
}
}
}
/************************************************** ******************************************
The init function. Calls the object constructor and set some properties and starts the fade
************************************************** *******************************************/
function fadeInit(){
oNews = new makeNewsObj('divNews','divNewsCont',nFont,nFontsiz e,"nColor","nNews",nFadespeed,nBetweendelay,nSlide speed,nWorks,nNewsheight)
oNewsCont = new makeNewsObj('divNewsCont')
works = !oNews.works?0
News.works==1?1:Math.round(Math.random())
if (works==0) oNews.fadeIn(0,0)
else if (works==1) oNews.slideIn(0,0)
oNewsCont.css.visibility = "visible"
}
//Calls the init function on pageload.
if(bw.bw) onload = fadeInit
</script>
</head>
<body marginleft="0" marginheight="0">
<div id="divNewsCont">
<div id="divNews">
</div>
</div>
</body>
</html>
Rispondi quotando