<% ' Dim CurFile, ShowSub, ShowPic, PictureNo Dim strPathInfo, strPhysicalPath CurFile = "billeder2.asp" %> seefuture Sværdborg.dk
Entreprenør - Festlokale

Festlokale


method="POST"border="0">

vælge album :


<% If ShowPic > " " then ShowPic = Replace(ShowPic, " ", "%20") Response.Write "

Tilbage
" 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=3 Then Response.write "" PictureNo = 0 End if End if Next Set objFSO = Nothing End if %>
" Response.Write(" ") Response.Write("

" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "") Response.write "

<% End if %>