jamietshaw.co.uk - Web programming (ASP)

Content rotation
Description Make part of your web page change randomly using ASP. This content can be anything that you would put in a web page.
Instructions Put the first part of the code below into your web page where you want the rotating content to appear. Then create a text file (this example assumes it is named rotatetext.txt) similar to the bottom part of the code. This specifies the pieces of code you want to rotate against and a weighting so you can make some pieces appear more often than others.

Show/hide code View example

<!-- This code goes in your web page at the point where you want the content to appear -->
<%
Dim objContentRotator, strContent
Set objContentRotator = Server.CreateObject("MSWC.ContentRotator")
strContent = objContentRotator.ChooseContent("rotatetext.txt")
Response.Write(strContent)
%>

<!-- This code goes in a text file, rotatetext.txt in this case
Each section starts with two percent signs then a weighting of your choice. You can have as many sections as you want. In this case, the second section is 2.5 times more likely to be used than the first. You can use any numbers you want, e.g. 1 and 2 is the same as 50 and 100. -->
%% #2
  <DIV id="Advert" style="position:absolute; left:660px; top:435px;

        width:187px; height:45px; z-index:4; background-color: #E8E8E8;

        layer-background-color: #E8E8E8; border: 1px none #000000; overflow:

        hidden">

          <TABLE width="100%" border="0" cellspacing="0" cellpadding="0">

           <TR height=5><TD></TD></TR>

           <TR height=35>

             <TD class="OtherPages" width="10">&nbsp;</TD>

             <TD class="OtherPages" width="177">New look front page!</TD>

           </TR>

          </TABLE>

          </DIV>

        

        

        %% #5

          <DIV id="Advert" style="position:absolute; left:660px; top:435px; width:187px; height:87px; z-index:4; background-color: #E8E8E8;

        layer-background-color: #E8E8E8; border: 1px none #000000; overflow: hidden">

          <TABLE width="100%" border="0" cellspacing="0" cellpadding="0">

           <TR height=5><TD></TD></TR>

           <TR height=35>

             <TD class="OtherPages" width="10">&nbsp;</TD>

             <TD class="OtherPages" width="177">CSB activity logs have been moved. You can now find them within the <a href="activity.asp">Documentation</a>

        section.</TD>

           </TR>

          </TABLE>

          </DIV>