Vise alle filer i én mappe

der findes ikke en command til dette. du er nødt til at lave noget manuelt:

<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder( Server.MapPath( "../pictures" ) )
Response.Write( "<select id=""sel"">" )
for each objFile in objFolder.Files
    Response.Write( "<option value=""" & objFile & """>" & objFile & "</option>" )
next
Response.Write( "</select>" )
%>

Hvis jeg så gerne vil have vist det aktuelle billede man har valgt nedenunder, hvordan gør jeg så det? :)

Det eneste du skal skifte ud her, er

[SERVER] --> skal sættes til dit servernavn/domæne
[STI TIL FOLDER MED BILLEDER] --> stien til der dine billeder ligger.

så denne linje:

objImg.src = "http://[SERVER]/[STI TIL FOLDER MED BILLEDER]/" + objSel.options[  objSel.selectedIndex ].value;

skal se ud som dette:

objImg.src = "http://www.minserver.dk/folder/pictures/" + objSel.options[  objSel.selectedIndex ].value;

<%@language="vbscript"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Untitled</title>
    <script language="JavaScript" type="text/javascript">
    <!--
    function showPic( objSel )
    {
        var objImg = document.getElementById( "img" );
        if( objImg.style.visibility = "hidden" )
        {
            objImg.style.visibility = "";
        }
        objImg.src = "http://[SERVER]/[STI TIL FOLDER MED BILLEDER]/" + objSel.options[  objSel.selectedIndex ].value;
    }
    //-->
    </script>
</head>

<body>
<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder( Server.MapPath( "../pictures" ) )
Response.Write( "<select id=""sel"" onchange=""showPic( this );"">" )
for each objFile in objFolder.Files
    Response.Write( "<option value=""" & objFile.Name & """>" & objFile & "</option>" )
next
Response.Write( "</select>" )
%>
<img src="" id="img" style="visibility:hidden;">
</body>
</html>

/nute

Fattede jeg ikk en brik af :P Ka du ikk sætte det ind i min kode under der hvor der er en liste over alle billederne? :)

<form name="addnews" method="post" action="add.asp?id=addnews">
<table>
<tr>
<td>
<table>
<tr>
<td><b>Overskrift</b></td>
<td><input type="text" name="overskrift" size="20"></td>
</tr>
<tr>
<td><b>Forfatter</b></td>
<td><input type="text" name="forfatter" size="20"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Beskrivelse (max 250 tegn)</b></td>
<td><textarea name="beskrivelse" rows="9" cols="40"></textarea></td>
</tr>
<tr>
<td align="left" valign="top"><b>Artikel</b></td>
<td><textarea name="beskrivelse" rows="12" cols="40"></textarea></td>
</tr>
</table>
</td>
<td align="left" valign="top">


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("..\pictures"))
%>


<SELECT NAME="billede" onChange=changePreview() size="12" style="border:1px solid #ECE9E1; background-color: #ECE9E1; font-family:Tahoma; font-size:8pt">
<% For Each objFile in objFolder.Files
if (inStr(1, objFile.Name, ".gif",1) > 0) OR (inStr(1, objFile.Name, ".jpg",1) > 0) OR (inStr(1, objFile.Name, ".jpeg",1) > 0) then  %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%></option>
<% end if
  next %>
</select>
<%
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
<br>
<input type="submit" value="OPRET" style="font-family: Tahoma; font-size: 8pt; border-style: dotted; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
</td>
</tr>
</table>
</form>

hvad var det du ikke fattede ?? kom med de specifikke ting du ikke fattede istedet for at generalisere. jeg vil gerne forklare hvad jeg har gjort, men så må du komme med nogle konkrete spm ... jeg kan ikke bare sætte det ind i din kode, for du vil helt sikkert komme med nogle spm hvis jeg gjorde det

/nute

Du fandt jeg vidst ud af det - men SKAL jeg skrive selve serveren, for jeg arbejde p.t. på en midlertidig server, og når det så skal uploades til en anden server, skal det skiftes ud, eller hvad?

Det virkede ikke - nu udskriver den bare STIEN til alle billederne i en pop-down. Og min kode ser sådan ud:

<td align="left" valign="top">


<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder( Server.MapPath( "../pictures" ) )
Response.Write( "<select id=""sel"" onchange=""showPic( this );"">" )
for each objFile in objFolder.Files
    Response.Write( "<option value=""" & objFile.Name & """>" & objFile & "</option>" )
next
Response.Write( "</select>" )
%>
<img src="" id="img" style="visibility:hidden;">


<br>


Og i HEAD:
<script language="JavaScript" type="text/javascript">
    <!--
    function showPic( objSel )
    {
        var objImg = document.getElementById( "img" );
        if( objImg.style.visibility = "hidden" )
        {
            objImg.style.visibility = "";
        }
        objImg.src = "STITILBILLEDER" + objSel.options[  objSel.selectedIndex ].value;
    }
    //-->
    </script>

Og STITILBILLEDER har jeg skrevet ind.

hmm ... du kan prøve at lave dem om til:

objImg.src = objSel.options[  objSel.selectedIndex ].value;

/nute