---
title: "Tårarna rinner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10468-tårarna-rinner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "star"
published: "2001-07-09T13:26:00.000Z"
updated: "2001-07-09T16:35:00.000Z"
replies: 2
views: 203
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/10468-tårarna-rinner"
---

# Tårarna rinner

## #1 — star, 2001-07-09T13:26Z

Hej igen, jag har fått ett litet problem:
Varför skriver följande kod bara ut första träffen i databasen, (post nummer 2), trots att flera senare också innehar rätt parametrar? Om någon smart person ser någonting som ser galet ut så får ni gärna hojta till! 

```
'* ANSLUTER TILL DATABASEN
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(".") & "\fso.mdb"
SQL = "SELECT * FROM fso"
Set Rec = Server.CreateObject("ADODB.Recordset")
Rec.Open SQL, Con, adOpenStatic, adLockOptimistic

'* ANSLUTER TILL FILSYSTEMET
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath(".") & "\images\" & Request.Querystring("path") & "")
FolderName = f.name

'*SÄTTER UNDERKATALOGER
Set SubFolders = F.SubFolders

'VISAR UNDERKATALOGER
For Each SubFolder In Subfolders

'JÄMFÖR MOT DATABASEN
Do Until Rec.EOF

'JÄMFÖR PARAMETRAR
If SubFolder.name = Rec("name") then
If session("group") = Rec("group") then

'SKRIVER UT VÄRDEN
Response.Write("<tr><td align='left' width='10'>")
Response.Write("<img src='images/folder.gif'></td><td width='100'>")
Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") &  "?type=images&step=import&path=" & SubFolder.name & "&edit=" & Request.Querystring("edit") & "'>" & SubFolder.name & "</a>")
Response.Write("</td><td align='right'>" & SubFolder.Size & " KB</td>")
Response.Write("</td></tr>")

'* RUNDAR AV
End If
End If

Rec.MoveNext
Loop
Next

Response.Write("</table>")

Rec.Close
Con.Close
```

Tack på förhand

Star

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

## #2 — LarsG, 2001-07-09T15:19Z

Nu loopar du igenom recordsetet och kommer till slutet när du tittar på första subfoldern. 

Sen när du skall jämföra följande subfoldrar så är rec.eof sant så du kommer aldrig in i do until.

Du kan lägga in en rec.movefirst innan do until så att du kommer till början av recodsetet.

```
'* ANSLUTER TILL DATABASEN
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(".") & "\fso.mdb"
SQL = "SELECT * FROM fso"
Set Rec = Server.CreateObject("ADODB.Recordset")
Rec.Open SQL, Con, adOpenStatic, adLockOptimistic
'* ANSLUTER TILL FILSYSTEMET
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath(".") & "\images\" & Request.Querystring("path") & "")
FolderName = f.name

'*SÄTTER UNDERKATALOGER
Set SubFolders = F.SubFolders

'VISAR UNDERKATALOGER
For Each SubFolder In Subfolders

'JÄMFÖR MOT DATABASEN
[b]
rec.movefirst
[/b]
Do Until Rec.EOF

'JÄMFÖR PARAMETRAR
If SubFolder.name = Rec("name") then
If session("group") = Rec("group") then

'SKRIVER UT VÄRDEN
Response.Write("<tr><td align='left' width='10'>")
Response.Write("<img src='images/folder.gif'></td><td width='100'>")
Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?type=images&step=import&path=" & SubFolder.name & "&edit=" & Request.Querystring("edit") & "'>" & SubFolder.name & "</a>")
Response.Write("</td><td align='right'>" & SubFolder.Size & " KB</td>")
Response.Write("</td></tr>")

'* RUNDAR AV
End If
End If

Rec.MoveNext
Loop
Next

Response.Write("</table>")

Rec.Close
Con.Close
```

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

## #3 — star, 2001-07-09T16:35Z

Åh, nu gråter jag ännu mer. Att det ska vara så förbannat enkelt att lösa saker.
Tack så mycket

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10468-tårarna-rinner