Il componente ContentRotator della famiglia MSWC permette di gestire contenuti testuali reperendoli da un file di testo, mostrandoli a video singolarmente in maniera casuale, oppure mostrandoli tutti.

La struttura del file di testo, che chiameremo “database.txt”, è la seguente:

%% #1
Pippo
%% #2
Pluto
%% #3
Paperino

Utilizziamo i caratteri

%%

come separatori ed indicheremo, facoltativamente, un numero identificativo progressivo.

MSWC.ContentRotator dispone di due metodi: ChooseContent che recupera un contenuto a caso e GetAllContent che li recupera tutti. Entrambi accettano come parametro il file di testo di riferimento che non dev’essere recuperato col Server.MapPath.

Il codice seguente mostra come reperire, in maniera casuale, un contenuto dal file di testo creato in precedenza

<%@LANGUAGE = VBScript%>
<%
    Dim contenuti
    Set contenuti = Server.CreateObject("MSWC.ContentRotator")
    Response.Write contenuti.ChooseContent("database.txt")
    Set contenuti = Nothing
%>

Il codice seguente, invece, mostra come reperire tutti i contenuti dal file di testo creato in precedenza

<%@LANGUAGE = VBScript%>
<%
    Dim contenuti
    Set contenuti = Server.CreateObject("MSWC.ContentRotator")
    Response.Write contenuti.GetAllContent("database.txt")
    Set contenuti = Nothing
%>

E’ possibile, naturalmente, trattare come link i contenuti del file di testo.