,50")
tfile.WriteLine("End,1")
tfile.WriteLine("[DATA]")
sSQL = "SELECT tblArticle.articlenumber, tblArticle.articleName, tblPrice.articlePrice, tblPrice.articleCategoryNumber, tblArticle.articleUnit, " &_
"tblCategory.CategoryName, tblCategory.categoryNumber, tblDiscount.articleDiscount, tblSupplier.SupplierName, tblSupplier.SupplierId, " &_
"CASE WHEN articleDiscount is null THEN articlePrice ELSE articlePrice*(1-([articleDiscount]*0.01)) END AS articlePriceWithDiscount " &_
"FROM tblArticle " &_
"INNER JOIN tblPrice ON tblArticle.articlenumber = tblPrice.articleNumber " &_
"INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId " &_
"LEFT OUTER JOIN tblDiscount ON tblPrice.articleCategoryNumber = tblDiscount.categoryNumber AND tblPrice.articleSupplierId = tblDiscount.supplierId " &_
"LEFT OUTER JOIN tblCategory ON tblPrice.articleSupplierId = tblCategory.supplierId AND tblPrice.articleCategoryNumber = tblCategory.categoryNumber " &_
"WHERE tblSupplier.supplierId = " & iSupplierId & " and tblCategory.categoryNumber = '0101' " &_
"ORDER BY tblArticle.articlenumber"
Set objRS = Server.Createobject("ADODB.Recordset")
objRS.Open sSQL, objConn, 1, 2
' Räkneverk
' *********
Response.write("Vänta, skriver till databasen...
")
Response.write("")
Response.Flush()
Do while not objRS.EOF
' Villkor för att flusha
' **********************
iCounter = iCounter +1
if iCounter mod 10 = 0 then
Response.write ("")
Response.flush
end if
sArticleNumber = GetFixedWidthString(objRS("articleNumber"), 8)
dArticlePrice = GetFixedWidthString(cdbl(objRS("articlePrice")), 8)
sUnit = GetFixedWidthString(objRS("articleUnit"), 5)
sArticleName = GetFixedWidthString(objRS("articleName"), 50)
sLine = sArticleNumber & dArticlePrice & sUnit & sArticleName & sEndChar
tfile.WriteLine(sLine)
objRS.Movenext
Loop
objRS.Close
Set objRS = Nothing
tfile.close
set tfile=nothing
set fsObj=nothing
response.redirect ("getFile.asp?file=" & sFileName)
Else
Response.write "Du har försökt göra en otillåten åtgärd!"
End If
%>
```
Mottagande sida:
```
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
sFile = request.querystring ("file")
Set objStream = CreateObject( "ADODB.Stream" )
objStream.Open objStream.Type = 1
binary objStream.LoadFromFile server.mappath( "/filesForPalm/" & sFile )
Response.ContentType = "application/my-download"
Response.BinaryWrite objStream.Read(-1)
read all
Set objStream = nothing
Response.End
%>
```
..Men får då följande felmeddelande:
> Response-objekt fel 'ASP 0156 : 80004005'
>
> Fel på huvuden
>
> /createTextFiles/createTextFilePalm.asp, rad 106
>
> HTTP-huvudena har redan skrivits till klientläsaren. Ändringar till HTTP-huvudena måste göras innan sidinnehållet skrivs.
Rad 106 är:
```
response.redirect ("getFile.asp?file=" & sFileName)
```
Vad är fel...
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1845866
## #8 — @nders, 2006-08-01T18:58Z
Du kan inte ha en massa html i sidan. Ta bort allt som inte har att göra med streamingen av filen.
Permalänk: https://www.webforum.nu/p/1846144
## #9 — devotion, 2006-08-01T19:44Z
> **@nders skrev:**
>
> Du kan inte ha en massa html i sidan. Ta bort allt som inte har att göra med streamingen av filen.
Jag testar att ta bort allt annat.... :)
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1846156
## #10 — devotion, 2006-08-01T19:53Z
Jag testade det, men med samma resultat... :(
```
<%
sFile = request.querystring ("file")
Set objStream = CreateObject( "ADODB.Stream" )
objStream.Open objStream.Type = 1
binary objStream.LoadFromFile server.mappath( "/filesForPalm/" & sFile )
Response.ContentType = "application/my-download"
Response.BinaryWrite objStream.Read(-1)
read all
Set objStream = nothing
Response.End
%>
```
> Vänta, skriver till databasen...
> 30
> Response-objekt fel 'ASP 0156 : 80004005'
>
> Fel på huvuden
>
> /createTextFiles/createTextFilePalm.asp, rad 106
>
> HTTP-huvudena har redan skrivits till klientläsaren. Ändringar till HTTP-huvudena måste göras innan sidinnehållet skrivs.
Vad är det för fel?
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1846158
## #11 — @nders, 2006-08-01T19:58Z
rad 106?
du har ju c:a 10 rader i inlägget ovan...
Redigerar du fel fil som vanligt?
Permalänk: https://www.webforum.nu/p/1846159
## #12 — devotion, 2006-08-01T20:02Z
Shut up butt head... ;)
Rad 106 är:
```
response.redirect ("getFile.asp?file=" & sFileName)
```
I filen som skapar textfilen....
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1846162
## #13 — @nders, 2006-08-01T20:05Z
Ok....
Man kan inte köra redirect (eller ändra andra headers) om man skrivit saker till webbläsaren. Då får man använda javascript.
Permalänk: https://www.webforum.nu/p/1846164
## #14 — devotion, 2006-08-01T20:10Z
Hmmmm.... ok
Hur gör man då?
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1846167
## #15 — @nders, 2006-08-01T20:33Z
Öh
```
```
Glöm inte att lägga en response.end precis efter, annars körs ju resten av asp-sidan.
Permalänk: https://www.webforum.nu/p/1846172
## #16 — devotion, 2006-08-01T20:37Z
:r
Jaha det var så du menade.. sorry.... :)
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1846173
## #17 — devotion, 2006-08-01T21:16Z
Hmmm... efter mycket om och men så fungerar det nu.... :)
Jag klistrar in koden, så kan ni se hur jag gjort... anmärka på om något är fel.. eller berömma för att det är snyggt.. ;)
Mvh
Henrik
Sida som genererar textfilen:
```
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
If request.Form("supplier") <> "" then
'Definiera variabler
dim objConn, objRS, sSQL, fsObj, tfile, iSupplierId, sUnit, sEndChar, sPath, sFileName, sSupplierName, iCounter
iCounter = 0
'Ta emot data
iSupplierId = cint(request.Form("supplier"))
'Sätta variabler
sEndChar = "X"
sPath = "/createTextFiles/filesForPalm/"
'Funktion
function GetFixedWidthString(stringVal,length)
GetFixedWidthString=left(stringVal & string(length," "),length)
end function
' Öppna databasen
' ***************
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = Application("sConn")
objConn.Open
sSQL = "SELECT supplierName FROM tblSupplier Where supplierId = " & iSupplierId & ""
Set objRS = objConn.Execute (sSQL)
If not objRS.EOF then
sSupplierName = objRS("supplierName")
End If
objRS.Close
Set objRS = Nothing
sFileName = sSupplierName & " - El.txt"
set fsObj=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fsObj.CreateTextFile(server.MapPath(sPath & sFileName))
tfile.WriteLine("[HEADER]")
tfile.WriteLine(",8")
tfile.WriteLine(",8")
tfile.WriteLine(",5")
tfile.WriteLine(",50")
tfile.WriteLine("End,1")
tfile.WriteLine("[DATA]")
sSQL = "SELECT tblArticle.articlenumber, tblArticle.articleName, tblPrice.articlePrice, tblPrice.articleCategoryNumber, tblArticle.articleUnit, " &_
"tblCategory.CategoryName, tblCategory.categoryNumber, tblDiscount.articleDiscount, tblSupplier.SupplierName, tblSupplier.SupplierId, " &_
"CASE WHEN articleDiscount is null THEN articlePrice ELSE articlePrice*(1-([articleDiscount]*0.01)) END AS articlePriceWithDiscount " &_
"FROM tblArticle " &_
"INNER JOIN tblPrice ON tblArticle.articlenumber = tblPrice.articleNumber " &_
"INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId " &_
"LEFT OUTER JOIN tblDiscount ON tblPrice.articleCategoryNumber = tblDiscount.categoryNumber AND tblPrice.articleSupplierId = tblDiscount.supplierId " &_
"LEFT OUTER JOIN tblCategory ON tblPrice.articleSupplierId = tblCategory.supplierId AND tblPrice.articleCategoryNumber = tblCategory.categoryNumber " &_
"WHERE tblSupplier.supplierId = " & iSupplierId & " and tblCategory.categoryNumber = '0101' " &_
"ORDER BY tblArticle.articlenumber"
Set objRS = Server.Createobject("ADODB.Recordset")
objRS.Open sSQL, objConn, 1, 2
' Räkneverk
' *********
Response.write("Vänta, skriver till databasen...
")
Response.write("")
Response.Flush()
Do while not objRS.EOF
' Villkor för att flusha
' **********************
iCounter = iCounter +1
if iCounter mod 10 = 0 then
Response.write ("")
Response.flush
end if
sArticleNumber = GetFixedWidthString(objRS("articleNumber"), 8)
dArticlePrice = GetFixedWidthString(cdbl(objRS("articlePrice")), 8)
sUnit = GetFixedWidthString(objRS("articleUnit"), 5)
sArticleName = GetFixedWidthString(objRS("articleName"), 50)
sLine = sArticleNumber & dArticlePrice & sUnit & sArticleName & sEndChar
tfile.WriteLine(sLine)
objRS.Movenext
Loop
objRS.Close
Set objRS = Nothing
tfile.close
set tfile=nothing
set fsObj=nothing
%>
<%
Response.End()
Else
Response.write "Du har försökt göra en otillåten åtgärd!"
End If
%>
```
Sida som visar dialogruta "öppna/Spara fil"
```
<%
sFile = request.querystring ("file")
Set objStream = CreateObject( "ADODB.Stream" )
objStream.Open
objStream.Type = 1
objStream.LoadFromFile server.mappath( "/createTextFiles/filesForPalm/" & sFile )
Response.ContentType = "application/my-download"
Response.AddHeader "Content-Disposition", "attachment; filename=" & sFile &""
Response.BinaryWrite objStream.Read(-1)
Set objStream = nothing
Response.End
%>
```
Permalänk: https://www.webforum.nu/p/1846180
---
Tråden på webben: https://www.webforum.nu/amne/asp/149504-välja-var-skapad-fil-skall-sparas