Problema Importando desde Excel

[kalvin]

estoy importando desde excel y solo me importa algunos de los datos de una de las columnas de excel, todos las celdas tienen formato general la unica diferencia exixtente entre los datos es q unos estan alineados a la derecha y los demas a la derecha, solo he podido importar los q estan a la derecha, lo curioso es q alineo todos los datos a la derecha y igual no los importa, el archivo d excel en cuestion es generado por un sistema administrativo y solo esporta los datos a excel.

ejemplo de los datos del archivo de excel:

codigo referencia descripcion
11A1-353GC280B P-1816 ANILLOS M.E-6
11A1-3801715-C 181806 BOMBA DE AGUA
11A1-3801788-C 181807 BOMBA DE AGUA M.
11A1-44GB2207AM GB2207 MARTILLO TAQUETE
11A1-454GC568B M-9002 ARBOL DE LEVA
11A1-456GC5113P1 S-2124 CIGUEÑAL SERIE

Código:

'Asigna a la variable Path, la ruta del archivo *.xls
Path=Server.MapPath("lista.xls")

'Path=Server.MapPath("../../db/cargar/lista.xls")

'Path="../../db/cargar/lista.xls"

'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")

'Abrimos el objeto con el driver específico para Microsoft Excel
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path

'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsVac = Server.CreateObject("ADODB.Recordset")

'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado Feriado.
'Este nombre de rango se debe definir en MSExcel (>Insertar>Nombre>Definir...).
'rsVac.Open "Select * From lista order by Codigo,Referencia,Descripcion", ConexionBD,3,3

'rsVac.Open "Select * From Feriado order by Oficina, Nombre", ConexionBD,3,3

rsVac.Open "Select * From data order by Código, Referencia, Descripción", ConexionBD,3,3

'Código  Referencia  	Descripción  

'rsVac.Open "Select * From A1:c3783 order by Codigo, Nombre", ConexionBD,3,3


'rsVac.Open "Select * From Codigo order by Codigo", ConexionBD,3,3
%>
                    <%
'Nos posicionamos al principio del recordset, por cualquier cosa	
rsVac.MoveFirst

'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

'Y por último, el cuerpo de los datos
'************************************************************************
'** ciclo q carga los datos
'************************************************************************
	set session("cnn")=server.createobject("ADODB.Connection")
    session("cnn").open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../../db/db.mdb")
    set cmd2 = Server.createobject("ADODB.Command")
    cmd2.activeconnection = session("cnn")  
	cmd2.commandtext = "DELETE * From productos"
	cmd2.execute  
	count=0
'************************************************************************	
Do While Not rsVac.EOF
'************************************************************************
	Response.Write "<tr>" & vbCrLf
	Response.write "<td>" & rsVac(0) & "</td>"
	Response.write "<td>" & rsVac(1) & "</td>"
	Response.write "<td>" & rsVac(2) & "</td>"	
	Response.write "<td>" & rsVac(21) & "</td>"
	Response.write "<td>" & rsVac(26) & "</td>"		
	Response.Write "</tr>" & vbCrLf
'************************************************************************
'** inserto en la db 
'************************************************************************
'Código  Referencia  	Descripción 
   cmd2.commandtext = "Insert Into productos (codigo,referencia," & _
	        "descripcion,precio,existencia) Values " & _
  	        "('" & rsVac(0) & _ 
			"','" & rsVac(1) & _  												
			"','" & rsVac(2) & _  												
			"','" & rsVac(21) & _  															
			"','" & rsVac(26) & "')"					      
        cmd2.execute
'************************************************************************
	rsVac.MoveNext
	count=count+1
Loop
Response.Write "</table>"

'Se cierra y se destruye el objeto recordset
rsVac.Close
Set rsVac = Nothing

'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing
'************************************************************************

'Se cierra y se destruye el objeto connection
'cmd2.Close
Set cmd2 = Nothing


response.write "<center><b>" & Count & " Registros Cargados</b></center>"