% Option Explicit Dim objContentRotator 'Content Rotator for top teasers Dim strRotatingContent 'Teaser string for Content Rotator 'Get top teaser content Set objContentRotator = Server.CreateObject("MSWC.ContentRotator") strRotatingContent = objContentRotator.ChooseContent("text/meditations.txt") Set objContentRotator = Nothing %>
|
|
|
Copyright ©
2001-2003 Bede Griffiths Association. All rights
reserved. |