Värme.. och Hjärnstopp (lista alla bilder)

ett logikflum till

<%
	set fs = server.createobject ( "scripting.filesystemobject" )
	set f = fs.getfolder ( server.mappath ( "\folder\" ) )

	set fc = f.files
	for each i in fc
		response.write 'vad du nu vill presentera
	next
%>

Det här fungerar för mig. Jag skriver ut länkar till texter med den i original

[edit] i vissa fall (när det är många saker som skall listas ut har jag laggt dem i en databas istället då jag tror det är snabbare än fso)

men då listar den länk vägen: C:\hemsidor\bilder

då stämmer det inte

Finns massor av dylika liknande script här på forumet.... sök.
Btw. ska du lista dom som miniatyrer, se till att skapa miniatyrer innan el med en komponent.

sant solbulle.. men jag har inte lust att köpa en komponent som gör det och pallar inte fixa det själv tips?

<% 
' Scriptet är nerladdat från [url]http://www.fatmilk.nu/[/url] 
' Skrivet av Ludvig "geek" Lindblom 
' [email]geek@fatmilk.nu[/email] 

Dim sPath, lPath, objFS, fld, fls, count 

'### sPath är namnet på mappen som filerna som skall listas ligger i ### 
'### Mappen som anges i sPath skall ligga i samma mapp som dett script ### 

sPath = "mappnamn" 
lPath = Server.MapPath(sPath) 

Set objFS = CreateObject("Scripting.FileSystemObject") 
Set fld = objFS.GetFolder(lPath) 
Set fls = fld.Files 

On error resume next 
For each File in fls 
%> 
 
<img src="<%=sPath%>/<%=File.Name%>"><BR><BR>
 
<% 
Next 
Set fld = Nothing 
Set objFS = Nothing 
%>

man alltså... du får ju anpassa scriptet så det passar din server.

det jag skrev var ju bara lite logik

Om du har möjlighet att göra thumbnails av de bilder du har på din egen dator och sen ladda uppp, inte med komponent alltså, kan du tex. använda "Easy thumbnails" https://www.fookes.com
(freeware)

ja.. jag kör XP.. och testade detta.. har en fråga.. fungera detta på 2000?

fungerar det på xp-plattform fungerar det med största sannolikhet i win2k

fel av mig

[edit] dubbelpost