Download arquivo TXT

[Gilberto Jr 26]

Boa tarde;

 

estou com problema na hora que faço download do arquivo txt.

 

Uso esse código

Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & rs("arquivo")
Response.Flush
 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("arquivos/"&pathrede&"/"&pathloja&"/"&rs("arquivo")&"")
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush

 

para fazer download.

 

Faz o download mas o arquivo vem com código html dentro do arquivo.

 

Faço o update do arquivo e o mesmo vai certinho e quando eu faço download do mesmo vem com código html dentro do arquivo txt.

 

O que pode ser?

 

Att;

[xanburzum 169]

é pq seu file esta vindo do bd, o rs("arquivo"). como ele esta setado no bd ?

e faça um teste, com um form ou pegando o path do arq.

 

tente, inserir isso

 

strFile = Server.MapPath( Request.QueryString("file") )

Response.AddHeader "Content-Length", strFile

[Gilberto Jr 26]

No banco de dados o rs("arquivo") é o nome do arquivo. Vamos supor que é 25643.tx.

 

Ficaria dessa forma?

<%
dim conn, rs
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=tecnogalli2;USER=tecnogalli2;PASSWORD=db211613;OPTION=3;")
'arquivo que checa se existe o login e a senha do usuario que esta tentando logar
set pastarede = conn.execute("select * from rede where id="&request.QueryString("rede"))
pathrede = pastarede("pasta")
 
set pastaloja = conn.execute("select * from loja where id="&request.QueryString("loja"))
pathloja = pastaloja("pasta")
 
 
set rs = conn.execute("select * from arquivo where arquivo='"&request.QueryString("nf")&"'")
 
 
 
Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & rs("arquivo")
Response.Flush
 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
strFile = Server.MapPath("arquivos/"&pathrede&"/"&pathloja&"/"&rs("arquivo")&"")
Response.AddHeader "Content-Length", strFile
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

Att;

[xanburzum 169]

colocando só o path, mesmo vindo do bd, ele faz o down correto