Bildvisning

Jag testade precis följande kod och bilderna på hemsidan får istället för en http-sökväg en sökväg liknande "file:///D:/home/www/bilder/Caprice.jpg". Vad gör jag för fel?

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("/bilder"))
Set Files = Folder.Files

For each Item In Files
Response.Write "<img src='" & Item & "'>"
Next
%>

------------------
// Skarre

Hej!

Du får ersätta den oönskade delen av sökvägen med nåt bättre. Testa med något liknande detta:

replace(Item,"file:///D:/home/www/","http://www.dindoman.se/")

------------------
mvh André

Och hur skulle den koden se ut implementerad i mitt exempel? Jag har försökt, men jag kan inte tänka mig att det ska se ut enligt nedan.

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder([b]replace(Item, Server.Mappath("/bilder"),"http://www.doman.se/bilder/")[/b])
Set Files = Folder.Files

For each Item In Files
	Response.Write "<img src='" & Item & "'>"
Next
%>

------------------
// Skarre

[Redigerat av Skarre den 05 okt 2001]

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("/bilder"))

Set Files = Folder.Files
For each Item In Files
Response.Write "<img src='" & replace(Item, Server.Mappath("/bilder"),"http://www.doman.se/bilder")) & "'>"
Next
%>

Ungefär, du kanske måste lägga till en / eller så. Orkar inte tänka mer nu.

------------------
essentitia preter non sans multiplicandum