" & fLang(strLangWas_Problem00010) & "

" & fLang(strLangGallery00030) & "

" & fLang(strLangInc_Footer_Short00010) & "

" & vbNewline & _ " " & vbNewline & _ " " & vbNewline ' Fotoalbum Dim CurFile, ShowSub, ShowPic, PictureNo Dim strPathInfo, strPhysicalPath CurFile = "ShowPicture.asp" Response.Write "" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & fLang(strLangGallery00040) & "" & vbNewline & _ "" & vbNewline ShowSub = request("ShowSub") ShowPic = request("ShowPic") strPathInfo = Request.ServerVariables("PATH_INFO") strPhysicalPath = Server.MapPath(strPathInfo) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPhysicalPath) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.write "" Response.Write(Folder.Name & "") If ShowSub <= " " Then ShowSub = Folder.Name End if End if Next Set objFSO = Nothing Response.Write "" & vbNewline & _ " " & vbNewline & _ " " & vbNewline If ShowPic > " " then ShowPic = Replace(ShowPic, " ", "%20") Response.Write " Go Back" Else Response.Write "" & vbNewline & _ " " & vbNewline strPhysicalPath = Server.MapPath(".\" & ShowSub) If ShowSub > " " then ShowSub = Replace(ShowSub, " ", "%20") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFolderContents = objFolder.Files For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN ShowPic = Replace(objFileItem.Name, " ", "%20") 'Response.write "" PictureNo = PictureNo + 1 If PictureNo=4 Then Response.write "" PictureNo = 0 End if End if Next Set objFSO = Nothing End if Response.Write "" & vbNewline & _ " " Response.Write(" ") Response.Write("" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "") Response.write " " & vbNewline End if Response.Write "" %>