FSO problem!

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

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.

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
%>

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

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

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

Mvh Martin