---
title: "Körde fast med textfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41774-körde-fast-med-textfil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "katis"
published: "2002-04-16T11:17:58.000Z"
updated: "2002-04-16T18:04:09.000Z"
replies: 3
views: 254
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/41774-körde-fast-med-textfil"
---

# Körde fast med textfil

## #1 — katis, 2002-04-16T11:17Z

Goddagens!

Körde fast med textfil.
Problematiken är: jag läser in textfil(orders.txt) och det går bra, efteråt skulle jag vilja visa utvalda rader typ namn, adress osv.
Mitt tapra försök ser ut så här: 

\</head\>
\<body\>
\<p\>\<h1\>\<font color="blue"\>Här är min ASP-sida\</font\>\</h1\>\</p\>
\<%
  path = Server.MapPath("\\bonab")
  fil = path & "\\orders.txt"

  Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
  Set MinFil = MittTxtObj.OpenTextFile(fil)

 Dim datumgodkand, datumskickad, datumtillbaks, ib, idnum      Dim bestallnum, namn, adress, zip, stad, land, mail, telnum
Dim betalsatt,totalpris, varavfrakt, varavmoms, dator, innehall

 While Not MinFil.AtEndOfStream

   datumgodkand = MinFil.ReadLine
   datumskickad = MinFil.ReadLine
   datumtillbaks = MinFil.ReadLine
   ib = MinFil.ReadLine
   namn = MinFil.ReadLine
   adress = MinFil.ReadLine
   zip = MinFil.ReadLine
   stad = MinFil.ReadLine
   land = MinFil.ReadLine
   mail = MinFil.ReadLine
   telnum = MinFil.ReadLine
   betalsatt = MinFil.ReadLine
   totalpris = MinFil.ReadLine
   varavfrakt = MinFil.ReadLine
   varavmoms = MinFil.ReadLine
   dator = MinFil.ReadLine
   innehall = MinFil.ReadLine

Wend

MinFil.Close
%\>
\<font size = "3" color = "green" style = "Verdana"\>
Den \<% Response.Write datumgodkant %\>gjorde du beställning:
\<% Response.Write namn %\>
\</font\>
\</body\>

\</html\>

Och det funkar inte alls. Får följande meddellande:

Microsoft VBScript runtime error '800a003e' 
Input past end of file 
/bonab/go.asp, line 23 

 Var ligger det förbaskade felet?

Tack på förhand
Katis

Permalänk: https://www.webforum.nu/p/41774

## #2 — Sico, 2002-04-16T11:23Z

Tänkte bara sticka in med ett litet ord eller 17. <http://www.webforum.nu/misc.php?action=bbcode#buttons>
kolla den länken för att redigera dina inlägg ;)

Permalänk: https://www.webforum.nu/p/647109

## #3 — skyman, 2002-04-16T11:25Z

Prova med
while not MinFil.AtEndOfLine

annars vet jag inte.
Vilken rad är nr 23?

Permalänk: https://www.webforum.nu/p/647113

## #4 — @nders, 2002-04-16T18:04Z

Ta bort **While Not MinFil.AtEndOfStream**  samt **Wend** .

Jag ser ingen anledning att loopa i det här fallet.

Mvh,

Permalänk: https://www.webforum.nu/p/647407

---

Tråden på webben: https://www.webforum.nu/amne/asp/41774-körde-fast-med-textfil