Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/12/2006, 20:31
bitshoot
 
Fecha de Ingreso: noviembre-2004
Mensajes: 371
Antigüedad: 20 años, 7 meses
Puntos: 0
bueno ya lo logre el codigo para el que lo necesite es el sig:

<!--#INCLUDE FILE="xelupload.asp"-->
<%
set objUpload = new xelUpload
objUpload.Upload()

set objFich1 = objUpload.Ficheros("sap")
objFich1.Guardar Server.MapPath(".")
Aux_imagen1=objFich1.Nombre

Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING

DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath(""&Aux_imagen1&"") & ";"
db.open DB_CONNECTIONSTRING

SQLStr = "SELECT * FROM [Hoja1$]"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open SQLStr, DB_CONNECTIONSTRING

Dim columnas
columnas = rs.Fields.Count

While Not rs.EOF
For I = 0 to columnas - 1
Response.Write rs.Fields.Item(I).Value
Response.Write rs.Fields.Item(I).Name
Next
rs.movenext
wend
%>

Ahora esto me resulta, pero en una pagina normal, en esta mando el archivo con xelupload y si imprimo la cadena

DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath(""&Aux_imagen1&"") & ";"

me da la misma direccion que si leyera el archivo directamente, pero me manda un error en la cadena que esta en negrita...

alguien sabe porque... me da un error de servidor 500... no me da mas info.

cualquier ayuda se agradese...