fylla på en array

Skriv gärna hur du gjorde det så nån annan med samma fel kasnke lär sig också

jo det var så här jag gjorde, men det vart ju inte riktigt som jag ville, nån kanske kan hjälpa mig, det är så att den listar den sista filen 2 gånger.

<%
	lokal = Server.Mappath("..\gey\gif\")

	Set fso = CreateObject("scripting.FileSystemObject")
	Set fsof = fso.GetFolder(lokal)
	Set fsofi = fsof.files

	dim antal
	antal = fsofi.Count

	dim arre(15)
	dim g
	 Response.Write(antal &" <br>")
		For Each fil in fsofi
			if right(fil.Name,4) = ".gif" then
				arre(g) = fil.Name	
			End If	
				Response.Write  arre(g) &" <br>"
			
		Next
%>

<%
lokal = Server.Mappath("..\gey\gif\")

Set fso = CreateObject("scripting.FileSystemObject")
Set fsof = fso.GetFolder(lokal)
Set fsofi = fsof.files

dim antal
antal = fsofi.Count

dim arre()
redim arre(antal-1)
dim g
g = 0
Response.Write(antal &" <br>")
For Each fil in fsofi
      if right(fil.Name,4) = ".gif" then
         arre(g) = fil.Name
         Response.Write  arre(g) &" <br>"
         g = g + 1
      end if
Next
%>

man tackar, funkade prima