vise kun jpg med fso ?????????

Her har du det komplette kode, du må lige tilpasse den lidt til din server:

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objMainFolder = objFileSystem.GetFolder(server.mappath("../images\")
Set objRsFiles = objMainFolder.Files
intFilesCount = -1
redim aryFiles(0)
FOR EACH FILE IN objRsFiles
    strFileName = file.name
    intLenMynd = INT(Instr(1, file.name, "_litil.jpg", 1)-1)
    IF intLenMynd>0 THEN
        strImage = LCASE(LEFT(strFileName,intLenMynd) & RIGHTstrFileName,4))
        strImage = LEFT(strImage,Len(strImage)-4)
    END IF
    IF Right(strFileName,4) = ".jpg" then
        intFilesCount = intFilesCount + 1
        redim preserve aryFiles(intFilesCount)
        aryFiles(intFilesCount) = strImage
    END IF
NEXT

/Curriculum

Erstat:
intLenMynd = INT(Instr(1, file.name, "_litil.jpg", 1)-1)
med:
intLenMynd = INT(Instr(1, file.name, ".jpg", 1)-1)

sådan ...

ok prøv lige at skrive det hele tak

altså både det jeg skal tilføje og hele min kode i et ?

den folder som der er tale om er ..... /flash/adminn ....

Her er et link til scriptet...

http://iceb.ljnet.dk/flash/adminn/admin.asp

forkert link her er det .....

http://iceb.ljnet.dk/flash/adminn/delete.asp

vær venlig ikke at slette nogle af mine filer tak....

det kan gøres meget simplere:

<form method=post action=deletion.asp>

<%





imgdir = Server.Mappath("/flash/adminn/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(imgdir)
For each file in folder.files
    If Right(file.name,4) = ".jpg" Then
    response.write "<img border=0 src='/flash/adminn/" & file.name & "'>"



file=file.name

fs=Server.MapPath("/flash/adminn/" )


i=imgdir & ""& file

response.write i



%>
<INPUT TYPE="checkbox" NAME="ima" value="<%response.write i %>" > <br><br>
<%
End If
next
%>
<br><input type="submit" value="Slet dem"><br>
</form>


Jeg har tilføjet 2 linier til din eksisterende kode

/tjacob

ok tak tjacob nu virker det men jeg har fået en anden fejl nu....

stien til billeder der skriver ud er ikke korrekt .....

http://iceb.ljnet.dk/flash/adminn/delete.asp

kig her ovenfor....

D:\web\5er.com_kadsfd\wwwroot\flash\adminnimage2.jpg

dette skriver den men den skulle skrive....

D:\web\5er.com_kadsfd\wwwroot\flash\adminn\image2.jpg

hvad kan der være galt ?

prøv at ændre følgende:
i=imgdir & ""& file

til

i=imgdir & "\"& file

Det er nok fordi jeg klippede fra dit spm, og der har Eksperten fjernet
backslashen ;-)

hmm nå ja jeg fandt også lige fejlen tak tak

lukker nu ....

Hej... fedt script.. men savner lidt at man kan få/se koden til deletion.asp filen