GERAR PLANILHA EXCEL 2007 EM ASP

MKING 08/06/2010 08:38:40
#344219

Bom dia a todos,

estou desenvolvendo uma aplaicaçãozinha simples, que vai gerar uma planilha do excel com um resultado de uma consulta SQL, é um relatório basicamente, e sei como gerar o excel, o prblema é que ele só gera um arquivo xls, e eu gostaria que fosse em xlsx, alguém pode me ajudar? segue abaixo o código que estou usando.

<%
Response.ContentType = [Ô]application/vnd.ms-excel[Ô]

set objconn=server.createobject([Ô]adodb.connection[Ô])
connpath= [Ô]Driver=MySQL ODBC 5.1 Driver; Server=ip_servidor; Database=schema; Uid=usuario; Pwd=senha;[Ô]
objconn.Open connpath

set objrs=objconn.execute([Ô]select * from tabela [Ô])
%>
<TABLE BORDER=1>
<TR>
<%
[ô]Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to objrs.fields.count - 1
%>
<TD><% = objrs(i).name %></TD>
<% next %>
</TR>
<%

[ô]Percorre cada linha e exibe cada campo da tabela
while not objrs.eof
%>
<TR>
<% For i = 0 to objrs.fields.count - 1
%>
<TD VALIGN=TOP><% = objrs(i) %></TD>
<% Next %>
</TR>
<%
objrs.MoveNext

wend

objrs.Close
objconn.close
%>
</TABLE>