<%
strListelenecekKlasor = "uygulamalar/"&request("a")
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject")
If ObjFSO.FolderExists(Server.MapPath(strListelenecekKlasor)) Then
Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor))
RSayisi = strDosyalar.Files.Count
if RSayisi > 0 then
For each strBulunanDosya in strDosyalar.files
if right(strBulunanDosya.Name,"3") = "gif" OR right(strBulunanDosya.Name,"3") = "GIF" OR right(strBulunanDosya.Name,"3") = "JPG" OR right(strBulunanDosya.Name,"3") = "jpg" OR right(strBulunanDosya.Name,"4") = "jpeg" OR right(strBulunanDosya.Name,"4") = "JPEG" OR right(strBulunanDosya.Name,"3") = "png" OR right(strBulunanDosya.Name,"3") = "PNG" OR right(strBulunanDosya.Name,"3") = "BMP" OR right(strBulunanDosya.Name,"3") = "bmp" THEN
u_foto=strListelenecekKlasor&"/"&strBulunanDosya.Name
end if
if kac=3 then kac=0
kac=kac+1
%>
<%
Next
end if
end if
set ObjFSO=nothing
if RSayisi = 0 then response.write "Fotoğraf galerisi boş"
%>
|