ASP Content Rotator Component (ASP 3.0)






<!--
main_leaderboard, all: [728,90][970,90][320,50][468,60]
-->



ASP Content Rotator Component (ASP 3.0)



❮ Previous
Next ❯



ASP Content Rotator Component


The ASP Content Rotator component creates a ContentRotator object that displays a
different content string each time a visitor 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")
%>



ASP Content Rotator Example



The following example displays a different content each time a visitor views
the Web page.


First, create a text file named "textads.txt" and place it in a subfolder called
"text".


"textads.txt":





%% #3
<h2>This is a great day!!</h2>

%% #3
<img src="smiley.gif">

%% #4
<a href="https://www.w3schools.com">Visit W3Schools.com</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 the text file above, the Content Rotator will display the first and
second content
string three-tenth of the time, and the third string four-tenths of
the time.


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




Example



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


Show Example »






<!--
mid_content, all: [300,250][336,280][728,90][970,250][970,90][320,50][468,60]
-->





ASP Content Rotator Component's 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:

Smiley


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!!


Smiley


Visit W3Schools.com





❮ Previous
Next ❯

Popular posts from this blog

Chat program with C++ and SFML

Function to Return a JSON Like Objects Using VBA Collections and Arrays

Will my employers contract hold up in court?