danne og downloade fil

Du kan evt. sætte din timeout lidt i vejret!

jeg får ingen timeout. Den blinker lige en enkelt gang, med en fejl, derefter sker der intet.

Hvad er fejlmeddelelsen?

det kan jeg ikke nå at se. Jeg mener der står noget access denied. Men det virker jo fint nok når der ikke er så mange linier der skal skrives til filen. Det er som om den ikke når at skrive filen færdig før den skal downloades.

Vi det hjælpe hvis du bruger response.buffer = true

hvis du ser linie 4, så bruger jeg response.buffer = true ;-)
Kan det være et bestemt tegn i en eller anden linie den ikke kan li

Doooo... jeg var ikke vågen.
Kan du ikke prøve at udskrive det til skærmen, så du kan se, hvilken rec den fejler i så?

jeg har prøvet at skrive til skærm, det gav samme resultat. Så det må være når jeg skriver til fílen det går galt.

jeg har selv løst den her. Hvis nogen har interesse ser koden nu således ud.
Men tak for hjælpen steen.

<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
response.buffer=true

Dim objStream, strFile, strFileType,str
Const adTypeBinary = 1

Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = oConn.Execute(Session("SQLPrint"))

Do While Not oRs.EOF
  Name = oRs("Name")
  Address = oRs("Address")
  Zip = oRs("Zip")
  City = oRs("City")
  MainContact = oRs("MainContact")
  email= oRs("email")
  dato= oRs("dato")
  str = str & name&vbTAB&Address&vbTAB&Zip&vbTAB&City&vbTAB&MainContact&vbTAB&email&vbCRLF
oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
oConn.Close
Set oConn = Nothing

strFile = "tabel3.txt"
strFileType = "application/text"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
Response.AddHeader "content-disposition","attachment; filename=" & strFile
Response.ContentType = strFileType
Response.Write "Name"&vbTAB&"Address"&vbTAB&"Zip"&vbTAB&"City"&vbTAB&"Maincontact"&vbTAB&"email"&vbCRLF
response.write str
objStream.Close()
Set objStream = Nothing
response.write str
%>