Ik wil dus op een pagina images weergeven die binair in een access (of SQL) db staan.
Na 3 dagen kloten wordt ik er gek van. Hieronder de code wat imo zou moeten werken. De loop werkt ook want zodra ik de binarywrite uit de loop haal dan geeft hij wel alles in een loop weer. Zodra ik die binarywrite er in laat staan dan krijg ik alleen het eerste plaatje uit de DB.
Na 3 dagen kloten wordt ik er gek van. Hieronder de code wat imo zou moeten werken. De loop werkt ook want zodra ik de binarywrite uit de loop haal dan geeft hij wel alles in een loop weer. Zodra ik die binarywrite er in laat staan dan krijg ik alleen het eerste plaatje uit de DB.
ASP:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| <% Dim oConn Dim oRs Dim sSQL Set oConn = Server.CreateObject("ADODB.Connection") Set oRs = Server.CreateObject("ADODB.Recordset") oConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & ("pathnaardb.mdb") sSQL = "SELECT * FROM Files" oRs.Open sSQL, oConn do until oRs.EOF ContentType = oRs("contenttype") Response.BinaryWrite oRs("BinaryData") oRs.MoveNext loop oRs.Close oConn.Close Set oRs = Nothing Set oConn = Nothing %> |
[ Voor 7% gewijzigd door Verwijderd op 03-03-2004 01:56 ]