Dette kode:
---------------
<%
Sql = "Select count(*) as Found from T_Banner"
Set Record = ConnBanner.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from T_Banner"
Set Record = ConnBanner.Execute(Sql)
Application.Lock
Application("strHusk") = Application("strHusk")+3
Application.Unlock
if Application("strHusk")>Ialt then
Application("strHusk")=1
End if
%>
<%
Function Show()
On Error resume next
rsCountBanner.Open "T_Banner", Rs, 0, 2, 2
RandNum = Application("strHusk")
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write "<a href=java script:PopopWindow('
http://www.sallingweb.dk/includenew/banner/visbanner.asp?Id=" & Record("ID")&"','','500','400','yes')><img src=http://www.sallingweb.dk/IncludeNew/banner/" & Record("banner") & " alt='" & Record("info") & "' border = '0'></a> "
'tæl visning op med 1
rsCountBanner.Filter = "ID = " & Record("ID")
rsCountBanner("antalbilledevisninger") = rsCountBanner("antalbilledevisninger") + 1
rsCountBanner.Update
x2=Application("strHusk")+1
if x2>Ialt then
x2=1
end if
RandNum2 = x2
Record.MoveFirst
For i = 1 to RandNum2 - 1
Record.MoveNext
next
Response.Write "<a href=java script:PopopWindow('
http://www.sallingweb.dk/includenew/banner/visbanner.asp?Id=" & Record("ID")&"','','500','400','yes')><img src=http://www.sallingweb.dk/IncludeNew/banner/" & Record("banner") & " alt='" & Record("info") & "' border = '0'></a> "
'tæl visning op med 1
rsCountBanner.Filter = "ID = " & Record("ID")
rsCountBanner("antalbilledevisninger") = rsCountBanner("antalbilledevisninger") + 1
rsCountBanner.Update
x3=x2+1
if x3>Ialt then
x3 = 1
End if
RandNum3 = x3
Record.MoveFirst
For i = 1 to RandNum3 - 1
Record.MoveNext
next
Response.Write "<a href=java script:PopopWindow('
http://www.sallingweb.dk/includenew/banner/visbanner.asp?Id=" & Record("ID")&"','','500','400','yes')><img src=http://www.sallingweb.dk/IncludeNew/banner/" & Record("banner") & " alt='" & Record("info") & "' border = '0'></a> "
'tæl visning op med 1
rsCountBanner.Filter = "ID = " & Record("ID")
rsCountBanner("antalbilledevisninger") = rsCountBanner("antalbilledevisninger") + 1
rsCountBanner.Update
Set rsCountBanner = Nothing
end function
Response.Write "<center>"
Show()
%>
----------------------
Giver på min comp, som det skal, dette:
---------------------
<center><a href=java script:PopopWindow('
http://www.sallingweb.dk/includenew/banner/visbanner.asp?Id=58','','500','400','yes')><img src=http://www.sallingweb.dk/IncludeNew/banner/XXX.jpg alt='XXX' border = '0'></a> <a href=java script:PopopWindow('
http://www.sallingweb.dk/includenew/banner/visbanner.asp?Id=60','','500','400','yes')><img src=http://www.sallingweb.dk/IncludeNew/banner/XXXX.jpg alt='XXXX' border = '0'></a> <a href=java script:PopopWindow('
http://www.sallingweb.dk/includenew/banner/visbanner.asp?Id=67','','500','400','yes')><img src=http://www.sallingweb.dk/IncludeNew/banner/XXXX.jpg alt='XXXX' border = '0'></a>
-------------------------
og på hendes giver det:
-------------------------
<center> </center>
--------------------------
kan det kaste lys over sagen?