ASP Content Rotator

From http://www.w3schools.com (Copyright Refsnes Data)

# ASP Content Rotator (ASP 3.0)

## Examples

The Content Rotator Component
This component displays a different HTML content string each time a user visits or refreshes the page.

## ASP Content Rotator Component

The ASP Content Rotator component creates a ContentRotator object that displays a different HTML content string each time a user enters or refreshes a page. A text file, called the Content Schedule File, includes the information about the content strings.

The content strings can contain HTML tags so you can display any type of content that HTML can represent: text, images, colors, or hyperlinks.

### Syntax

<% Set cr=Server.CreateObject( "MSWC.ContentRotator" ) %>

The following example displays a different content each time a user views the Web page. Create a text file named "textads.txt" in your default Web Site folder, in a subfolder called text.

"textads.txt":

%% #1
This is a great day!!
%% #2
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Here's a <a href="http://www.w3schools.com">link.</a>

Notice the #number at the beginning of each content string. This number is an optional parameter that indicates the relative weight of the HTML content string. In this example, the Content Rotator will display the first content string one-tenth of the time, the second string two-tenths of the time, the third string three-tenths of the time, and the fourth string four-tenths of the time.

Then, create an ASP file, and insert the following code:

<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>

The ASP Content Rotator Component's methods are described below:

### Methods

Method | Description | Example
--- | --- | ---

ChooseContent

Gets and displays a content string

<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>

Output:

GetAllContent

Retrieves and displays all of the content strings in the text file

<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.GetAllContent("text/textads.txt"))
%>

Output:

This is a great day!!

# Smile

Here's a link.

From http://www.w3schools.com (Copyright Refsnes Data)