Problemas al exportar una tabla a EXCEL, exporta los números como si feran cadena

[richardinj]

Hola, tengo un problema.. uso este codigo para generar mi EXCEL

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../../conexion.asp" -->
<% Response.ContentType="application/vnd.ms-excel" %>
<% Response.Charset = "UTF-8" %>


cSql="LA CONSULTA"
dim RSTConsulta
set RSTConsulta = Server.CreateObject("ADODB.RecordSet")
RSTConsulta.open cSql, ObjConexion, adOpenStatic

if not (RSTConsulta.eof and RSTConsulta.bof) then

else
Response.Write("NO SE ENCONTRARON REGISTOS A SU CONSULTA")
Response.End
end if


Consulta = RSTConsulta.GetRows
Response.Write "<table width='100%' border='1' bordercolor='#f0f0f0' cellspacing='4' cellpadding='0' >"

'Los encabezados de la tabla...
Response.Write "<tr align='center'>"
For Each Campo in RSTConsulta.Fields
Response.Write "<td bgcolor='#000099'><div style='font-size:11px; color:#FFFFFF'><b>&nbsp;&nbsp;" & Campo.Name & "&nbsp;&nbsp;</b></div></span></td>"
Next
Response.Write "</tr>"

o=1
'Ahora los datos...
for I = 0 to UBound(Consulta,2)
'Abrimos una nueva fila
if o=1 then
co="#f0f0f0"
o=0
else
co="#ffffff"
o=1
end if
%>
<TR>
<%

'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(Consulta, 1)
'Imprimo una celda para cada campo
Response.Write "<TD bgcolor='"&co&"'> &nbsp;" & Consulta(J, I) & "&nbsp;&nbsp;</TD>"
next
Response.Write "</TR>"

next
Response.Write "</TABLE>"

La consulta es variable, pueden ver uno o mas campos.. por eso genero de ese modo...

ahora el problema viene cuando exporto a EXCEL...
lo que pasa es que me pasa algunos números como si fueran letras e impide hacer calculos...

Como pueodo hacer para que los numeros pasen como debe ser...?

Saludos y gracias