---
title: "Andas djupt: en jättefråga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43373-andas-djupt-en-jättefråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "katis"
published: "2002-05-08T15:08:49.000Z"
updated: "2002-05-08T16:30:46.000Z"
replies: 1
views: 235
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/43373-andas-djupt-en-jättefråga"
---

# Andas djupt: en jättefråga

## #1 — katis, 2002-05-08T15:08Z

Goddagens!

Nu är jag nästan färdig med min första ASP-snutten. Wow!!!
Tackar hjärtligt alla som bidragit med sina svar.

Mitt lilla programm fungerar men på nåt lustigt sätt.
Först ska jag förklara vad det går ut på.
Jag har en text-fil hit kommer alla beställningar från sajten. 
Doc1.txt 
\*
00:00:00 
00:00:00 
00:00:00 
12137679-1
ABRAHAMSSON  SUNE
RÅDAVÄGEN 33
43136
Malmö
SE
<sune@telia.com>

11111111111111,0102
 738 
 73,25 
 147,6 
cacher3-ext.wise.edt.ericsson.se
MULTIPROG,1,00:00:00
\*
00:00:00 
00:00:00 
00:00:00 
01093812-1
Kjell Olsson
Bergsvägen 17
43361
Uppsala
SE
<kjell@dinbil.se>
00000000000000
COD
 1550 
 75 
 310 
scaniaproxy.scania.se
GOLDCARD,5,00:00:00
FUNCARDWAFER,2,00:00:00
\*
00:00:00 
00:00:00 
00:00:00 
12137679-2
ABRAHAMSSON  SUNE
RÅDAVÄGEN 33
43136
Malmö
SE
<sune@telia.com>

111111111111111,0102
 738 
 73,25 
 147,6 
cacher3-ext.wise.edt.ericsson.se
MULTIPROG,1,00:00:00
MULTIPROG,1,00:00:00
\*
00:00:00 
00:00:00 
00:00:00 
01093812-2
Kjell Olsson
Bergsvägen 17
43361
Sävedalen
SE
<kjell@dinbil.se>
000000000000000
COD
 1550 
 75 
 310 
scaniaproxy.scania.se
GOLDCARD,5,00:00:00
FUNCARDWAFER,2,00:00:00
MULTIPROG,1,00:00:00
\*
Härifrån sorteras information i mitt tur och ordning, om id från webläsarens adressfälte matchar med inum från Doc1.txt(rad 4), enligt asp-filen:
\<html\>
\<%@ LANGUAGE="VBScript"%\>
\<body\>
\<p\>\<h3\>\<font style = "Verdana"\>Dina gamla beställningar\</font\>\</h3\>\</p\>
\<%
  path = Server.MapPath("\\bonab")
  fil = path & "\\Doc1.txt"

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

While Not MinFil.AtEndOfStream
 inum = Request.QueryString("id")
 godkand = MinFil.ReadLine
 skickad = MinFil.ReadLine
 tillbaka = MinFil.ReadLine

 bi = MinFil.ReadLine

    arrArray = Split(bi,"-")
    idnum = arrArray(0)
    bestallnum = arrArray(1)

if idnum = inum then
 namn = MinFil.ReadLine
 adress = MinFil.ReadLine
 zip = MinFil.ReadLine
 stad = MinFil.ReadLine
 land = MinFil.ReadLine
 mail = MinFil.ReadLine
 telnum = MinFil.ReadLine
 satt= MinFil.ReadLine

  if satt = "COD" then
     betsatt = "betalas som postförskott. När paketet är skickat tar det 1-3 dagar innan det är framme, och du har då 30 dagar på dig att hämta paketet på posten, annars går det tillbaks och du betalar 150 kr i straffavgift."
     else
     betsatt = "dras från ditt kreditkort."
  end if

 totalt = MinFil.ReadLine
 frakt = MinFil.ReadLine
 moms = MinFil.ReadLine
 dator = MinFil.ReadLine

%\>
 \<br\>Den \<b\>\<%Response.Write godkand %\>\</b\> gjorde du din \<b\>\<%Response.Write bestallnum %\>\</b\>:e  beställning:\<br\>
 \<b\>\<%Response.Write namn %\>, \<%Response.Write adress %\>, \<%Response.Write zip %\>, \<%Response.Write stad %\>, \<%Response.Write land %\>\</b\>\<br\>
 Den innehåller följande varor:\<br\>
 \<b\>
 \<%
   for i = 0 to 10
        varor = MinFil.ReadLine
        if varor = "\*" then
        exit for
        else
        myArray = Split(varor,",")
        produkt = myArray(0)
        antal = myArray(1)
        levdatum = myArray(2)

    Response.Write antal & " "
    Response.Write produkt & "\<br\>"
        end if
        Next
  %\>
  \</b\>
 Beställningen ser ut att kunna skickas ungefär \<b\>\<%Response.Write levdatum %\>\</b\>\<br\>
 Priset inklusive frakt blir \<b\>\<%Response.Write totalt %\>\</b\> som \<%Response.Write betsatt %\>
 \<br\>
\<%
end if
Wend
MinFil.Close
%\>
\</body\>
\</html\>
Det lustiga är att det funkar med Sune, men inte med Kjell.
Då programmet kommer till Kjell visar det bara hans första beställning och sen stannar det med följande meddellande:
"Microsoft VBScript runtime error '800a0009' 
Subscript out of range: '\[number: 1\]' 
/bonab/go.asp, line 27" - hänvisning till 
"bestallnum = arrArray(1)".
Varför Kjell är inte omtyckt? :)
Det är ju samma villkor för båda. 
Kanske nån har lust och köra mitt lila programm, för att förstå det hela bättre.

Katja

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

## #2 — LarsG, 2002-05-08T16:30Z

Du har denna rad

```
if idnum = inum then
```

om det villkoret inte är uppfyllt så måste du ha en else-gren som läser igenom filen tills dess att det står en \* (eller att du kommer till slutet på filen).

Som det är nu så är du på fel position i filen när du kommer till denna kod

```
godkand = MinFil.ReadLine
```

Variabeln godkand kommer då att få värdet SUNE ABRAHAMSSON

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43373-andas-djupt-en-jättefråga