A1 Limousine Service in Copenhagen

<% ' 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 !

<% 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 %>