Formattazione data tipo Timestamp(10)

[dino2004]

Utilizzo questo script per la estrazione di dati da database mysql:

<%
Set conn = Server.CreateObject("ADODB.Connection")
Set comm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
conn.CommandTimeout = 40
conn.CursorLocation = 1
conn.ConnectionString = "server=***;db=***;uid=***;pwd=***;driver=MySQ L"
conn.Open
comm.ActiveConnection = conn
comm.CommandType = 1
comm.CommandText = "SELECT titolo,toptesto,data FROM news"
Rs.Open comm,,1,1
%>
<TABLE class="testi">
<%

do while not(rs.eof)
i=i+1
if i mod 2 = 0 then
strFondo="#FFFFFF"
else
strFondo="#FFFFFF"
end if
%>
<TR>
<TD bgcolor="<%=strFondo%>"><div align="justify">
<%

response.write "" & rs("titolo") & "
" & rs("toptesto") & "
Pubblicato il: " & rs("data") & "

"
rs.movenext
%>
</div></TD>
</TR>
<%
loop
%>
</TABLE>
<%
rs.close
conn.close
set rs = nothing
set comm= nothing
set conn = nothing
%>

Lo script va bene, tuttavia la data mi restituisce valori tipo: 1142895600 invece di 21/03/06.
In tabella mysql il valore riportato è 1142895600 (di tipo timestamp(10)).
Vorrei sapere come implementare lo script perchè mi venga fuori la data del tipo 21/03/06.
Grazie

[santino83]

non so se esista una funzione che la faccia al volo la modifica, però se te la vuoi creare te:

//timestamp(10)=AAMMGGHHMM 

function cTimeStamp(datasql)
dim ritorno
if len(datasql)=10 then
ritorno=mid(datasql,5,2) & "/" & mid(datasql,3,2) & "/" & left(datasql,2)
else
ritorno=""
end if
cTimeStamp=ritorno
end function

response.write cTimeStamp("0604111235")