<html>
<head><title>Slumpa länk</title>
<style type="text/css">
<!--
a:link { text-decoration: none; color: #000000}
a:visited { text-decoration: none; color: #555555}
a:active { text-decoration: none; color: #875234}
a:hover { text-decoration: underline}
-->
</style>
<meta http-equiv="refresh" content="60">
</head>
<body>
<%
Dim link(11)
link(1) = "<a href='http://aspkoll.se' target='blank'>Aspkoll.se</a>"
link(2) = "<a href='http://w3schools.com' target='blank'>W3Schools.com</a>"
link(3) = "<a href='http://webdesignskolan.com' target='blank'>Webdesignskolan.com</a>"
link(4) = "<a href='http://htmlsidan.se' target='blank'>Html-sidan.se</a>"
link(5) = "<a href='http://tiger.se' target='blank'>tiger.se</a>"
link(6) = "<a href='http://unikwebdesign.se' target='blank'>Unikwebdesign.se</a>"
link(7) = "<a href='http://w3.org' target='blank'>W3.org</a>"
link(8) = "<a href='http://phpportalen.net' target='blank'>PHPPortalen.net</a>"
link(9) = "<a href='http://phpsidan.nu' target='blank'>PHPSidan.nu</a>"
link(10) = "<a href='http://javascript.nu' target='blank'>Javascript.nu</a>"
link(11) = "<a href='http://aspsidan.nu' target='blank'>ASPSidan.nu</a>"
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(intHighestNumber * Rnd) + 1
End Function
Response.Write(link( RandomNumber(11) ))
%>
</body>
</html>
Detta tips skapades 2007-12-25 13:09:00 av Pettersoft. Det har lästs 602 gånger. ||