---
title: "While-Wend gåta"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43177-while-wend-gåta"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "katis"
published: "2002-05-06T12:13:34.000Z"
updated: "2002-05-06T13:33:25.000Z"
replies: 1
views: 241
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/43177-while-wend-gåta"
---

# While-Wend gåta

## #1 — katis, 2002-05-06T12:13Z

Halloi igen!
Min lilla text filen ser ut så:
00:00:00 
00:00:00 
00:00:00 
01146951
00:00:00 
00:00:00 
00:00:00 
01146951

Min blygsamma ASP - så: 
\<html\>
\<%@ LANGUAGE="VBScript"%\>
\<body\>
\<p\>\<h3\>\<font style = "Verdana"\>Dina gamla beställningar\</font\>\</h3\>\</p\>
\<%
path = Server.MapPath("\\bonab")
fil = path & "\\Doc.txt"
Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil)

inum = Request.QueryString("id")

While Not MinFil.AtEndOfStream
for i=1 to 3
MinFil.SkipLine
next

di = MinFil.ReadLine

if inum = di then
Response.write inum & "\<br\>"
end if
Wend
MinFil.Close
%\>
\</body\>
\</html\>
Mitt intresse nu att programmet kan lista ut var fjärde rad om den sammanfaller med "id" från webbläsarens adressfälte.
Med den ovanstående koden får jag bara en utskrift.
Det måste vara fel i While-Wend slinge.
Skulle uppskatta jättemycket om ngn kommer underfund med felet.

Katja

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

## #2 — LarsG, 2002-05-06T13:33Z

Om du testar att konvertera värdena innan du jämför. det kanske ligger lite blank i filen

```
if cdbl(inum) = cdbl(di) then
```

eller om du vill att inledande 0 skall vara signifikant

```
if trim(inum) = trim(di) then
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43177-while-wend-gåta