<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rsEvents Dim rsEvents_cmd Dim rsEvents_numRows Set rsEvents_cmd = Server.CreateObject ("ADODB.Command") rsEvents_cmd.ActiveConnection = MM_connData_STRING rsEvents_cmd.CommandText = "SELECT *,evDisplayDate + ' ' + evTime +evLocation AS rssDesc FROM tblEvents WHERE evEndDate >=(NOW) ORDER BY evEndDate ASC" rsEvents_cmd.Prepared = true Set rsEvents = rsEvents_cmd.Execute rsEvents_numRows = 0 %> <% '*********************** ' http://www.DwZone-it.com ' Rss Writer ' Version 1.2.5 ' Start Code '*********************** Dim dwzRss_rsEvents Set dwzRss_rsEvents = new dwzRssExport dwzRss_rsEvents.Init dwzRss_rsEvents.SetEncoding "utf-8;65001;Unicode (UTF-8)" dwzRss_rsEvents.SetPubDate "true" dwzRss_rsEvents.SetTitle "San Bernardino Valley Enterprise Zone Events" dwzRss_rsEvents.SetDescription "SBVEZ Schedule of Events. All events are free unless otherwise noted." dwzRss_rsEvents.SetLink "http://www.sbvez.com/events.asp" dwzRss_rsEvents.SetRecordset rsEvents dwzRss_rsEvents.SetItemTitle "evName" dwzRss_rsEvents.SetItemDescription "rssDesc" dwzRss_rsEvents.SetItemLink "" dwzRss_rsEvents.SetItemLinkText "http://www.sbvez.com/events.asp" dwzRss_rsEvents.SetItemAuthor "evAuthor" dwzRss_rsEvents.SetItemPubDate "evPosted" dwzRss_rsEvents.SetFileName "" dwzRss_rsEvents.SetNumberOfRecord "ALL" dwzRss_rsEvents.SetStartOn "ONLOAD", "" dwzRss_rsEvents.SetTimeZone "-0800" dwzRss_rsEvents.SetFeedImage "__@_@____@_@__" dwzRss_rsEvents.SetAdditionalInfo "en__@_@__RSS__@_@__1440__@_@____@_@____@_@____@_@__" dwzRss_rsEvents.Execute() '*********************** ' http://www.DwZone-it.com ' Rss Writer ' End Code '*********************** %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> <% rsEvents.Close() Set rsEvents = Nothing %>