<%
Function ShowAdvertisement()

	Dim objAd
	Set objAd = Server.CreateObject("MSWC.AdRotator")
	objAd.TargetFrame = "TARGET=new" 
	ShowAdvertisement = objAd.GetAdvertisement("list4top.txt")
	Set objAd = Nothing	
 
End Function
%>