Response.Write "<select onChange=""url=this.options[this.selectedIndex].value; if(url){ location.href=url; }"">"&_
"<option value="""">Välj kategori</option>"
Dim filesys, demofolder, subfol, folcoll, folist, mapp, SCRIPT_NAME
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
Set Folder = CreateObject("Scripting.FileSystemObject")
Set demofolder = Folder.GetFolder(Folder.GetParentFolderName(Server.Mappath(SCRIPT_NAME)))
Set folcoll = demofolder.SubFolders
For Each subfol in folcoll
folist = folist & "<option value=""" & SCRIPT_NAME & "?mapp=" & subfol.Name & """>" & subfol.Name & "</option>"
Next
Response.Write folist & "</select>"
Frågan#1
Tjena hej!
Istället för att scriptet visar "mapparna" i ren text på sidan så vill jag ha en dropdown, hur gör jag?
Koden som skriver ut mapparna.. (jag bifogar även hela koden)
<%
Response.Write "<p><b>Välj kategori.</b></p>"
Dim filesys, demofolder, subfol, folcoll, folist, mapp, SCRIPT_NAME
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
Set Folder = CreateObject("Scripting.FileSystemObject")
Set demofolder = Folder.GetFolder(Folder.GetParentFolderName(Server.Mappath(SCRIPT_NAME)))
Set folcoll = demofolder.SubFolders
For Each subfol in folcoll
folist = folist & "<a href=""" & SCRIPT_NAME & "?mapp=" & subfol.Name & """>" & subfol.Name & "</a>"
folist = folist & "<BR>"
Next
Response.Write folist & "<p>"