Lista mappar i en droppdown???

Hur ser den resulterande HTML-koden ut?

Det blir en tom dropdownmeny och så lisas alla mapparnas namn efter varandra....
kollla här: http://www.sköld.nu/bildgalleri/bilder/form1.asp

några ideer??

htmlen ser ju ut såhär:

<select name="lang" id="vanligtext">
<select name=lang>
 <option value=bilder>bilder</option>
 <option value=kalle>kalle</option>
 <option value=palle>palle</option>
</select>

Följande rad bör väl inte vara där?

<select name="lang" id="vanligtext">

Ta bort den så borde det funka.

Man tackar..det är enkelt att misa en sådan skit sak...!

Mvh Martin

Sen skulle jag även lagt till " runt värdena i option, annars kommer det inte funka om du får ett mappnamn med mellanslag i.

response.write "<option value=""" & strFolderName & """>" & strFolderName & "</option>"

En fråga till bara... varför funkar inte denna kod:

<%
Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.SaveVirtual("\bildgalleri &"/"& Request.Form("mapp")
 
Response.Redirect("form1.asp")
%>

Den används för att ladda upp en fil i rätt mapp som man väljer med dropdownmenyn som vi fixade innan....

Felmed:
Microsoft VBScript compilation error '800a03ee'

Expected ')'

/bildgalleri/bilder/UploadScript1.asp, line 6

Count = Upload.SaveVirtual("\bildgalleri &"/"& Request.Form("mapp")

Precis som det står väntade sig motorn ett ) . Det saknas ett sådant sist på denna rad

Count = Upload.SaveVirtual("\bildgalleri &"/"& Request.Form("mapp")[b])[/b]

/R

Forfarande fel...
Microsoft VBScript compilation error '800a03ee'

Expected ')'

/bildgalleri/bilder/UploadScript1.asp, line 6

Count = Upload.SaveVirtual("\bildgalleri &"/"& Request.Form("mapp"))

Den pekar på m:et i mapp....

jaja... Det saknas, eller är för många "
Har aldrig använt denna komponenten så jag är osäker om följande blir rätt:

Count = Upload.SaveVirtual("\bildgalleri" & "/" & Request.Form("mapp"))

Annars kanske det räcker med

Count = Upload.SaveVirtual("/bildgalleri/" & Request.Form("mapp"))

Den här koden funkar men den laddar inte upp där den ska utan i bildgallerimappen...
Count = Upload.SaveVirtual("/bildgalleri/" & Upload.Form("mapp"))

Så här ser formkoden ut:

   <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp">
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE1">
<select name="mapp">
<%
Dim objFSO, objFolder, objSubFolders
Dim strFolderPath

strFolderPath = Server.MapPath("\bildgalleri")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(strFolderPath)
		Set objSubFolders = objFolder.SubFolders
			
For Each Folder IN objSubFolders
				strFolderName = Folder.Name
				
				response.write "<option value=""" & strFolderName & """>" & strFolderName & "</option>"

			Next
			
		Set objSubFolders = Nothing
	Set objFolders = Nothing
Set objFSO = Nothing

%>
</select>
<BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR>
   <INPUT TYPE=SUBMIT VALUE="Upload!">

  </FORM>

1. Använd [kod]-taggar
2. Kan du verkligen använda Upload.Form när du använder ett multipart/form-dataformulär?
3. Lägg sökvägen i en variabel som du sedan skriver ut, så ser du om den stämmer med ditt önskemål.

Tack för hjälpen...!
Tänkte precis på det där med variablar...
Ber om ursäkt för kodtaggarna!!!

Mvh Martin

Du behöver inte be om ursäkt, ändra inlägget och tänk på det i framtiden. :)

Har ändrat inlägget ....
En fråga till bara ....försöker spara upload.form i en variabel men det fungerar inte i koden sen när jag ska spara...!

<%
fold = upload.Form("mapp")

Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.SaveVirtual("\bildgalleri" & "/" & fold  ")

Response.Redirect("form1.asp")
%>

Felmed:
Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/bildgalleri/bilder/UploadScript1.asp, line 8

Count = Upload.SaveVirtual("\bildgalleri" & "/" & fold ")

Den pekar på efter & fold ")

Vad är den är fel???

1. Du kan inte ha "fold = upload.Form("mapp")" innan "Set Upload = Server.CreateObject("Persits.Upload")".

2. " efter & fold ska bort

<%
Set Upload = Server.CreateObject("Persits.Upload")
fold = upload.Form("mapp")

Count = Upload.SaveVirtual("\bildgalleri" & "/" & fold )

Response.Redirect("form1.asp")
%>

oki...den funkar så där nu bara..den sparar inte i rätt mapp..bilden man laddar upp lägger sig i mappen "bildgalleri"
I den mappen bildgalleri finns det andra mappar som listas i en dropdown meny..men det kvittar vilken mapp jag väljer i den listan så lägger sig bilden fortfarande i grundmappen "bildgalleri"

Det borde ju tyda på att variabeln "fold" inte har nåt värde. Skriv ut den och kolla så att allt stämmer.