DevTrain Forum - Es werden nicht alle Bilder angezeigt....

Forum: ASP Classic | Thema: Es werden nicht alle Bilder angezeigt.... | Von: G. Guest ( 13.04.2003 08:39)

		Seit Tagen, zerbrech ich mir den Kopf, überall steht der selbe Code und dennoch funktioniert es nich richtig. Bei mir werden immer nur vereinzelt die Bilder angezeigt obwohl die Bilder vorhanden sind. Weiß hier jemand rat? 

hier der Code dazu:

link:
http://www.abcity.de/city/galerie/showimages.asp?page=511ndr-neuesdesign0104
03&b_id=04

04 kann man von 01 bis 35 tauschen

Response.Buffer = True
Response.Clear

' --- Angeben des Cachingverhaltens
Response.Expires = 0

' --- Ausgabe des MIME-Typs
Response.ContentType = "image/jpeg"

b_id = trim(request("b_id"))
page = trim(request("page"))
site = "citypix"
xx = ".jpg"

' --- Angeben des Dateinamens der Grafik
Dim strFileName
strFileName = site & b_id & xx

' --- Ermitteln des physischen Dateipfads
Dim strMyPath
    strMyPath   =Server.MapPath("../../galerien") &"/"&  page & "\" &
strFileName

' --- Erzeugen eines FSO-Objekts
Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")

    ' --- Ermitteln der Dateigroesse
    'Set objFile = objFileSys.GetFile(strMyPath)
        'FileSize = objFile.Size
    Set objFile = Nothing

    ' --- Öffnen der Datei
    Set objFile = objFileSys.OpenTextFile(strMyPath, 1, false, -1)

        ' --- Auslesen des Dateinhalts und Ausgabe
        ' --- per Response.BinaryWrite
        Response.BinaryWrite(objFile.Read(FileSize))

    Set objFile = Nothing

Set objFileSys = Nothing

' --- Senden der Ausgabe an den Browser
Response.Flush


gruß Nothy


	

Betreff Von Datum

Re: Es werden nicht alle Bilder angezeigt....

ich danke

G. Guest 15.04.2003 10:08

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!