<% Set Ad = Server.CreateObject("MSWC.Adrotator") Response.Write(Ad.GetAdvertisement("..\ads-h.txt")) %> <% Set Ad = Server.CreateObject("MSWC.Adrotator") Response.Write(Ad.GetAdvertisement("..\ads-h.txt")) %> <% Set Ad = Server.CreateObject("MSWC.Adrotator") Response.Write(Ad.GetAdvertisement("..\ads-h.txt")) %>