<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% xml = "" xml = "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & varSitePath & "" & vbNewLine xml = xml & "" & "News & Offers from " & varSiteTitle & ". See us at " & varSiteDomain & "" & vbNewLine xml = xml & "" & "http://www.rssboard.org/rss-specification" & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & varSitePath & "/images/kitchensink-h1.jpg" & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & varSitePath & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & "en-gb" & "" & vbNewLine xml = xml & "60" & vbNewLine Dim rsnews Dim rsnews_numRows Set rsnews = Server.CreateObject("ADODB.Recordset") rsnews.ActiveConnection = MM_dbconn_STRING rsnews.Source = "SELECT ContentTitle, ContentID, ContentDetails, ContentDate, ContentCreated FROM VWNewsCurrent ORDER BY ContentDate DESC, ContentTitle ASC" rsnews.CursorType = 0 rsnews.CursorLocation = 2 rsnews.LockType = 1 rsnews.Open() rsnews_numRows = 0 If Not rsnews.EOF Or Not rsnews.BOF Then Dim RepeatNews__numRows Dim RepeatNews__index RepeatNews__numRows = -1 RepeatNews__index = 0 rsnews_numRows = rsnews_numRows + RepeatNews__numRows While ((RepeatNews__numRows <> 0) AND (NOT rsnews.EOF)) 'set title, and change & to & Dim varOrgTitle, varDisplayTitle If (rsnews.Fields.Item("ContentTitle").Value) <> "" Then varOrgTitle = (rsnews.Fields.Item("ContentTitle").Value) varFormattedTitle = (Replace(varOrgTitle, "&", "&")) varDisplayTitle = varFormattedTitle End If ' set the details Dim varOrgText, varDisplayText If (rsnews.Fields.Item("ContentDetails").Value) <> "" Then varOrgText = (rsnews.Fields.Item("ContentDetails").Value) varDisplayText = "" End If 'define date created Dim FormattedDateCreated, varDateUsed varDateUsed= (rsnews.Fields.Item("ContentDate").Value) DayCreated = left(weekdayname(weekday(varDateUsed)),3) DateCreated = datepart("d", varDateUsed) If DateCreated < 10 Then DateCreated = "0" & DateCreated End If MonthCreated = left(monthname(datepart("m", varDateUsed)),3) YearCreated = datepart("yyyy", varDateUsed) FormattedDateCreated = DayCreated & ", " & DateCreated & " " & MonthCreated & " "& YearCreated 'define time created Dim FormattedTimeCreated, varTimeUsed varTimeUsed= (rsnews.Fields.Item("ContentCreated").Value) HourCreated = hour(varTimeUsed) If HourCreated < 10 Then HourCreated = "0" & HourCreated End If MinCreated = minute(varTimeUsed) If MinCreated < 10 Then MinCreated = "0" & MinCreated End If SecCreated = second(varTimeUsed) If SecCreated < 10 Then SecCreated = "0" & SecCreated End If FormattedTimeCreated = HourCreated & ":" & MinCreated & ":" & SecCreated xml = xml & "" & vbNewLine xml = xml & "" & vbNewLine xml = xml & "" & "info@" & varSiteDomain & "" & vbNewLine If (rsnews.Fields.Item("ContentID").Value) <> "" Then xml = xml & "" & varSitePath & "/press.asp#" & (rsnews.Fields.Item("ContentID").Value) & "" & vbNewLine Else ' use home page xml = xml & "" & varSitePath & "/" & "" & vbNewLine End If ' news id true xml = xml & "" & varDisplayText & "" & vbNewLine xml = xml & ""& FormattedDateCreated & " " & FormattedTimeCreated & " GMT" &"" & vbNewLine If (rsnews.Fields.Item("ContentID").Value) <> "" Then xml = xml & "" & varSitePath & "/news-offers-details.asp?ContentID=" & (rsnews.Fields.Item("ContentID").Value) & "" & vbNewLine Else ' use home page xml = xml & "" & varSitePath & "/" & "" & vbNewLine End If ' product id true xml = xml & "" & vbNewLine RepeatNews__index=RepeatNews__index+1 RepeatNews__numRows=RepeatNews__numRows-1 rsnews.MoveNext() Wend End If ' end Not rsnews.EOF Or NOT rsnews.BOF rsnews.Close() Set rsnews = Nothing xml = xml & "" & vbNewLine xml = xml & "" Response.Clear Response.Expires = 0 Response.ContentType = "text/xml" Response.Write xml %>