> Som sagt skal billedet og teksten IKKE være på samme side, du skal på siden
> med teksten vise billede vha.
>
> <img src="visbillede.asp?id=x" alt="billedtekst" />
Det prøver jeg også på med nedenstående default.asp side:
********************************************
<%
set conn = server.createobject("ADODB.connection")
' opretter en instans af ADODB connection objektet
'--[»]--- Define database locations -------------------------
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("upload.mdb") & ";"
' lav SQL tekst string
SQL = "select * from UploadTable order by ID"
' vi sender forespørgslen afsted gennem vores connection object
' og returnerer resultatet i et object der kaldes RS
set RS = conn.execute( SQL )
' spørg om RS tilstand er eof (End Of File)
if RS.eof then
response.write "Ingen biler i databasen."
else
' lav en løkke der looper igennem returnerede records,
' indtil tilstand bliver eof (End Of File)
%>
<html><body><table>
<%
do while not RS.eof
response.write "<tr>"
response.write "<td>" & RS("ID") & "</td>"
response.write "<td>" & RS("FileName") & "</td>"
response.write "<td>" & RS("ByteSize") & " " & RS("ContentType") & "</td>"
response.write "<td>" & RS("Comment") & "</td>"
response.write "<td><img src='visbillede.asp?id=" & RS("ID") & "></td>"
RS.movenext
loop
end if
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
</table></body></html>
*****************************************
Og så bruger jeg din Visbillede.asp jeg har rettet i:
****************************************
<%
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "upload.mdb" )
objConn.Open()
Set objRS = objConn.Execute( "SELECT FileBinary FROM UploadTable WHERE ID = " & CInt(Request.QueryString( "id" )))
If Not objRS.EOF Then
Response.ContentType = "image/pjpeg"
Dim OLEHeader, ImgData
'Vi starter med at finde størrelsen af billedet
'ved at trække de 78 bytes fra som OLEHeaderen fylder
Str = objRS( "FileBinary" ).ActualSize - 78
'Vi bruger GetChunk til at hive OLEHeaderen ud
OLEHeader = objRS( "FileBinary" ).GetChunk(78)
'Vi henter nu resten af billedet
ImgData = objRS( "FileBinary" ).GetChunk(Str)
'Og udskriver det
Response.BinaryWrite( ImgData )
End If
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>