Nu hvor jeg også gerne vil have vist de filer der er i den mappe man nu trykke på, har jeg selv sat en kode ind, som jeg også har fået herfra. Men den kommer med en fejl som ser sådan her ud:
Server.MapPath() error 'ASP 0171 : 80004005'
Missing Path
/sider/extra/xdownload.asp, line 52
The Path parameter must be specified for the MapPath method.
Når jeg finder line 52 ser den sådan her ud:
strPhysicalPath = Server.MapPath(ShowSub)
Sætter lige hele koden fra siden på her så du kan se hvad der kan være galt:
<%
ImageDir = "/download/" ' Mappen med filerne Kun denne linie skal ændres.
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.SubFolders
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 27 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
Response.Write "<p><strong>" & intImgCount & " Mapper - "
Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>"
response.write "<table><tr>"
i = 0
For Each FolderObject In objFiles
if i mod 9 = 0 then
response.write "<td>"
end if
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
If Left(FolderObject.Name,1)<>"_" Then
Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
Response.Write(Replace(FolderObject.Name, " ", "%20"))
response.write """>"
Response.Write FolderObject.Name
End if
End If
response.write "<br>"
if i mod 9 = 8 then
response.write "</td>"
end if
i = i+1
Next
response.write "</tr></table>"
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> "
Next
Response.Write "</p>"
Set objFS = Nothing
SiteName = request.servervariables("script_name")
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 fil in objFolderContents
if InStr(1,"jpg,txt,asp,bmp,gif", LCase(objFSO.GetExtensionName(fil.name))) > 0 then
arrayBuild = arrayBuild & fil.name & "|"
end if
next
if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
antalBillederPrSide = 9
maxCols = 3
noCols = 0
start = Request.Querystring("start")
if start = "" then start = 0
Antalsider = int(ubound(myarray) / antalBillederPrSide)
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if noCols = 0 then Response.Write "<tr>"
Response.write "<td>"
Response.Write "<a href=""" & ShowSub & "/" & myArray(i) &""">" & myArray(i) & "</a>"
Response.write "</td>"
noCols = noCols + 1
if noCols = maxCols then
noCols = 0
Response.Write "</tr>"
end if
else
nesteside = 1
end if
Next
if noCols > 0 then Response.Write "</tr>"
response.write "<tr><td colspan=""3"">"
if start <> 0 then
response.write "<a href=""" & siteName & "?start=" & (start - antalBillederPrSide) & "&ShowSub="& request("ShowSub") & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""" & siteName & "?start=" & (start + antalBillederPrSide) & "&ShowSub="& request("ShowSub") & """>Næste</a>"
end if
response.write "</td></tr>"
Set objFSO = Nothing
End if
%>
