Feed in ASP: convertire data in RFC-822

Ecco una semplice funzione ASP Classic per convertire una data in RFC-822, il formato utilizzato dai feed.

Function date2RFC822(data, offset)
   data = CDate(data)
   giorno = WeekdayName(Weekday(data),true)
   giornoN = Day(data)
   mese = MonthName(Month(data), true)
   anno = Year(data)
   hours = zeroPad(Hour(data), 2)
   minutes = zeroPad(Minute(data), 2)
   seconds = zeroPad(Second(data), 2)

   date2RFC822 = giorno &", "& giornoN &" "& mese &" "& anno &" "& hours&":"& minutes&":"& seconds&" "& offset
End Function

Function zeroPad(m, t)
	zeroPad = String( t - Len(m), "0") & m
End Function

<%=return_RFC822_Date("23/10/1985", "GMT")%>
<%=return_RFC822_Date(Now(), "GMT")%

restituisce

Wed, 23 Oct 1985 00:00:00 GMT
Sat, 27 Jun 2009 06:48:03 GMT