formato data su foglio excel

[digitm]

Ciao ragazzi, ecco il mio problema

In un database, scrivo varie cose fra cui, in un campo, una data nel formato: 21/12/2015 (ho fatto la prova a video e viene stampata proprio in questo formato)

Poi passo i dati in un foglio Excel con lo script che vedete in basso, solo che nel campo data, viene scritta così: 21-12-15.

Come posso fare per mantenere la formattazione originale????

Grazie

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\mdb-database\data.mdb")
Conn.Open strConn

dal=CDate(request.form("dal"))
al=CDate(request.form("al"))


sql = "SELECT * FROM lettura order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3

Dim xxx, risultato
Dim file
file = "documento.xls"
With Response
.Buffer = True
.ContentType = "application/vnd.ms-excel"
.AddHeader "content-disposition", "inline; filename=" & file
.Write "<table>"
.Write "<tr>"
.Write "<td style='text-align:center'>N. SERVIZIO</td>"
.Write "<td style='text-align:center'>MATRICOLA</td>"
.Write "<td style='text-align:center'>LETTURA</td>"
.Write "<td style='text-align:center'>DATA</td>"
.Write "<td style='text-align:center'>TIPO LETTURA</td>"
.write "</tr>"

do while not rs.eof
aaa = rs("data")
bbb = CDate(aaa)
if bbb>=dal and bbb<=al then

risultato = CStr(aaa)
.Write "<tr>"
.Write "<td>"&rs("servizio")&"</td>"
.Write "<td>"&rs("matricola")&"</td>"
.Write "<td>"&rs("lettura")&"</td>"
.Write "<td>"&risultato&"</td>"
.Write "<td>WEB</td>"
.write "</tr>"
end if
rs.movenext
loop


rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
.Write "</table>"
.Flush
.End
End With
%>

[optime]

visto che non scrivi un vero file excel (scrivi una tabella html) la formattazione della data è quella di default, quindi la colonna la dovrai riformattare in un secondo momento direttamente da excel

[digitm]

ma c'è un modo per scrivere un "vero" excel invece che le tabelle?

[optime]

certo! Puoi usare Excel Automation (ma devi montare Excel sul server - e io non lo farei mai!) oppure usare un componente che lo faccia (di solito sono a pagamento, e credo che per asp classico non ne esistano...)