
04/12/2006, 20:31
|
| | 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... |