Tårarna rinner

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

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 09 jul 2001]

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

------------------
-----------------