resultat i tabel?

<%
Function ShowFolderList()
folderspec = server.mappath(".")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files %>
<table width="90%">
<% For Each file in foldercollection %>
<tr>
  <td>
<% response.write("<a href='" & file.name & "'>" & file.name & "</A><BR>")%>
  </td>
</tr>
<%Next
End Function
%>

Ups, fejl det skulle være:
<table width="90%">
<% For Each file in foldercollection %>
<tr>
  <td>
<% response.write("<a href='" & file.name & "'>" & file.name & "</A><BR>")%>
  </td>
  <td>
  filstørrelse
  </td>
  <td>
  dato
  </td>
</tr>

<%Next%>
</table>

hmmm, det virker ikke endnu, jeg kigger lige lidt mere på det...

Hvad giver den af fejl !

ingenting! Der kommer slet ikke noget frem...

Prøv at skrive <table width="90%" border="1"> istedet
så kan du se om den opretter en tabel !

Nope, så det må være noget med den omkring liggende kode, jeg kigger lige...

Koden er anbragt i en tabel...
Herunder bliver "text" udskrevet men ikke andet...:

<TD>
<P ALIGN="left"><V ALIGN="top">   
text
<%
Function ShowFolderList()
folderspec = server.mappath(".")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files %>
<table width="90%" border="1">
<% For Each file in foldercollection %>
<tr>
<td>
<% response.write("<a href='" & file.name & "'>" & file.name & "</A><BR>")%>
</td>
<td>
filstørrelse
</td>
<td>
dato
</td>
</tr>
<%Next%>
</table>
<%End Function%>       
</TD>

kan man forøvrigt lave overskrifter i tabellen (hvordan)?

Jeg kan ikke få kkoden til at virke med tabellen...
Der kommer intet output fra funktionen, men heller ingen fejl :o/

Hvis jeg kun bruger nedenstående laver den heller ingen tabel:
<%
Function ShowFolderList()
folderspec = server.mappath(".")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files %>
<table width="90%" border="1">
</table>
<%End Function%>

Jeg skal gerne have det til at virke så yderlige hjælp ønskes...

Virkede det her? Skrev den filerne ud?
<%
Function ShowFolderList()
folderspec = server.mappath(".")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</A><BR>"
Next
ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

doh!!!
Svar du bare igen :o)
(du ved der skal response.write .... til før der sker noget og den var røget i opdateringen...)

ok :-)

Mange tak for hjælpen :o)