viser asp fil som billede

hey har et gallery der viser billeder der ligger i samme mappe som asp galleriet men galleriet viser også den asp fil nogle der ved hvordan man lige laver om på det ?? koden er:

<%
billedeSti = "/album/skitur/"
antalBillederPrSide = 9
antalBillederPrRekke = 3


if Request.QueryString("billede") = "" then
start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each billed in fc
arrayBuild = arrayBuild & billed.name & "|"
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

myArray = Split(arrayBuild, "|")

Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td width="<%=Int(antalBillederPrRekke/100)%>"><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = 3 then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%>
</table>
<center>
<%
if start <> 0 then
response.write "<a href=""?start=" & (start - 6) & """>Forrige</a>"
end if
response.write("&nbsp;")
if nesteside <> 1 then
response.write "<a href=""?start=" & (start + 6) & """>Næste</a>"
end if
%>
</center>
<%
else
'Vis billedet
%>
<tr><td align="center">
<img SRC="<%=Request.QueryString("billede")%>" border="1" width="506" height="462">
<p align="center"><a href="java script:history.back();">Tilbage</a></p>
</td>
</tr>
</table>
<%
end if %>

på forhånd tak :)
//jesper