[Resolvido] Exportar para excel

[gubergamo 0]

Tenho que transferir dados para excel

 

estou fazendo com o seguinte código:

response.ContentType = "application/vnd.ms-excel"

 

mas está dando um erro de que não encontra no servidor.. Tenho outras paginas com o mesmo código que funciona,.

 

valeu!!

[hargon 64]

Mas o erro é só esse mesmo? Não aparece nenhuma outra msg?

[gubergamo 0]

FUNCIONOU!

rs

 

não fiz nada e começou a funcionar...

 

vai saber né?

 

Se interessar a alguem, o código:

<%@language=vbscript%>
<!--#include file="../Connections/webtem.asp" -->
<!--#include file="../nocache.asp"-->
<%
      response.ContentType = "application/vnd.ms-excel"
%>
<%
Dim postos
Dim postos_cmd
Dim postos_numRows

Set postos_cmd = Server.CreateObject ("ADODB.Command")
postos_cmd.ActiveConnection = MM_webtem_STRING
postos_cmd.CommandText = "SELECT * FROM dbo.combustivel" 
postos_cmd.Prepared = true

Set postos = postos_cmd.Execute
postos_numRows = 0
%>

<%
Select CASE CInt(postos.Fields.Item("cida_comb").Value) 
CASE 1
cidade = "SOROCABA"
CASE 2
cidade = "BAURU"
CASE 3
cidade = "S. J. RIO PRETO"
CASE 4
cidade = "ITAPETININGA"
End Select
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
postos_numRows = postos_numRows + Repeat1__numRows
%>
<%
Response.Write("<table>")
Response.Write("<tr bgcolor=""#3366CC"">")
Response.Write("<td width=""250"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">NOME DO POSTO</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">CIDADE</span></td>")
Response.Write("<td width=""250"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">LOCAL</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">GASTO / HORA</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">CAPACIDADE TOTAL</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">QUANTIDADE ATUAL</span></td>")
Response.Write("<td width=""100"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">EMPRESA</span></td>")
Response.Write("<td width=""70"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">FONE EMPRESA</span></td>")
Response.Write("<td width=""80"" height=""20"" align=""center"" valign=""middle"" bgcolor=""#3366CC""><span class=""style9"">CÓDIGO</span></td>")
Response.Write("</tr>")
'Response.Write("</table>")
	
While ((Repeat1__numRows <> 0) AND (NOT postos.EOF)) 

If cor_fundo = "#CCCCCC" Then
cor_fundo = "#FFFFFF"
Else
cor_fundo = "#CCCCCC"
End if

'Response.Write("<table>")
Response.Write("<tr bgcolor="&cor_fundo&">")
Response.Write("<td width=""250"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("nome_comb").Value)&"</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&cidade&"</span></td>")
Response.Write("<td width=""250"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("local_comb").Value)&"</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("gasto_comb").Value)&"</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("capac_comb").Value)&"</span></td>")
Response.Write("<td width=""200"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("quant_comb").Value)&" </span>")
'If  (CInt(postos.Fields.Item("capac_comb").Value) / 2) > CInt(postos.Fields.Item("quant_comb").Value) Then 
'Response.Write("<input name=""red_ball"" type=""image"" src=""../imagens/bol_vermelho.gif"" /> </td>")
'Else
'Response.Write("</td>")
'End If
Response.Write("<td width=""150"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("empresa_conta").Value)&"</span></td>")
Response.Write("<td width=""50"" height=""20"" align=""center"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("fone_conta").Value)&"</span></td>")
Response.Write("<td width=""100"" height=""20"" align=""left"" valign=""middle"" bgcolor="&cor_fundo&"><span class=""style14"">"&UCASE(postos.Fields.Item("codigo_conta").Value)&"</span></td>")
Response.Write("</tr>")
 


  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  postos.MoveNext()
Wend
Response.Write("</table>")
%>

<%
postos.Close()
Set postos = Nothing
%>

[hargon 64]

Bacana.

 

Mas faça vários testes, pois não é correto funcionar hora sim hora não.