01. juni 2003 - 15:47Der er
4 kommentarer og 1 løsning
ændre skrift type
<% sti = "billeder/" ShowSub = sti & request("ShowSub") ShowSubLink = request("ShowSub") strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "" Response.Write(Replace(Folder.Name, " ", "%20")) response.write """>" Response.Write Folder.Name Response.Write "<br>" End if Next
<% sti = "billeder/" ShowSub = sti & request("ShowSub") ShowSubLink = request("ShowSub") strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "" Response.Write(Replace(Folder.Name, " ", "%20")) response.write """><font color=""#000000"">" Response.Write Folder.Name Response.Write "</font><br>" End if Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.