---
title: "FSO problem!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/125952-fso-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "paddan"
published: "2005-04-08T10:24:42.000Z"
updated: "2005-04-08T11:52:08.000Z"
replies: 4
views: 251
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/125952-fso-problem"
---

# FSO problem!

## #1 — paddan, 2005-04-08T10:24Z

Hej Hej!
Jag har fått tag i detta scriptet:

```
<%
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("/sponsor/"))
set files = folder.files

for each Item in files

response.write "<img src='sponsor/"& Item.name &"'>"
Next

set folder = nothing
set fso = nothing
set files =nothing
%>
```

 

Det listar jo alla bilderna..nu kommer det till problemet!
Vi säger att jag döper en fil till adidas.com.gif

Då vill jag att Den ska visa bilden som länk och skriva ut <http://www.adidas.com> som länk!

Hur gör man det??

Mvh Martin

Permalänk: https://www.webforum.nu/p/125952

## #2 — @nders, 2005-04-08T10:34Z

```
function getAddr(imgname)
     imgname = replace(imgname, ".gif", "")
     imgname = replace(imgname, ".jpg", "")
     getAddr = "http://" & imgname & "/"
end function
```

Kalla på funktionen:

```
sItemName = Item.Name
response.write "<a href=""" & getAddr(sItemName) & """><img src=""" & sItemname & """ border=""0""></a>"
```

Du får inte ha funktionsdefinitionen i en loop.

Permalänk: https://www.webforum.nu/p/1589119

## #3 — paddan, 2005-04-08T11:43Z

Det blir fel...
Fel med:
Kompileringsfel i Microsoft VBScript fel '800a03ea' 

Syntaxfel 

Den pekar på det sista...\</a\>

```
<%
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("/sponsor/"))
set files = folder.files

function getAddr(imgname)
     imgname = replace(imgname, ".gif", "")
     imgname = replace(imgname, ".jpg", "")
     getAddr = "http://" & imgname & "/"
end function

for each Item in files

sItemName = Item.Name
response.write "<a href=""" & getAddr(sItemName) & """><img src=""" & sItemname & """ border=""0"">"</a>"

Next

set folder = nothing
set fso = nothing
set files =nothing
%>
```

Permalänk: https://www.webforum.nu/p/1589168

## #4 — @nders, 2005-04-08T11:45Z

Ett citationstecken för mycket mellan html-taggarna, det borde du också kunna se?

Ta bort " precis före \</a\>.

Permalänk: https://www.webforum.nu/p/1589170

## #5 — paddan, 2005-04-08T11:52Z

Såg inte det...
Tack ännu en gång för hjälpen...!

Mvh Martin

Permalänk: https://www.webforum.nu/p/1589177

---

Tråden på webben: https://www.webforum.nu/amne/asp/125952-fso-problem