codice:
<%
Session.LCID = 1040
Function DateToStr(DateTime,ShowType)
Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond
Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2
TimeZone1="+0800"
TimeZone2="+08:00"
FullWeekday=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
shortWeekday=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
Fullmonth=Array("January","February","March","April","May","June","July","August","September","October","November","December")
Shortmonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
DateMonth=Month(DateTime)
DateDay=Day(DateTime)
DateHour=Hour(DateTime)
DateMinute=Minute(DateTime)
DateWeek=weekday(DateTime)
DateSecond=Second(DateTime)
If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
If Len(DateDay)<2 Then DateDay="0"&DateDay
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
Select Case ShowType
Case "Y-m-d"
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
Case "Y-m-d H:I A"
Dim DateAMPM
If DateHour>12 Then
DateHour=DateHour-12
DateAMPM="PM"
Else
DateHour=DateHour
DateAMPM="AM"
End If
If Len(DateHour)<2 Then DateHour="0"&DateHour
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
Case "Y-m-d H:I:S"
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
Case "YmdHIS"
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond
Case "ym"
DateToStr=Right(Year(DateTime),2)&DateMonth
Case "d"
DateToStr=DateDay
Case "ymd"
DateToStr=Right(Year(DateTime),4)&DateMonth&DateDay
Case "mdy"
Dim DayEnd
select Case DateDay
Case 1
DayEnd="st"
Case 2
DayEnd="nd"
Case 3
DayEnd="rd"
Case Else
DayEnd="th"
End Select
DateToStr=Fullmonth(DateMonth-1)&" "&DateDay&DayEnd&" "&Right(Year(DateTime),4)
Case "w,d m y H:I:S"
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=shortWeekday(DateWeek-1)&","&DateDay&" "& Left(Fullmonth(DateMonth-1),3) &" "&Right(Year(DateTime),4)&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&TimeZone2
Case "y-m-dTH:I:S"
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"T"&DateHour&":"&DateMinute&":"&DateSecond&TimeZone2
Case Else
If Len(DateHour)<2 Then DateHour="0"&DateHour
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
End Select
End Function
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=xxx;USER=xxx;PASSWORD=xxx;OPTION=3;"
SQL = "SELECT SQL_CALC_FOUND_ROWS "
SQL = SQL & " id "
SQL = SQL & " , nome "
SQL = SQL & " , data_ricevuto "
SQL = SQL & " FROM "
SQL = SQL & " tbl_login "
SQL = SQL & " WHERE 1 "
SQL = SQL & " order by id desc "
SQL = SQL & " LIMIT 1;"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, objconn
If not rs.eof then
strdata = rs("data_ricevuto")
dataOk = DateToStr(strdata,"w,d m y H:I:S")
SQL = "SELECT FOUND_ROWS() x;"
Set objRs = objconn.execute(SQL)
xml = "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>" & _
"<rss version=""2.0"">" & _
"<channel>" & _
"<title>Prova</title>" & _
"<description>Prova</description>" & _
"<link>http://www.xxxxx/feedrss/</link>" & _
"<language>it</language>"
Do while not rs.eof
xml = xml & "<item>"
xml = xml & "<title>Ciao " & UCASE(rs("nome")) & "</title>"
xml = xml & "<description>Numero " & formatnumber(objRs("x"),0) & "</description>"
xml = xml & "<link>http://www.xxxxx/feedrss/</link></link>"
xml = xml & "<pubDate>" & dataOk & "</pubDate>"
xml = xml & "</item>"
rs.movenext
Loop
objRs.close
set objRs=nothing
End if
xml = xml & "</channel></rss>"
response.ContentType = "text/xml"
response.write xml
rs.close
set rs=nothing
objconn.Close
set objconn=nothing
%>
Rispondi quotando
