Hente billede fra access
Hej Eksperten.Jeg er igang med et projekt.
Jeg skal bruge en produkt side, hvor jeg skal hente et billede fra databasen.
linket til siden er flg. http://klasse.aabc.dk/akkeros/projekt2008/produkter.asp
mit problem er at billedet kun viser en firkant med et rødt kryds i?
Jeg har siddet i lang tid nu og prøvet at ændre forskellige ting for at få det til at virke.
er der nogen der kan spotte fejlen? Selve ASP koden er flg
<%
DIM strProdukter
strProdukter=Trim(Request.Form("produktet"))
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/akkeros/projekt2008/fpdb/produktdb.mdb")
Conn.Open DSN
' SQL forespørgsel '
strSQL = "Select * from Produkter where" & "(ProduktNavn like '%" & strProdukter & "%')"
' Udfør forespørgsel (rs indeholder nu resultatet) '
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke '
If Not (rs.BOF Or rs.EOF) Then
Do
' Udskriv personens navn '
Response.Write "<img src=/dbbillede/'" & rs("ProduktBillede") & "'>" & "</td></tr>" & "<br>"
Response.Write rs("ProduktNavn") & "<br>"
Response.Write rs("ProduktPris") & " DKR" & "<br>"
Response.Write rs("ProduktBeskrivelse") & "<br><br>"
' Gå til næste Record i rs '
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File) '
Loop While Not rs.EOF
Else
Response.Write "<font class='h1'>Det søgte produkt eksisterer desværre ikke.</font>"
End If
' Luk databaseforbindelse '
Conn.Close
Set Conn = Nothing
%>
Mvh Denima