Filer fra andet bibliotek

'------------------------------------------------
'henter info om siden
'------------------------------------------------
page = trim(Request.QueryString("page"))
start = trim(Request.QueryString("start"))

'------------------------------------------------
'Åbner Filsystem
'------------------------------------------------
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

Du ændrer bare
strPathInfo = "/Billeder/"
så den kommer til at passe

Hvordan ligger mappen billeder, er det en mappe som ligger i rode, eller er det en undermappe til siden som de skal vises på?

Så får jeg fejl på linie 36 som er
Set objFile = objFSO.GetFile(strPhysicalPath)


Microsoft VBScript runtime error '800a0035'

File not found

/cms/admin/galleri/default.asp, line 36

hvis mappen billeder ligger i roden, burde
strPathInfo = "/Billeder/" være godt nok.

Nopes, er det åbenbart ikke

den ser sådan her ud
"/CMS/Admin/Galleri/billeder/"

har du prøvet
strPathInfo = "/CMS/Admin/Galleri/billeder/"
altså hvis CMS ligger i roden?

CMS ligger i roden ja, det har jeg prøvet

så må jeg desværre meld pas.

prøv denne:
strPhysicalPath = Server.MapPath("../billeder")

hundevennen > Det du refererer til, er en mappe UNDER wwwroot.
Server.MapPath() Arbejder sig fra roden og op. det vil sige, at skal du finde roden, så kan du bruge følgende:

<%= Server.MapPath("/") %>

Lund >  Prøv at ændre strPathInfo til

strPathInfo = "/CMS/Admin/Galleri/billeder/default.asp"

Eller hvad din fil nu hedder. Jeg har selv lige testet det, og hvis du kun udskriver de to variabler, så får du den udskrevet MED default.asp. Men så snart FSO delen bliver involveret, udskriver den uden default.asp

Så når den ikke kan finde filen, er det fordi den ikke er angivet

/Mads

kingmedia>Tjo det virker da også. Men er ikke fra den mappe jeg vil hente billederne

tager et andet eks.

/work/calimero/album/ <-- Her ligger min default.asp
/work/calimero/album/billeder/ <-- Her vil jeg hente mine billeder.

Med dit eks. der henter jeg bare fra mappen /work/calimero/album/ hvilket ikke er korrekt.

lund >

/work/calimero/album/billeder/default.asp  <-- lav den til din strPathInfo

/Mads

Jamen jamen, går jo ikke, vil ikke have vist min ASP filer

lund >   

Jeg fandt noget jeg selv har leget lidt med. det kan du tilrette som det nu passer dig :o)

---------------------------
<script type="text/javascript">

function showPics(what){
document.getElementById('picView').src=what;
document.getElementById('picView').style.visibility='visible';

}

</script>
<% FolderName = Request.QueryString("FN") %>

<%

accept = "showboat|ringsted/images"
arrAccept = Split(accept,"|")

accepted=false
for i=0 to ubound(arrAccept)
  if arrAccept(i) = LCase(FolderName) then
    accepted=true
  end if
next
if not accepted then
Response.Write "<h1>Permission Denied</h1>"
Else

Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder= MyFileObject.GetFolder(Server.MapPath(FolderName))

%>
<font face="verdana">
<h1>/kingmedia.dk/<%= FolderName %>/ - <%= MyFolder.Size%> Bytes</h1>
<font size="2">

Klik på filnavnet for at få billedet vist.<br />
</font>
<br />
<hr />
<br />

<%
For Each thing in MyFolder.Files
newStr = InStrRev(thing, "\")
strLenght = Len(thing)
strCrop = strLenght - newStr
final = Right(thing, strCrop)

    Response.Write("<a href=""java script:showPics('http://www.kingmedia.dk/" & FolderName & "/" & final & "');"">" & final & "</a> | ")
Next

Set MyFileObject = Nothing
End IF
%>
<br />

<hr />
<br />
<div id="centerDiv">
<img src="" alt="" width="400" height="300" id="picView" style="visibility:hidden" /></div>


/Mads

Fik det aldrig til at virke :(