<% On Error Resume Next %> <% if (Request.ServerVariables("QUERY_STRING") = "") then %>

Astro Mt. Bike Company

 <% Set Session("foo") = Server.CreateObject("MSWC.AdRotator") %> <% else %>

<% =Session("foo").GetAdvertisement("/smoke/adrot.txt") %>

 <% end if %>