Herulf Skogheim wrote:
>
> Jeg har lest og testet ut systemet med bilder i database som Jesper
> Stocholm refererer til her:
>
http://groups.google.com/groups?selm=Xns90F75B96E60ECspamstocholmdk@192.38.208.81
>
> Problemet er at jeg vil liste alle bildefilene fra databasen og har
> kopiert nedenforviste script fra
>
http://www.activeserverpages.dk/aspdigital/kapitel2/sqlimage.asp
>
> Sida min ser slik ut:
> [...]
>
> Men det eneste som skjer er at kun det første bildet vises. LOOP'en
> fungerer ikke. Noen som har tips?
Det er jo fordi, du har misforstået et eller andet. Prøv:
=== list.asp - begin ===
<%
Dim Conn, Rs, Sql
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("FileDB.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT TOP 5 Id FROM Files ORDER BY Id"
rs.Open Sql, Conn, 0, 1, 1
Do Until Rs.Eof
Response.Write "<img src=""image.asp?id=" & rs("id") & """><br>"
Rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
=== list.asp - end ===
=== image.asp - begin ===
<%
Dim Conn, Rs, Id, Sql
Id = CLng(Reqeust("Id"))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("FileDB.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT [File Data] FROM Files WHERE Id=" & Id
rs.Open Sql, Conn, 0, 1, 1
If Not Rs.Eof Then
Response.ContentType = "image/gif"
Response.BinaryWrite rs("File Data").GetChunk(1024000)
Else
rs.Close
Response.Redirect "no_such_image.gif"
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
=== image.asp - end ===
--
Anders