FSO - udskrive utilmeldte mapper
Jeg kører dette hvor jeg udskriver de undermapper der er i mappen,men den skal kun udskrive undermapper der ikke er tilmeldt iforvejen"<td>" &_
"<select name=""txt"">" & vbCrLf &_
"<option value=""stand"" selected> Vælg en mappe" & vbCrLf
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.getFolder(Server.MapPath("..\gall"))
For Each Item in f.SubFolders
NewName = Replace(Item.Name, "æ", "ae")
NewName = Replace(NewName, "ø", "oe")
NewName = Replace(NewName, "å", "aa")
NewName = Replace(NewName, "Æ", "ae")
NewName = Replace(NewName, "Ø", "oe")
NewName = Replace(NewName, "Å", "aa")
NewName = Replace(NewName, " ", "_")
Set rsTjek = Conn.Execute("select * from gall")
If Not rsTjek.eof then
If NewName <> rsTjek("txt") Or Item.Name <> rsTjek("txt") Then
If NewName <> Item.Name Then
Response.Write "<option value=""" & NewName & """> " & NewName & " (" & Item.Name & ")" & vbCrLf
Else
Response.Write "<option value=""" & Item.Name & """> " & Item.Name & vbCrLf
End If
End If
End If
If NewName <> Item.Name then
item.Name = NewName ' Ændre navnet på mappen
End If
Next
set rsTjek=nothing
Hvis Db'en er helt tom, så udskriver den ingen mapper. Men så snart der er en post til at tjekke med så funker det perfekt.
DVS der kun udskrives utilmeldte undermapper...
jeg har stirret mig blind på det nu...
/lars
