<%@ Page Language="VB" Debug="true" %> <script runat="server">
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) Dim myAL As New ArrayList() Dim RanNumber Try myAL.Add("http://mightymichelob.tcworks.net:8080/") myAL.Add("http://www.the-server.net:8000/") myAL.Add("http://osi.matrixau.net:8080/") myAL.Add("http://osi.welcometo.hk:8080/") myAL.Add("http://snind.gotdns.com:8080/")
RanNumber = CInt(Int((myAL.Count* Rnd()) + 1)) msnImages.imageURL=myAL(RanNumber)&"/msn/[email protected]/onurl=www.nextproject.net/images/msn_online.gif/ offurl=www.nextproject.net/images/msn_offline.gif/unknownurl=www.nextproject.net/ images/msn_unknow.gif" Catch Ex As Exception End Try End Sub
</script> <asp:HyperLink id="msnImages" runat="server" Width="100px"></asp:HyperLink> |