Formato celle su file excel

[bibuz]

Buona giornata.

I esporto i dati di una tabella di access tramite un file di excel.

Ho un problema sul campo codice articolo.
Questo campo nel db è testo perchè può essere composto sia da numeri che da lettere.

Quando esporto i dati su excell se ho numeri e lettere sul record me li visualizza correttamente mentre se ho solo numeri mi da una risultato non corretto sulla cella di excel.
Per esempio 5031713039877 me lo scrive 5,03171E+12
Se clicco sopra la cella vedo sulla barra delle funzioni di excel il valore corretto.

Questo è lo script:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rig
rig = 0
Function bgcol()
  rig = rig + 1
  if rig = 1 then
    bgcol = "#dddddd"
  else
    bgcol = "#f6f6f6"
    rig = 0
  end if
End Function
%>
<%
fatturaCliente = Request.QueryString("fatturaCliente")

'questo sarà il nome del file
FileName="clientiEsportaDatiScheda.xls"
response.buffer = true
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=" & FileName

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("xxx/xxx.mdb")
set rs = server.createobject("ADODB.recordset")
sql = "SELECT * FROM xxx WHERE xxx = '" & xxx & "'"  

set rs = server.createobject("ADODB.recordset")
rs.open sql, conn
if rs.EOF then
response.write("NESSUN DATO IN ARCHIVIO")
else
'titoli dei campi da estrarre
response.write "<table>"
response.write "<tr>"
response.write "<td align=""left"">SCHEDA PER IL CLIENTE: " & rs("nomeCliente") & " e fattura n° " & rs("fattura") & " del " & rs("dataFattura") & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=""left"">Elenco Interventi:</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "<table border='1'>"
response.write "<tr>"
response.write "<td align=""left"">Data intervento</td>"
response.write "<td align=""left"">Descrizione</td>"
response.write "<td align=""left"">Note</td>"
response.write "</tr>"

do while not rs.EOF
response.write "<tr bgcolor=" & bgcol & ">"
response.write "<td align=""left"">"
response.write rs("dataOperazione")
response.write "</td>"
response.write "<td align=""left"">"
response.write rs("descrizioneIntervento")
response.write "</td>"
response.write "<td align=""left"">"
response.write rs("noteIntervento")
response.write "</td>"
response.write "</tr>"
rs.movenext
loop
response.write "</table>"
end if
rs.close
set rs = nothing
response.flush

Set ConnMagazzino=Server.CreateObject("ADODB.Connection")
ConnMagazzino.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("xxx/xxx.mdb")
set rsMagazzino = server.createobject("ADODB.recordset")
sqlMagazzino = "SELECT * FROM xxx WHERE xxx = '" & xxx & "'"  

set rsMagazzino = server.createobject("ADODB.recordset")
rsMagazzino.open sqlMagazzino, connMagazzino
if rsMagazzino.EOF then
response.write("NESSUN DATO IN ARCHIVIO")
else
'titoli dei campi da estrarre
response.write "<table>"
response.write "</tr><tr><td></td></tr>"
response.write "</table>"
response.write "<table>"
response.write "<td align=""left"">Elenco Merce:</td>"
response.write "</tr><tr><td></td></tr>"
response.write "</table>"
response.write "<table border='1'>"
response.write "<tr>"
response.write "<td align=""left"">Marca</td>"
response.write "<td align=""left"">Cod. Articolo</td>"
response.write "<td align=""left"">Serial number</td>"
response.write "<td align=""left"">Descrizione</td>"
response.write "<td align=""left"">Descrizione</td>"
response.write "<td align=""left"">Conf. vendute</td>"
response.write "<td align=""left"">Data vendita</td>"
response.write "</tr>"

do while not rsMagazzino.EOF
response.write "<tr bgcolor=" & bgcol & ">"
response.write "<td align=""left"">"
response.write rsMagazzino("marca")
response.write "</td>"
response.write "<td align=""left"">"
response.write rsMagazzino("codArticolo")
response.write "</td>"
response.write "<td align=""left"">"
response.write rsMagazzino("serialNumber")
response.write "</td>"
response.write "<td align=""left"">"
response.write rsMagazzino("descrizioneArticolo")
response.write "</td>"
response.write "<td align=""left"">"
response.write rsMagazzino("confVendute")
response.write "</td>"
response.write "<td align=""left"">"
response.write rsMagazzino("dataVendita")
response.write "</td>"
response.write "</tr>"
rsMagazzino.movenext
loop
response.write "</table>"
end if
rsMagazzino.close
set rsMagazzino = nothing
response.end()
%>

C' un modo per risolvere il problema?

Grazie a tutti in anticipo.