Pull Down menu, der viser indhold af en mappe på serveren

<%
dim fs,fo,x,sti
sti ="c:\wwwroot\sider\" 'angiv her stien til mappen
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(sti)for each x in fo.files

response.write "<select size=""1"" name=""filerimappe"">"
response.write "<option value="""&x.Name&""">"&x.Name&"</option>"

next
response.write "</select>"
set fo=nothing
set fs=nothing
%>

hov mangler linieskift:

<%
dim fs,fo,x,sti
sti ="c:\wwwroot\sider\" 'angiv her stien til mappen
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(sti)

for each x in fo.files
response.write "<select size=""1"" name=""filerimappe"">"
response.write "<option value="""&x.Name&""">"&x.Name&"</option>"
next
response.write "</select>"
set fo=nothing
set fs=nothing
%>

Hmm har problemer med at få vist en mappe på min server.
får bare afvide en ik ku findes..

skal ha vist stien \public_html\sider

<%
dim fs,fo,x,sti
sti ="\public_html\sider\" 'angiv her stien til mappen
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(sti)

for each x in fo.files
response.write "<select size=""1"" name=""filerimappe"">"
response.write "<option value="""&x.Name&""">"&x.Name&"</option>"
next
response.write "</select>"
set fo=nothing
set fs=nothing
%>

er det så ik meget rigtigt?

prøv

sti = server.mappath("public_html\sider\")

stien skal angives helt fra c

altså C:\blabla

eller fra det drev den nu ligger på

<%
dim fs,fo,x,sti
sti = server.mappath("public_html\sider\")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(sti)

for each x in fo.files
response.write "<select size=""1"" name=""filerimappe"">"
response.write "<option value="""&x.Name&""">"&x.Name&"</option>"
next
response.write "</select>"
set fo=nothing
set fs=nothing
%>

for stadig bare sti ku ik findes....
og det er lidt svært at vide det c:\bla bla når man er på et webhotel :)

lave en side der hedder rodtest.asp

i denne skal der bare stå:

<%= server.mappath() %>

gem den og kald den fra en browser,
så har du stien til din hjemmeside fra roden

derfra skal så lægges stien fra roden til din mappe,
men det kan vi tage bagefter.

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'server.mappath'

/rod.asp, line 1

Hmmm ?

<%=Server.MapPath("/")%>

ok har nu fundet path, og sat den ind i den kode der skal vise filerne. men får et underligt resultat.. tjek:

http://www.djernes.dk/admin_ny_side.asp

åhja sådan

<%
dim fs,fo,x,sti
sti = server.mappath("public_html\sider\")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(sti)

response.write "<select size=""1"" name=""filerimappe"">"
for each x in fo.files
response.write "<option value="""&x.Name&""">"&x.Name&"</option>"
next
response.write "</select>"
set fo=nothing
set fs=nothing
%>

Tak det virker :)