Forbedring af Newssytem

hej

lige lidt inspiration som du burde kunne løse dit problem udfra:

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<P>
<%
Path = "images" 'ændre til din foldernavn her!!!

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder = fso.GetFolder(Server.MapPath(path))

    Response.Write "Din folders indhold her i dropdown: <BR>"
   
    Response.Write "<SELECT id=""select1"" name=""select1"">"
    FOR EACH thing in MyFolder.Files
        If thing.type = "Compuserv GIF Image" OR thing.type = "JPEG Image" Then
            Response.Write "<OPTION VALUE='" & path & "\" & thing.Name & "'>" & thing.Name & "</OPTION>"
        End if
    NEXT
    Response.Write "</SELECT><BR>"

    Response.Write "Din folders indhold her som liste: <br>"
    Response.Write "<TABLE WIDTH='500'>"
    Response.Write "<TR><TH>Filnavn</TH><TH>Størrelse</TH><TH>Type</TH><TH>Oprettet</TH></TR>"

    FOR EACH thing in MyFolder.Files
        If thing.type = "Compuserv GIF Image" OR thing.type = "JPEG Image" Then
            Response.Write "<TR><TD><A HREF='" & path & "\" & thing.Name & "'>" & thing.Name & "</A></TD><TD ALIGN=RIGHT><CENTER>" & thing.Size & " bytes</TD><TD><CENTER>" & thing.Type & "</TD><TD><CENTER>" &thing.DateCreated & "</TD><TR>"
        End if
    NEXT

    Response.Write "</TABLE>"

%>

</P>

</BODY>
</HTML>

Spørg endelig hvis der er noget!

/hiks

Ka jeg ikke bruge til noget, tid til at lukke vel..

Du skriver:

Vil gerne have at der kommer en lille dropdown boks hvor der står alle de billed filer jeg har i den mappe og viser dem..

Hvad er det den kode der gør? Har du prøvet at køre den?

/hiks

Hiks. ja har prøvet og køre den, mit webhotel understøtter ikke fso.