<%
dim l
l = Request("l")
'Set objRec2.ActiveConnection = my_Conn
strSQL = "SELECT TOP 4 * FROM " & strTablePrefix & "SITE_LINKS WHERE N_IMAGE = '"& l & "' ORDER BY LINKID DESC"
Set objRec2 = Server.CreateObject("ADODB.Recordset")
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")
end if
if cont=2 then
NAME2=objRec2("NAME")
LINKID2=objRec2("LINKID")
ADDED2=objRec2("ADDED")
N_CAT2=objRec2("N_CAT")
end if
if cont=3 then
NAME3=objRec2("NAME")
LINKID3=objRec2("LINKID")
ADDED3=objRec2("ADDED")
N_CAT3=objRec2("N_CAT")
end if
if cont=4 then
NAME4=objRec2("NAME")
LINKID4=objRec2("LINKID")
ADDED4=objRec2("ADDED")
N_CAT4=objRec2("N_CAT")
end if
cont=cont+1
objRec2.MoveNext
Loop
objRec2.Close
Set objRec2 = Nothing
my_Conn.Close
Set my_Conn = Nothing
%>
<applet code="BELscrola.class" align="absbottom" width="150" height="140" VIEWASTEXT>
<param name="Notice" value="0000000000000000000000000000000000000000000 00000000000001 - Ver.1b">
<param name="bgcolor" value="#FFFFFF">
<param name="centertest" value="false">
<param name="lrmarginx" value="5">
<param name="xcrolldelay" value="12">
<param name="hlcolor" value="#0000CC">
<param name="delay0" value="8500">
<param name="size0" value="12">
<param name="testcolor0" value="#000000">
<param name="dexc0" value="<%=N_CAT1%> - <%=ChkDate1(ADDED1)%> - <%=DisplayTime(ADDED1)%>">
<param name="xtyle0" value="bold">
<param name="size1" value="12">
<param name="testcolor1" value="#000000">
<param name="xtyle1" value="">
<param name="dexc1" value="<%=NAME1%>">
<param name="fontface1" value="verdana">
<param name="xizepauxe1" value="1">
<param name="dexturl1" value="<% Response.Write "portal_redirect.asp?linkid=" & "LINKID1" & "&linkname=" &Server.URLEncode(NAME1) & "&catid=" & CatID1 & vbNewLine%>">
<param name="size2" value="10">
<param name="dexc2" value="">
<param name="xtyle2" value="plain">
<param name="fontface2" value="Verdana">
<param name="xizepauxe2" value="2">
<param name="dexc3" value="">
<param name="size3" value="10">
<param name="delay4" value="8500">
<param name="size4" value="12">
<param name="testcolor4" value="#000000">
<param name="xtyle4" value="bold">
<param name="dexc4" value="<%=N_CAT2%> - <%=ChkDate1(ADDED2)%> - <%=DisplayTime(ADDED2)%>">
<param name="fontface4" value="Verdana">
<param name="xizepauxe5" value="1">
<param name="dexturl5" value="<% Response.Write "portal_redirect.asp?linkid=" & "LINKID2" & "&linkname=" &Server.URLEncode(NAME2) & "&catid=" & CatID2 & vbNewLine%>">
<param name="size5" value="12">
<param name="testcolor5" value="#000000">
<param name="dexc5" value="<%=NAME2%>">
<param name="xtyle5" value="">
<param name="size6" value="10">
<param name="dexc6" value="">
<param name="xtyle6" value="plain">
<param name="fontface6" value="Verdana">
<param name="xizepauxe6" value="2">
<param name="dexc7" value="">
<param name="size7" value="10">
<param name="delay8" value="8500">
<param name="size8" value="12">
<param name="testcolor8" value="#000000">
<param name="xtyle8" value="bold">
<param name="dexc8" value="<%=N_CAT3%> - <%=ChkDate1(ADDED3)%> - <%=DisplayTime(ADDED3)%>">
<param name="fontface8" value="Verdana">
<param name="xizepauxe9" value="1">
<param name="dexturl9" value="<% Response.Write "portal_redirect.asp?linkid=" & "LINKID3" & "&linkname=" &Server.URLEncode(NAME3) & "&catid=" & CatID3 & vbNewLine%>">
<param name="size9" value="12">
<param name="testcolor9" value="#000000">
<param name="dexc9" value="<%=NAME3%>">
<param name="xtyle9" value="">
<param name="size10" value="10">
<param name="dexc10" value="">
<param name="xtyle10" value="plain">
<param name="fontface10" value="Verdana">
<param name="dexc11" value="">
<param name="size11" value="40">
<param name="delay12" value="8500">
<param name="size12" value="12">
<param name="testcolor12" value="#000000">
<param name="xtyle12" value="bold">
<param name="dexc12" value="<%=N_CAT4%> - <%=ChkDate1(ADDED4)%> - <%=DisplayTime(ADDED4)%>">
<param name="fontface12" value="Verdana">
<param name="xizepauxe13" value="1">
<param name="dexturl13" value="<% Response.Write "portal_redirect.asp?linkid=" & "LINKID4" & "&linkname=" &Server.URLEncode(NAME4) & "&catid=" & CatID4 & vbNewLine%>">
<param name="size13" value="12">
<param name="testcolor13" value="#000000">
<param name="dexc13" value="<%=NAME3%>">
<param name="xtyle13" value="">
<param name="size14" value="10">
<param name="dexc14" value="">
<param name="xtyle14" value="plain">
<param name="fontface14" value="Verdana">
<param name="dexc15" value="">
<param name="size15" value="15">
</applet>