ASP Random image with links

Random image with links

//To run this script you need images.txt
//You can find it here http://codelibary.com/temp/images.txt

<%
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>
<html>
<body>

<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
adrotator.TargetFrame="target='_blank'"
response.write(adrotator.GetAdvertisement("images.txt"))
%>

</body>
</html>