<html>
<body>
<%
Dim linkSite(5)
linkSite(1) = "http://www.naver.com"
linkSite(2) = "http://www.daum.net"
linkSite(3) = "http://www.empas.com"
linkSite(4) = "http://www.yahoo.co.kr"
linkSite(5) = "http://www.nate.com"
randomize()
r=Int((5 * Rnd) + 1) '1부터 5까지 난수값을 생성
response.write "<a href='" & linkSite(r) & "' target=blank>웹마당(http://cafe.naver.com/webmadangnet.cafe)</a>"
%>
</body>
</html>