how to add a timestamp to the date in rss page

[karen987]

This is the code i have for an RSS feed which shows all the latest articles from a news weblog. The problem is one of the search engines that index's news is saying that i should add a time stamp, because the code below only shows the date, not the timestamp. This is probably the reason some of the articles get rejected with "date too old" or "date not found".

Can someone show me what to put where? There is more code in the 2 include files if you need to see it. I'm not html literate, so i'd appreciate some help. Thanks in advance.

<!--#include file="config.asp"-->
<!--#include file="inc_api.asp"-->

    <% Dim SQL, RS, NID, TITLE, POSTED, NEWS_LISTING, I_RSS, SUMMARY, RSS_BUILD, TOP_X, X, MODEX, CID

    MODEX = APO(Request.QueryString("mode"))
    CID   = APO(Request.QueryString("cid"))
    TOP_X = Trim(Request.QueryString("top"))    

    IF IS_VALID_ID(CID) = False AND MODEX = "cate" THEN MODEX = ""
    IF IS_VALID_ID(TOP_X) = False THEN
        TOP_X = 25
    ELSE
        TOP_X = Cint(TOP_X)
    END IF     
        
    
    RSS_BUILD = RSS_BUILD & "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "<rss version=""2.0"">" & vbcrlf
    RSS_BUILD = RSS_BUILD & "    <channel>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "        <title>latest headlines</title>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "        <link>" & APPLICATION_URL & "</link>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "        <description>latest section news</description>" & vbcrlf
	RSS_BUILD = RSS_BUILD & "        <generator>mag RSS</generator>" & vbcrlf			
    RSS_BUILD = RSS_BUILD & "        <language>en-us</language>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "        <lastBuildDate>" & RFC822(Now(),0) & "</lastBuildDate>" & vbcrlf
  
  
    IF DB_TO_USE = 1 OR DB_TO_USE = 3 THEN ' MS Access 
        SELECT CASE Lcase(MODEX)
            CASE "recent" ' Most recent
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (Now() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY nm_tbl_news.ID DESC"
            CASE "pop"    ' Most accessed
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (Now() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY fldVIEWS DESC"        
            CASE "all"    ' All articles
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (Now() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY nm_tbl_news.ID DESC"
            CASE "highlighted"    
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (Now() BETWEEN fldPOSTED AND fldEXPIRES) AND (fldHIGHLIGHT = 1) ORDER BY nm_tbl_news.ID DESC"
            CASE "cate"
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (Now() BETWEEN fldPOSTED AND fldEXPIRES) AND (nm_tbl_news.ID IN (SELECT fldNEWS_ID FROM nm_tbl_news_cate WHERE fldCATE_ID = " & CID & ")) ORDER BY nm_tbl_news.ID DESC"
            CASE ELSE  ' Any other mode not listed above
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (Now() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY nm_tbl_news.ID DESC"
        END SELECT
    ELSE
        SELECT CASE Lcase(MODEX)
            CASE "recent" ' Most recent
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (GetDate() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY nm_tbl_news.ID DESC"
            CASE "pop"    ' Most accessed
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (GetDate() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY fldVIEWS DESC"        
            CASE "all"    ' All articles
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (GetDate() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY nm_tbl_news.ID DESC"
            CASE "highlighted"    
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (GetDate() BETWEEN fldPOSTED AND fldEXPIRES) AND (fldHIGHLIGHT = 1) ORDER BY nm_tbl_news.ID DESC"
            CASE "cate"
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (GetDate() BETWEEN fldPOSTED AND fldEXPIRES) AND (nm_tbl_news.ID IN (SELECT fldNEWS_ID FROM nm_tbl_news_cate WHERE fldCATE_ID = " & CID & ")) ORDER BY nm_tbl_news.ID DESC"
            CASE ELSE  ' Any other mode not listed above
                SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_news.fldPOSTED AS POSTED, fldSUMMARY FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (GetDate() BETWEEN fldPOSTED AND fldEXPIRES) ORDER BY nm_tbl_news.ID DESC"
        END SELECT    
    END IF    
        
    X = 0
    Call OPEN_DB()
    Set RS = Server.CreateObject("ADODB.Recordset")
    RS.LockType   = 1
    RS.CursorType = 0
    RS.Open SQL, MyConn	
    	 WHILE NOT RS.EOF 
            X = X + 1            
            IF Cint(X) =< TOP_X THEN
        	 	NID      = PREPARE_XML(RS("NID"))
                TITLE    = PREPARE_XML(RS("TITLE"))
                POSTED   = PREPARE_XML(RS("POSTED"))
                SUMMARY  = PREPARE_XML(RS("fldSUMMARY"))
                RSS_BUILD = RSS_BUILD & "<item>" & vbcrlf
                RSS_BUILD = RSS_BUILD & "    <title>" & PROCESS_SHORTCUTS_RSS(False, TITLE) & "</title>" & vbcrlf
                RSS_BUILD = RSS_BUILD & "    <link>" & PREPARE_XML(APPLICATION_URL) & "mainpage.asp?ID=" & NID & "</link>" & vbcrlf
                RSS_BUILD = RSS_BUILD & "    <pubDate>" & RFC822(POSTED,0) & "</pubDate>" & vbcrlf
                RSS_BUILD = RSS_BUILD & "    <description>" & PROCESS_SHORTCUTS_RSS(False, SUMMARY) & "</description>" & vbcrlf
                RSS_BUILD = RSS_BUILD & "</item>" & vbcrlf
            END IF
    	    RS.MoveNext
    	 WEND
    RS.Close 
    Set RS = Nothing
    MyConn.Close
    Set MyConn = Nothing
    
    RSS_BUILD = RSS_BUILD & "    </channel>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "</rss>" & vbcrlf
    RSS_BUILD = RSS_BUILD & "<!-- Generated by mage -->" & vbcrlf

	FUNCTION PROCESS_SHORTCUTS_RSS(blOPEN, TEXT)
	    Dim SQL, RS, strRETURNED_DATA, EOF_VAL, intNUM_COL, intNUM_ROW, intROW_COUNTER, strSIGN, strIMAGE    
        SQL = "SELECT fldSIGN, fldIMAGE FROM nm_tbl_library WHERE fldACTIVE = 1"
        Set RS = Server.CreateObject("ADODB.Recordset")
        RS.LockType   = 1
        RS.CursorType = 0
        RS.Open SQL, MyConn	
        	IF NOT RS.EOF THEN
        		strRETURNED_DATA = RS.getrows
        	ELSE
        		EOF_VAL = True
        	END IF	
        RS.close
        Set RS = Nothing   
	    IF Not EOF_VAL = True Then
	    	intNUM_COL=ubound(strRETURNED_DATA,1)
	    	intNUM_ROW=ubound(strRETURNED_DATA,2)
	    	FOR intROW_COUNTER = 0 TO intNUM_ROW
	    		strSIGN  = Trim(strRETURNED_DATA(0,intROW_COUNTER))
	            strIMAGE = Trim(strRETURNED_DATA(1,intROW_COUNTER))
	            TEXT = Replace(TEXT, strSIGN, "")
	    	NEXT
	    END IF                              
	    PROCESS_SHORTCUTS_RSS = TEXT
	END FUNCTION	
	
    With Response
       .Buffer = True
       .ContentType = "text/xml"
       .write(RSS_BUILD)
    End With  
    %>

[karen987]

I've decided not to fiddle with the system wide thing to change the time. Instead i'll just change the time on the comments if i can. I'd like to add 2 hours and to be able to adjust time in the future, depending on daylight saving. Below is the code for the comments, and the

<%=FormatDateTime(C_DATE,3)%>

shows the time like this

"4:34:20 AM"


Ironically, the comments show the time, but they have a separate database. The news database only shows the date, not the time. If there is a simple way to add the time in the news articles database, then i'd like to try it. Otherwise i'll do as i said above and just adjust the comments time.

Just to clarify the layout: The comments are added to the end of the article, by readers, and they open up in a separate small window from a link . Headlines of the comments show below the news article. Each headline shows the title, and date and time posted.

In other words, on the public side, i'd like the comments to show another time, 2 hours ahead. I don't mind if the database contains the orignal server time, since it won't show on the public sides. But if it's easier to adjust the database time then i'll do that.

Thanks in advance for any help.

--------------------

    SQL = "SELECT ID, fldNAME, fldCOMMENT, fldDATE, fldSUBJECT, fldM_ID, fldCITY, fldCOUNTRY, fldALLOW, fldEMAIL FROM nm_tbl_comment WHERE fldNEWS_ID = " & NID & " ORDER BY ID ASC" 
                            Set RS = Server.CreateObject("ADODB.Recordset") 
                            RS.LockType   = 1 
                            RS.CursorType = 0 
                            RS.Open SQL, MyConn     
                                 WHILE NOT RS.EOF 
                                    CCOUNT    = CCOUNT + 1 
                                      C_ID      = trim(RS("ID")) 

                                    C_NAME    = trim(RS("fldNAME")) 
                                    C_COMMENT = trim(RS("fldCOMMENT")) 
                                 C_SUBJECT = trim(RS("fldSUBJECT")) 
                                 C_M_ID    = trim(RS("fldM_ID")) 
                                    C_DATE    = trim(RS("fldDATE")) 
                                 C_CITY    = trim(RS("fldCITY")) 
                                 C_COUNTRY = trim(RS("fldCOUNTRY")) 
                                 C_ALLOW_E = trim(RS("fldALLOW"))     
                                 C_EMAIL = trim(RS("fldEMAIL"))     
                                 
                                    %>

this is the relevant part of the code

 <td width="100%"><%IF Trim(C_ALLOW_E) = "1" THEN%><a class="linkComment" href="file/_mail.asp?ID=<%=C_ID%>&AID=<%=NID%>" onClick="NewWindow(this.href,'name','450','410','Yes');return false;"> 
                                    <img src="blogs/img_ss.gif" width="14" height="9" alt="" border="0" /></a> <%END IF%> <span style="color: #4169E1; font-size: 10px"><%= C_NAME %> - <%=C_CITY%>-<%=C_COUNTRY%> - <%=FormatDateTime(C_DATE,2)%>-<%=FormatDateTime(C_DATE,3)%> </span></td>