<%@ Language="VBScript" %> <% Response.Buffer = True %> [an error occurred while processing this directive] <% CONST Newsletter = "Taimerica" strXML = "" strXML = strXML & "" strXML = strXML & "" strXML = strXML & "" strXML = strXML & "" strXML = strXML & "Taimerica News and Reports" strXML = strXML & "http://www.taimerica.com/rss/taimerica.asp" OpenDB() id = Trim(Request.QueryString("id")) If id <> "" And IsNumeric(id) Then strSQL = "SELECT ID,fldDate,fldTitle,fldLink,fldDescription FROM rss WHERE fldNewsletter='"&Newsletter&"' AND ID="&id&" ORDER BY fldDate DESC, ID ASC" Else strSQL = "SELECT ID,fldDate,fldTitle,fldLink,fldDescription FROM rss WHERE fldNewsletter='"&Newsletter&"' ORDER BY fldDate DESC, ID ASC" End If OpenRS(strSQL) If Not objRS.EOF Then Do While Not objRS.EOF strXML = strXML & "" strXML = strXML & "" strXML = strXML & "http://www.taimerica.com/rss/taimerica.asp?id="&objRS("ID")&"" strXML = strXML & ""&RSSDate(objRS("fldDate"),"GMT")&"" strXML = strXML & ""&objRS("fldLink")&"" strXML = strXML & "" strXML = strXML & "" objRS.MoveNext Loop End If CloseRS() CloseDB() strXML = strXML & "" Response.ContentType = "text/xml" Response.Write(strXML) %>