---
title: "lista endast .jpg och .gif, inte .asp?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83904-lista-endast-jpg-och-gif-inte-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tank82"
published: "2003-08-10T08:59:22.000Z"
updated: "2003-08-10T21:08:43.000Z"
replies: 4
views: 222
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/83904-lista-endast-jpg-och-gif-inte-asp"
---
# lista endast .jpg och .gif, inte .asp?
## #1 — tank82, 2003-08-10T08:59Z
Hejsan!
Går det att göra så endast .jpg och .gif filer visas? för nu så ser man även .asp osv och det vill jag inte. :q
```
<%
Antal = 8
MappNamn = "bilder"
%>
<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))
Set MyDrive = Mapp.subFolders%>
Foto!
<%If Request.QueryString("visa") = "bilder" Then
MappNamn = Request.QueryString("mapp")
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<%If Mapp.Files.Count = 0 Then%>
Inga bilder
<%Else
x=0
For Each File In Mapp.Files
If x = Antal Then
Response.Write "
"
x = 0
End If%>
<%X=X+1
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%>
<%Next
Response.Write "
"
End If
End If%>
<%End If%>
```
Permalänk: https://www.webforum.nu/p/83904
## #2 — mozilla, 2003-08-10T10:04Z
```
filetype= Right(File.Name,Len(File.Name)-inStrRev(File.Name,"."))
if(filetype = "gif" OR filetype= "jpg") Then ...
```
Permalänk: https://www.webforum.nu/p/1132819
## #3 — tank82, 2003-08-10T14:04Z
hmm ok men var lägger jag in detta? :)
Jag har provat på lite olika sätt men får det ej att fungera..
Permalänk: https://www.webforum.nu/p/1132931
## #4 — solbulle, 2003-08-10T18:14Z
```
<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))
Set MyDrive = Mapp.subFolders%>
Foto!
<%If Request.QueryString("visa") = "bilder" Then
MappNamn = Request.QueryString("mapp")
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<%If Mapp.Files.Count = 0 Then%>
Inga bilder
<%Else
x=0
For Each File In Mapp.Files
filetype= Right(File.Name,Len(File.Name)-inStrRev(File.Name,"."))
If(filetype = "gif" OR filetype= "jpg") Then
If x = Antal Then
Response.Write "
"
x = 0
End If
%>
<%
X=X+1
End If
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%>
<%Next
Response.Write "
"
End If
End If
%>
<%End If%>
```
Permalänk: https://www.webforum.nu/p/1133051
## #5 — tank82, 2003-08-10T21:08Z
Fan solbulle du är en klippa :)
Permalänk: https://www.webforum.nu/p/1133157
---
Tråden på webben: https://www.webforum.nu/amne/asp/83904-lista-endast-jpg-och-gif-inte-asp