Output formato data

[cms9651]

Ciao.
Servirebbe un aiuto.

Questo codice ASP restituisce il seguente output 20/03/2012 22.51.42:

function TimestampToData(timestamp)
	if IsNumeric(timestamp) then
		TimestampToData = dateadd("s", timestamp, "01/01/1970 00.00.00")
	else
		TimestampToData = Now()
	end if
end function

...

response.write TimestampToData(rs("data_ricevuto"))

Non riesco ad ottenere invece questo output: Mar, 20 Mar 2012 22:53:16 +0100

Come posso fare?
grazie

[michele.santoro]

Originariamente inviato da cms9651
Ciao.
Servirebbe un aiuto.

Questo codice ASP restituisce il seguente output 20/03/2012 22.51.42:

function TimestampToData(timestamp)
	if IsNumeric(timestamp) then
		TimestampToData = dateadd("s", timestamp, "01/01/1970 00.00.00")
	else
		TimestampToData = Now()
	end if
end function

...

response.write TimestampToData(rs("data_ricevuto"))

Non riesco ad ottenere invece questo output: Mar, 20 Mar 2012 22:53:16 +0100

Come posso fare?
grazie

Prova così:

data_ricevuto = rs("data_ricevuto")
response.write (FormatDateTime(data_ricevuto, 1) & " ")

[cms9651]

Grazie per l'interessamento, ma non va.

This page contains the following errors:

error on line 1 at column 1: Document is empty
Below is a rendering of the page up to the first error.

<%

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=xxx;USER=xxx;PASSWORD=xxx;OPTION=3;"

SQL = "SELECT SQL_CALC_FOUND_ROWS id, nome, data_ricevuto FROM tblxxx 1 order by id desc LIMIT 1;"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, objconn

If not rs.eof then

data_ricevuto = rs("data_ricevuto")
response.write (FormatDateTime(data_ricevuto, 1) & " ")


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>test</description>" & _
      "<link>http://www...../</link>" & _      
      "<language>it</language>"

  Do while not rs.eof
    xml = xml & "<item>"
    xml = xml & "<title>" & UCASE(rs("nome")) & "</title>"    
    xml = xml & "<description>" & formatnumber(objRs("x"),0) & "</description>" 
    xml = xml & "<link>....</link>" 
    xml = xml & "<pubDate>" & (FormatDateTime(data_ricevuto, 1)) & "</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
%>