%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% Dim BlogDataConn Dim MYSQL Dim rsBlog lcPlaceName = "Chipping Campden" lcURL = "http://www.cotswoldevents.com" %> <% 'create object Dim rss Set rss= New RSSContentFeed strFeed = "http://www.cotswoldswebsite.com/getevents.asp?p=Chipping Campden" 'get content rss.ContentURL = strFeed rss.GetRSS() Dim i %>
![]() |
Find us on the | <%=lcPlaceName%> EventsWelcome the the <%=lcPlaceName%> events page of the Cotswold Events website, an online diary of events in the Cotswolds
Forthcoming events in the <%=lcPlaceName%> area include : <%=rss.ChannelTitle%>
<%
For Each i in rss.Results
lcDescription = REPLACE(rss.descriptions(i),"","")
%>
<%=rss.Titles(i)%>
|
|