<%
Function ShowAdvertisementBot()

	Dim objAdBot
	Set objAdBot = Server.CreateObject("MSWC.AdRotator")
	ShowAdvertisementBot = objAdBot.GetAdvertisement("list4bot.txt")
	Set objAdBot = Nothing	
 
End Function
%>