De vuelta con asp y Excel.. (Desesperación)

[gallego]

Hola, hace poco escribi aquí sobre problemas para implementar hojas xls de Excel en un código php y pude acceder a un artículo bastante bueno al respecto (http://www.aspfacil.com/articulos/190301.asp) gracias a la inestimable colaboración de un usuario.

El caso es que aplicando tal cual el ejemplo que viene en la citada página, no consigo ver resultado alguno de la consulta a la hoja Excel; A ver si alguien puede ayudarme, esto es lo que hago:

A) Establezco un Rango de Celdas en la hoja Excel y les asigno un nombre, en el caso del ejemplo, esto ya está hecho, y el nombre es "Feriado"...

B) Sitúo la hoja excel en el directorio del IIS de páginas Web (c:\Inetpub\wwwroot) utilizando un windows 2000 profesional server.

C) Hago pruebas con la variable PATH que especifica la ruta y la cual es la única explicación que encuentro al hecho de que cuando voy a probar la página no me aparezca más que el código html que se situa sobre el resultado de la consulta. :roto:

Preguntas:

¿Tal vez haya otra explicación?

¿Tendré que especificar algo en el "Data Sources (ODBC)" del panel de control de windows que pueda ser el causante de que esto no funcione?

¿Alguien sabe Exactamente los pasos para llevar con éxito este procedimiento?

Saludos a todos y Agradezco de antemano cualquier colaboración y vuestro tiempo.

Salvador Gallego.

[misitioweb]

Compadre...

Que haces por estos rumbos... alguien pudo haberte matado si se da cuenta de tus creencias... aqui es el foro de ASP !!! no de php....

[galindox]

no se si esto te sirva
mira este ejemplo lo mas importante es la primera linea que indica que abra todo como excel

<%
2 Response.ContentType = "application/vnd.ms-excel"
3
4 set conntemp=server.createobject("adodb.connectio n")
5 cnpath="DBQ=" & server.mappath("/stevesmith/data/timesheet.mdb")
6 conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
7 set RS=conntemp.execute("select * from donut")
8 %>
9 <TABLE BORDER=1>
10 <TR>
11 <%
12 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13 ' % Loop through Fields Names and print out the Field Names
14 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15 j = 2 'row counter
16 For i = 0 to RS.Fields.Count - 1
17 %>
18 <TD><B><% = RS(i).Name %></B></TD>
19 <% Next %>
20 <TD><B>On Hand (calculated)</B></TD>
21 <TD><B>Gross (calculated)</B></TD>
22 </TR>
23 <%
24 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 ' % Loop through rows, displaying each field
26 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27 Do While Not RS.EOF
28 %>
29 <TR>
30 <% For i = 0 to RS.Fields.Count - 1
31 %>
32 <TD VALIGN=TOP><% = RS(i) %></TD>
33 <% Next %>
34 <TD>=b<%=j%>-c<%=j%>-d<%=j%></TD>
35 <TD>=d<%=j%>*e<%=j%></TD>
36 </TR>
37 <%
38 RS.MoveNext
39 j = j + 1
40 Loop
41 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 ' % Make sure to close the Result Set and the Connection object
43 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 RS.Close
45 %>
46 <TR BGCOLOR=RED>
47 <TD>Totals</TD>
48 <TD>=SUM(B2:B6)</TD>
49 <TD>=SUM(C2:C6)</TD>
50 <TD>=SUM(D2:D6)</TD>
51 <TD>n/a</TD>
52 <TD>=SUM(F2:F6)</TD>
53 <TD>=SUM(G2:G6)</TD>
54 </TABLE>

[galindox]

no se si esto te sirva
mira este ejemplo lo mas importante es la primera linea que indica que abra todo como excel

<%
2 Response.ContentType = "application/vnd.ms-excel"
3
4 set conntemp=server.createobject("adodb.connectio n")
5 cnpath="DBQ=" & server.mappath("/stevesmith/data/timesheet.mdb")
6 conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
7 set RS=conntemp.execute("select * from donut")
8 %>
9 <TABLE BORDER=1>
10 <TR>
11 <%
12 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13 ' % Loop through Fields Names and print out the Field Names
14 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15 j = 2 'row counter
16 For i = 0 to RS.Fields.Count - 1
17 %>
18 <TD><B><% = RS(i).Name %></B></TD>
19 <% Next %>
20 <TD><B>On Hand (calculated)</B></TD>
21 <TD><B>Gross (calculated)</B></TD>
22 </TR>
23 <%
24 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 ' % Loop through rows, displaying each field
26 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27 Do While Not RS.EOF
28 %>
29 <TR>
30 <% For i = 0 to RS.Fields.Count - 1
31 %>
32 <TD VALIGN=TOP><% = RS(i) %></TD>
33 <% Next %>
34 <TD>=b<%=j%>-c<%=j%>-d<%=j%></TD>
35 <TD>=d<%=j%>*e<%=j%></TD>
36 </TR>
37 <%
38 RS.MoveNext
39 j = j + 1
40 Loop
41 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 ' % Make sure to close the Result Set and the Connection object
43 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 RS.Close
45 %>
46 <TR BGCOLOR=RED>
47 <TD>Totals</TD>
48 <TD>=SUM(B2:B6)</TD>
49 <TD>=SUM(C2:C6)</TD>
50 <TD>=SUM(D2:D6)</TD>
51 <TD>n/a</TD>
52 <TD>=SUM(F2:F6)</TD>
53 <TD>=SUM(G2:G6)</TD>
54 </TABLE>

[galindox]

no se si esto te sirva
mira este ejemplo lo mas importante es la primera linea que indica que abra todo como excel

<%
2 Response.ContentType = "application/vnd.ms-excel"
3
4 set conntemp=server.createobject("adodb.connectio n")
5 cnpath="DBQ=" & server.mappath("/stevesmith/data/timesheet.mdb")
6 conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
7 set RS=conntemp.execute("select * from donut")
8 %>
9 <TABLE BORDER=1>
10 <TR>
11 <%
12 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13 ' % Loop through Fields Names and print out the Field Names
14 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15 j = 2 'row counter
16 For i = 0 to RS.Fields.Count - 1
17 %>
18 <TD><B><% = RS(i).Name %></B></TD>
19 <% Next %>
20 <TD><B>On Hand (calculated)</B></TD>
21 <TD><B>Gross (calculated)</B></TD>
22 </TR>
23 <%
24 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 ' % Loop through rows, displaying each field
26 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
27 Do While Not RS.EOF
28 %>
29 <TR>
30 <% For i = 0 to RS.Fields.Count - 1
31 %>
32 <TD VALIGN=TOP><% = RS(i) %></TD>
33 <% Next %>
34 <TD>=b<%=j%>-c<%=j%>-d<%=j%></TD>
35 <TD>=d<%=j%>*e<%=j%></TD>
36 </TR>
37 <%
38 RS.MoveNext
39 j = j + 1
40 Loop
41 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 ' % Make sure to close the Result Set and the Connection object
43 ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 RS.Close
45 %>
46 <TR BGCOLOR=RED>
47 <TD>Totals</TD>
48 <TD>=SUM(B2:B6)</TD>
49 <TD>=SUM(C2:C6)</TD>
50 <TD>=SUM(D2:D6)</TD>
51 <TD>n/a</TD>
52 <TD>=SUM(F2:F6)</TD>
53 <TD>=SUM(G2:G6)</TD>
54 </TABLE>