<%
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write \"<a href=\'
http://\" & Record(\"http\") & \"\'><img src=\'\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border = \'0\'></a>\"
end function
\' *******************************************************
\' * Vælg den connection type der passer dig bedst :-) *
\' *******************************************************
\' *******************************************************
\' * DSN, bruger dsn = testdb der peger på banner.mdb *
\' *******************************************************
\' Set Rs = Server.CreateObject(\"ADODB.Connection\")
\' Rs.Open \"DSN=testdb;uid=;pwd=\"
\' *******************************************************
\' * DSN Less, banner.mdb i samme katalog som banner.asp *
\' *******************************************************
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"banner.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
Sql = \"Select count(*) as Found from T_Banner\"
Set Record = Rs.Execute(Sql)
Ialt = Record(\"found\")
Sql = \"Select * from T_Banner\"
Set Record = Rs.Execute(Sql)
\' *******************************************************
\' * Her kan man selv sætte hvor mange bannere man *
\' * ønsker, kald show() X antal gange, samt hvordan *
\' * disse skal placeres. *
\' *******************************************************
Response.Write \"<center>\"
Show()
%>