estudiando mi problema he realizado el sgte codigo
<%@ Language=VBScript %>
<% Response.Expires=0 %>
<% Response.BUFFER = TRUE %>
<%
dim st(100),dtr_datos,my_tds
menu = session("Menu")
my_tds = session("my_tds")
dtr_datos = session("dtr_datos")
ParXls = request("ParXls")
if len(trim(ParXls)) <> 0 then
menu = ParXls
end if
m_x = ubound(dtr_datos,2)
m_z = ubound(dtr_datos,1)
tot_col = session("nro_col")
Response.Write("<table border='1' width='100%' class='label' align='center'>")
Response.Write("<tr>")
Response.Write("<td width='100%' bgcolor='#476d96' colspan='100'>")
Response.Write("<font face='arial' size='4' color='#ffffff'> "& session("sub_tit") &"</font></td>")
Response.Write("</tr>")
Response.Write("<tr align='center'>")
for tr = 1 to tot_col
my_tit = my_tds(tr,0)
Response.Write("<td width='20%' bgcolor='#d0cec2'>")
Response.Write("<font face='arial' size='2'><b> "& my_tit &"</b></font></td>")
next
Response.Write("</tr>")
For tr_I = 0 to m_x
for tr_J = 0 to m_z
st(tr_J + 1) = rtrim(dtr_datos(tr_J,tr_I))
campo = st(tr_J + 1)
if datos="" then
datos = campo
else
datos = datos & ", " & campo
end if
response.Flush()
next
Path=Server.MapPath("Grafico.xls")
Set XLSstrcxn = Server.CreateObject("ADODB.Connection")
XLSstrcxn.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path
Set insercion1 = Server.CreateObject("ADODB.Connection")
response.write(datos)
insertar="INSERT INTO [Hoja1$]("&_
"DIRECCION,"&_
"MONTOS)"&_
"VALUES("&_
datos&_
");"
insercion1.Open XLSstrcxn
insercion1.execute(insertar)
response.write("holaaaa")
response.end
insercion1.close
select case trim(menu)
case "xx"
'st(3) = st(8)
end select
for tr = 1 to tot_col
my_num_var = my_tds(tr,4)
my_align = my_tds(tr,3)
if len(trim(my_num_var)) <> 0 then
if isnumeric(st(tr)) then
st(tr) = formatnumber(st(tr),my_num_var)
end if
end if
Response.Write("<td nowrap align='"& my_align &"' > "& st(tr) &"</td>")
next
Response.Write("</tr>")
next
Response.Write("</table>")
%>
pero me sale un error a la hora de hacer el insert y el error es el sgte :
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Controlador ODBC Excel] Error de sintaxis (falta operador) en la expresión de consulta 'D. ADMINISTRACION Y CONTROL'.
'D. ADMINISTRACION Y CONTROL'. es un de los datos que quiero ingresar a mi planilla excel
la variable datos recoje a la perfeccion los registros de mi base de datos pero a la hora de hacer el insert me sale este error y realmente no se que sera, quisiera saber si me pueden ayudar con esto de anteamo muchas gracias