bi asp versiyonu da benden olsun
banner klasöründeki resimleri rastgele gösterir tek tek tün resimleri belirtmenize gerek yok klasöre atın yeter
Alıntı
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject" )
Set Klasor = FSO.GetFolder(Server.MapPath("Banner" ))
Set Resimler = Klasor.Files
ResimDizi = Array(0)
For Each Resim In Resimler
If Right(Resim.Name,2) <> "db" Then
ResimDizi(Ubound(ResimDizi)) = Resim.Name
ReDim Preserve ResimDizi(Ubound(ResimDizi)+1)
End If
Next
Randomize Timer
Sayi = Int(Rnd*Ubound(ResimDizi))
%>
resmi koyacağınız yere
Alıntı
<img border="0" src="<%=ResimDizi(Sayi) %>">