Kan dette laves uden brug af FSO?

Umiddelbart vil jeg sige, nej det kan det ikke..

Ikke med mindre du ligger alle navnene på de forskellige thumpnails ind i databasen.

Det du benytter din FSO til er jo at finde alle billederne i en bestemt mappe.
Det kan du kun gøre enten med FSO eller tilsvarende.

Har du ikke en anden mulighed ala. FSO ?
Hvilken udbyder har du ?

Jeg har Web10 som udbyder, og de har valgt at deaktivere det, pga at man kan få adgang til alle filerne på serveren ved hjælp af FSO.

Hvad har jeg af andre muligheder??

jeg kan ikke rigtig finde nogen oplysninger om fso hos web10.

ved ikke om ISSecure er installeret..

prøv med den her, og sig om den siger server createobject failed..

Set ScriptObject = Server.CreateObject("ISSecureFile.FileSystemObject")

Ja det siger den:
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/tjek2.asp, line 3

800401f3

Web10 nævner ikke noget om det på deres hjemmeside, men jeg har spurgt deres support.

- Rasmus!

oki..
Kan du så ikke spørge der også om du har nogle alternative løsninger, for det virker mærkeligt at du ikke kan få lov til at bruge det..

Jeg har et hotel hos starthotel.dk der er noget søsterværk til web10 og der har jeg ingen problemer med at bruge FSO...

Meget mærkelig. Sig mig, kan du forklare hvad forskellen på Web10 og Starthotel er?? Det er samme firma der har begge to.

- Rasmus!

Jeg kan ikke rigtig forklare dig forskellen...

Kender ikke rigtig til de forskellige firmaer, men tror det er noget med fx. suporten hos de forskellige firmaer, og samtidig måske hvad deres servere understøtter... Det er ikke sikkert at serverne hos de 2 firmaer udbyder det samme..

Jeg synes bare det virker underligt, at den ene "afdeling" af et firma, tillader FSO, mens den anden ikke gør... Og sådan set også at firma priserne er forskellige...

- Rasmus!

Jeg har oprettet webhotel hos starthotel nu, og til din orientering kan jeg heller ikke bruge FSO der!!

- Rasmus!

mystisk... Jeg har denne kode:
<%
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("db/count.txt")
set file = fs.OpenTextFile(filespec,1)
antal = file.readLine
%>

Som jeg benytter i forbindelse med en tæller jeg har på min side..
Og den virker upåklageligt..

Ved ikke om det gør nogen forskel, men prøv det her:

<%

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set FSO = server.CreateObject("Scripting.FileSystemObject")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/udrykninger.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

If Request.Querystring("mode") = "pictures" then
    SQLstmt = "SELECT top 50 * FROM udrykninger WHERE PicID <> '0' ORDER BY Dato desc;"
Else
    SQLstmt = "SELECT top 50 * FROM udrykninger ORDER BY Dato desc;"
End If

rs.Open SQLstmt, conn, 1
%>
<%
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

  Do While Not rs.EOF And intRecCount > 0
    ID = rs("ID")
    Dato = rs("dato")
    Sted = rs("sted")
    Melding = rs("melding")
    Tekst = rs("tekst")
    Fra = rs("fra")
    PicID = rs("picid")
%>
<%   
If PicID = 0 Then

    strBillede = "<img border='0' src='isl/nopicture.jpg' width='135' height='101'>"
    strLink = strBillede   

else
    Set Folder = FSO.GetFolder("c:/webs/talkactive/web16538/ringstedbrand.dk/isl/" & rs("picid") & "/thumbnails")
    For Each File In Folder.Files
      strBillede = "<img src='isl/" & rs("picid") & "/thumbnails/" & File.Name & "' width='135' height='101' border='0'>"
      Exit For
    Next

    strLink = "<a href='isl/" & rs("picid") & "/index.html'>" & strBillede & "</a>"

End If

%>

Hvilken fejl får du når du prøver koden ?

Men jeg kan kun give dig ret i at det er mærkeligt at der er forskel på de 2 webhoteller..

Samme stadig.

Server object error 'ASP 0178 : 80070005'

Server.CreateObject Access Error

/udrykninger.asp, line 49

The call to Server.CreateObject failed while checking permissions. Access is denied to this object.

Kan forskellen måske ligge i, at jeg i min kode skal ha listet nogle filer?

- Rasmus!

Muligvis...
Jeg tror måske det kan have noget at gøre med at du ikke må arbejde med den fysiske part..

    Set Folder = FSO.GetFolder("c:/webs/talkactive/web16538/ringstedbrand.dk/isl/" & rs("picid") & "/thumbnails")

prøv at rette ovenstående linie til noget i stilen af:
    Set Folder = FSO.GetFolder(server.mappath("isl/" & rs("picid") & "/thumbnails"))

Virker heller ikke.

Den siger at fejlen ligger i linie 49 som er denne:
Set FSO = server.CreateObject("Scripting.FileSystemObject")

- Rasmus!

Jeg har fundet fejlen. Du bruger jo koden
set fs = CreateObject("Scripting.FileSystemObject")

Når jeg fjerne Server i min linie virker det helt uden problemer.

- Rasmus!

Læg lige et lille svar... ;)

Der kommer et svar har...
:-)