---

Jeg har nedestående side, som viser mig indholdet af den folder
på serveren som siden ligger i.

<%
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(server.mappath("."))
Set folcoll = demofolder.SubFolders
Response.Write "Subfolders in current folder<br><br>"
For Each subfol in folcoll
Response.Write "<a href=""" & subfol.name & """>" & subfol.name
& "</a><br>"
Next

Set demofile = filesys.GetFolder(server.MapPath("."))
Set filecoll = demofile.Files

Response.Write "<br>Files in current folder<br><br>"
For Each fil in filecoll
filist = filist & fil.name & "<br>"
Next
Response.Write filist
%>

Mit første spørgsmål:

Hvordan får jeg resultatet Response.Write filist skrevet i en
rullemenu?

Jeg har forsøgt efter bedste over bevisning med 7-8 ting med
<select> og <option> paleceret forskellige steder, men intet
virker.

Hvem har svaret?



--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

**[laessoe]** skrev:

> Response.Write "<br>Files in current folder<br><br>"
> For Each fil in filecoll
> filist = filist & fil.name & "<br>"
> Next

Prøv følgende:

   fillist = "<select id=""filliste"" size=""10"">"
   For Each fil in filecoll
       filist = fillist & vbcrlf & _
           "<option>" & fil.name & "</option>"
   Next

   fillist = fillist & vbCrLf & "</select"> & vbCrLf

   Response.Write filist

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jens Gyldenkærne Clausen skrev:

> fillist = fillist & vbCrLf & "</select"> & vbCrLf

Hov - en lille typo. Ovenstående linje skal være

fillist = fillist & vbCrLf & "</select>" & vbCrLf


--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> fillist = fillist & vbCrLf & "</select>" & vbCrLf

Verdensklasse!

Kan du huske at vi havde <select> op og vende i:
http://www.html.dk/nyhedsgrupper/dk_edb_internet_webdesign_server
side_asp/default.asp?messageid=%3Cbnntkp%24730%241%40sunsite%2Edk
%3E

Kan du kort forklare hvorfor at fremgangsmåden er anerledes her?

+

Hvis nu jeg skal have vist filer fra en anden mappe end den siden
ligger i, hvorledes skal det formuleres i scriptet?


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jens Gyldenkærne Clausen wrote:

> Prøv følgende:
>
>    fillist = "<select id=""filliste"" size=""10"">"
>    For Each fil in filecoll
>        filist = fillist & vbcrlf & _
>            "<option>" & fil.name & "</option>"
>    Next
>
>    fillist = fillist & vbCrLf & "</select"> & vbCrLf
>
>    Response.Write filist

Hvis det så endelig skal være, så er det ikke så godt at sammenføje
strenge. VBScript bruger umanelig meget performance på det i forhold
til at skrive strengene ud med det samme:

Response.Write "<select id=""filliste"" size=""10"">"
For Each fil in filecoll
Response.Write vbcrlf & "<option>" & fil.name & "</option>"
Next
Response.write vbCrLf & "</select>" & vbCrLf

Men bortset fra det, så giver det jo det samme resultat.

--
Thomas Due
Software Developer
Scanvaegt Nordic A/S
Posted with XanaNews version 1.15.7.4

---

**[laessoe]** skrev:

>> fillist = fillist & vbCrLf & "</select>" & vbCrLf
>
> Verdensklasse!

Se også Thomas' svar. Det er en langsommelig måde at opbygge
strengen på i forhold til at udskrive den løbende.


> Kan du huske at vi havde <select> op og vende i:
> http://www.html.dk/nyhedsgrupper/dk_edb_internet_webdesign_server

Nej - men jeg har googlet mig frem til den (oversigten på html.dk
er for besværlig til mig).

> Kan du kort forklare hvorfor at fremgangsmåden er anerledes her?

Jamen er den det? I den tidligere tråd var der navn/value-par, så
det var en ide at bruge <option value="42">Irma</option> - det er
der ikke grund til her. Ellers er der ikke megen forskel.

Med et postsæt kan man benytte metoden GetRows der skulle være
rigtig god til fx selectbokse. Det kan man vist ikke med en
almindelig collection (som en files-collection).


> Hvis nu jeg skal have vist filer fra en anden mappe end den siden
> ligger i, hvorledes skal det formuleres i scriptet?

Ret linjen her:

   Set demofolder = filesys.GetFolder(server.mappath("."))

- således at argumentet til server.mappath peger på den folder du
vil vise. Det er det hele.

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Nej - men jeg har googlet mig frem til den (oversigten på html.dk
> er for besværlig til mig).

*Ja*, ved hvad du mener...

> Jamen er den det? I den tidligere tråd var der navn/value-par, så
> det var en ide at bruge <option value="42">Irma</option> - det er
> der ikke grund til her. Ellers er der ikke megen forskel.

Jeg synes bare at jeg har prøvet alle kombinationer - det tætteste jeg
kom var, at få rullemenuen men med én option med de fire filer listet
lige i r**** på hinanden. Forsøgte med <br> og vbcrlf men intet
virkede.


> Ret linjen her:
>
>    Set demofolder = filesys.GetFolder(server.mappath("."))

Dvs.:

Set demofolder = filesys.GetFolder(server.mappath("/pics."))

...hvis jeg skal selecte fra subfolder Pics? Eller er det uden
backslash og . (punktum)... ja, jeg kunne jo forsøge mig frem men jeg
kan ikke komme på mit FTP lige pt....


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

**[laessoe]** skrev:

> Jeg synes bare at jeg har prøvet alle kombinationer - det
> tætteste jeg kom var, at få rullemenuen men med én option med
> de fire filer listet lige i r**** på hinanden.

Kig i din html-kode og se hvad der kommer ud. Kig derefter i din
asp-kode og regn baglæns for at finde ud af hvordan html-koden
genereres. Der skal være én <option> pr. enhed der skal listes.

> Set demofolder = filesys.GetFolder(server.mappath("/pics."))

Hvis du vil hente fra folderen "pics." i roden af sitet.

> Eller er det uden backslash og . (punktum)...

Ja - hvis du vil hente fra folderen "pics" set ud fra den aktuelle
folder.

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Kig i din html-kode og se hvad der kommer ud. Kig derefter i din
> asp-kode og regn baglæns for at finde ud af hvordan html-koden
> genereres. Der skal være én <option> pr. enhed der skal listes.

Javel - så er jeg med...

> Hvis du vil hente fra folderen "pics." i roden af sitet.
>
> > Eller er det uden backslash og . (punktum)...
>
> Ja - hvis du vil hente fra folderen "pics" set ud fra den aktuelle
> folder.

Tak for kvalificerede og konstruktive råd...

/Jacob

> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

**[laessoe]** skrev:

> Tak for kvalificerede og konstruktive råd...

Velbekomme.

>> Jens Gyldenkærne Clausen
>> Svar venligst under det du citerer, og citer kun det der er
>> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor
>> og hvordan på http://usenet.dk/netikette/citatteknik.html

Jeg er rigtig glad for min signatur, men du behøver nu ikke at
citere den. Prøv at læse den i stedet ;)
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Jeg er rigtig glad for min signatur, men du behøver nu ikke at
> citere den. Prøv at læse den i stedet ;)

OK - det var en smutter. Glemte at slette den.

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials