<% ' Picture Album from A1 Limousine Dim CurFile, ShowSub, ShowPic, PictureNo Dim strPathInfo, strPhysicalPath CurFile = "default.asp" %> A1 Limousine Service in Copenhagen
Klik på et billede! - Click on a Photo !
copyright ©.
method="POST"> Vælg/Choose:

<% If ShowPic > " " then ShowPic = Replace(ShowPic, " ", "%20") Response.Write "
Tilbage! - Back!
" Else %> <% 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 "
" Response.Write(" ") Response.Write("" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "") Response.write "
Klik på et billede for at se det forstørret!
Click on photo to see enlargement!
" %> <% End if %>