Mostrar Hoja excel

[VAMP_01]

Hola amifos, tengo un problema, tengo una tabla en Oracle, las query y conexion en asp, necesito mostrar los datos de la query en una hoja excel, pero que este inserta en la web, y mejor seria poder hacer una tabla dinamica o pivot...

Me pueden ayudar

Gracias

[CABEZOTA]

Te recominedo que leas un artículo en ASPFacil.com que te puede servir. El artículo está en la página principal.

Saludos :cantar:

<center><font face=Verdana size=2>Webmaster de [/CODE]<A href="http://www.salirxtucuman.com.ar" target="_blank"><img src="http://www.efrance.fr/salirxtucuman/images/titulo.gif" border=0 align="absmiddle"></a></center>

[VAMP_01]

la pagina de aspfacil.com no esta disponible???????

[bet6907]

set MiConexion = Server.CreateObject(&quot;ADODB.Connection&quot;)
MiConexion.Open &quot;Mibase&quot;,&quot;cuenta&quot;,&quot;contra seña&quot;
sql=&quot;&quot;
sql=&quot;miquery&quot;
set MiTabla = MiConexion.Execute (sql)
contador=0
reg=MiTabla.Fields.Count
Set xlExcel = CreateObject(&quot;Excel.Application&quot;)
Set xlDoc = CreateObject(&quot;Excel.sheet&quot;)
Set myDocument = xlDoc.Application.Worksheets(1)
MyDocument.Visible = true
for i=0 to reg-1
valor=chr(65+i)&amp;&quot;1&quot;
MyDocument.Range(valor).value = MiTabla(i).name
next
contador=2
Do While Not MiTabla.Eof
for i=0 to reg-1
valor=chr(65+i)&amp;contador
MyDocument.Range(valor).value = MiTabla(i)
next
contador=contador+1
MiTabla.MoveNext
Loop

MiTabla.close
set MiTabla=nothing
MiTabla=&quot;&quot;
MyDocument.SaveAs &quot;http://miarchivo.xls&quot;
xlDoc.close
end if
%&gt;


Ojalá y te sirva

:)

[VAMP_01]

GRACIAS A LOS DOS, PERO

LA PRIMERA ASPFACIL

Y LA SEGUNDA NO ME SIRVIO

GRACIAS DE TODAS FORMAS....

[Yoston]

Hola...
echale un

&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;Mostrar una hoja de cálculo de Excel en una página ASP&lt;/TITLE&gt;
&lt;/HEAD&gt;
&lt;BODY BGCOLOR=&quot;#FFFFFF&quot; text=&quot;#000000&quot; &gt;
&lt;H1&gt;Tabla de contenido&lt;/H1&gt;

&lt;p&gt;Utilice estos vínculos para ver el contenido correspondiente a un mes específico:
&lt;br&gt;&lt;a href=&quot;#Aug&quot;&gt;Ago 99&lt;/a&gt; &lt;a href=&quot;#Sept&quot;&gt;Sep 99&lt;/a&gt;

&lt;% @language=vbscript %&gt;
&lt;%
Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
strConn = &quot;Driver={Microsoft Excel Driver (*.xls)}; DBQ=&quot; &amp;
Server.MapPath(&quot;\iisadmin&quot;) &quot;\website\ASPTOC.xls;&quot; 'ésta es la dirección del archivo donde guardó el libro de trabajo
oConn.Open strConn
strCmd = &quot;SELECT * from `ASPTOC `&quot;

Set oRS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
oRS.Open strCmd, oConn
Response.Write &quot;&lt;TABLE BORDER=1 BGCOLOR=#FFFFFF BORDERCOLOR=#a3a3a3 BORDERCOLORLIGHT=#000000
BORDERCOLORDARK=#767676&gt;&lt;tr&gt;&lt;td&gt;&qu ot;
Response.Write oRS.GetString (, -1, &quot;&lt;/tr&gt;&lt;td&gt;&quot;, &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&lt;td&gt;&quot;, NBSPACE)

%&gt;
&lt;/TABLE&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;

ojala te sirva....chausito... ;)


<P><center><IMG SRC="http://web.icq.com/photo_repository/jpg/0,,120600736-0-0,00.jpg" ALT="Hola Soy Yoston." WIDTH=90 HEIGHT=90></center>
<center><font color="royalblue" face="verdana" size="3">Y O S T O N</center>[/CODE]</P>