ok quedo asi:
Código PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
function alea(max)
dim rndmax
dim rndnumber
rndmax = cdbl(max)
randomize timer
rndnumber = int(rnd * rndmax)
alea = rndnumber
end function
function lectura(RS)
respuesta = "<TABLE><TR><td> </td>"
For X = 0 To RS.Fields.Count - 1
respuesta = respuesta & "<TD>" & RS.Fields.Item(X).Name & "</TD>"
Next
respuesta = respuesta & "</TR>"
RS.MoveFirst
While Not RS.EOF
respuesta = respuesta & "<TR><td>"&rs.AbsolutePosition&"</td>"
For X = 0 To RS.Fields.Count - 1
respuesta = respuesta & "<TD>" & RS.Fields.Item(X).Value
Next
RS.MoveNext
respuesta = respuesta & "</TR>"
Wend
respuesta = respuesta & "</TABLE>"
lectura=respuesta
end function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
</head>
<body>
<%
'definiciones de uso
strcxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("excel_productos.xls")&";User Id=admin;Password=;"
strclta = "select * from [excel_productos$] "
response.Write strcxn & "<br />"
response.Flush()
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strcxn
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.CursorType = 3 'Static cursor.
.LockType = 3 Pessimistic Lock.
.Source = strclta
.Open
end With
%><br><%
Response.Write("Original Data")
response.Write lectura(objrs)
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>
</html>
y me sale ahora este error:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\intranets\carpeta\productos\excel_produc tos.xls;User Id=admin;Password=;
Microsoft JET Database Engineerror '80004005' No se reconoce el formato de base de datos 'D:\intranets\carpeta\productos\excel_productos.xl s'. /cygnus_oked/compras/importar_excel.asp, line 68 otra cosa que depronto influye o no se.. pero el excel que estoy tratando de abrir con asp.. es generado tambien por asp. en otra parte. es decir lo genero con un asp y se guarda con el nombre excel_productos.xls y la hoja de datos qeuda con el nombre excel_productos este archivo cambia constantemente cada que es generado.. y luego lo trato de abrir con asp para ver como quedo y ahi es donde esta sacandome el error mencionado anterioremente.