Hej

Jag har ett litet problem med ASPJpeg och det är hur man visar samtliga lagrade bildfiler från databasen? Försökte med en loop med bara en bild visas, den första i databasen. Gjorde så här...

strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")

Set rs = Server.CreateObject("adodb.recordset")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
SQL = "select image_blob from tblImages"
rs.Open SQL, strConnect, 1, 3
Do Until rs.EOF
Jpeg.OpenBinary rs("image_blob").Value
jpeg.Width = 50
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.Sharpen 1, 110
Jpeg.SendBinary
rs.MoveNext
Loop

...med det funkar inte. Annars fungerar det att ladda upp flera bilder samtidigt.

Tacksam för svar
Micke

Du får gärna tala om vilket felmeddelande som du får, det är lättare att felsöka då eller veta vad som kan tänkas att strula.


//Anna-Karin

Först får du skapa en ny aspfil (t ex imagebinary.asp) med följande kod:

<kod>
Dim objJpeg

' IMPORTANT: This script must not contain any HTML tags
' Create an instance of AspJpeg object
Set objJpeg = Server.CreateObject("Persits.Jpeg")

objJpeg.Open( Request("path") )

' Set new width
objJpeg.Width = Request("width")
objJpeg.Interpolation = 2

' Set new height, preserve original width/height ratio
objJpeg.Height = _
objJpeg.OriginalHeight * objJpeg.Width / objJpeg.OriginalWidth

' Send thumbnail data to client browser
objJpeg.SendBinary

SET objJpeg = nothing
</kod>

Sedan får du anropa denna fil i din loop, typ:
<IMG SRC="imagebinary.asp?path=d:\Sites\dinsida\dinbild.jpg&width=50" BORDER=0 ALT="">

Vet inte om detta blir riktigt rätt men du får testa dig fram.

Tack så mycket, nu löste det sig..

Problemet är löst :-), tack för omtanken