Corrected the Rss Date Format error of KingCms.

 

The date format of the Rss file generated by kingcms is generated using the now () function and does not comply with the Rss writing specifications, you can use the following function to convert the asp date format to the date format supported by Rss:

'Time Conversion Function, compliant with rfc822 Standard
Private Function return_RFC822_Date (byVal myDate, byVal TimeZone)
Dim myDay, myDays, myMonth, myYear
Dim myHours, myMinutes, mySeconds
MyDate = CDate (myDate)
MyDay = EnWeekDayName (myDate)
MyDays = Right ("00" & Day (myDate), 2)
MyMonth = EnMonthName (myDate)
MyYear = Year (myDate)
MyHours = Right ("00" & Hour (myDate), 2)
MyMinutes = Right ("00" & Minute (myDate), 2)
MySeconds = Right ("00" & Second (myDate), 2)
Return_RFC822_Date = myDay &","&_
MyDays &""&_
MyMonth &""&_
MyYear &""&_
MyHours &":"&_
MyMinutes &":"&_
MySeconds &""&_
TimeZone
End Function

'Week Conversion Function
Private Function EnWeekDayName (InputDate)
Dim Result
Select Case WeekDay (InputDate, 1)
Case 1: Result = "Sun"
Case 2: Result = "Mon"
Case 3: Result = "Tue"
Case 4: Result = "Wed"
Case 5: Result = "Thu"
Case 6: Result = "Fri"
Case 7: Result = "Sat"
End Select

EnWeekDayName = Result
End Function

'Month Conversion Function
Private Function EnMonthName (InputDate)
Dim Result
Select Case Month (InputDate)
Case 1: Result = "Jan"
Case 2: Result = "Feb"
Case 3: Result = "Mar"
Case 4: Result = "Apr"
Case 5: Result = "May"
Case 6: Result = "Jun"
Case 7: Result = "Jul"
Case 8: Result = "Aug"
Case 9: Result = "Sep"
Case 10: Result = "Oct"
Case 11: Result = "Nov"
Case 12: Result = "Dec"
End Select

EnMonthName = Result
End Function

MsgBox return_RFC822_Date (Now (), "GMT ")

 

Excerpted from: space in the red dust