Hej!

Hur ska jag göra för att hämta samtliga bilder ur en SQL databas med asp

Första tabellen jag vill hämta Text från är Nyheter,
från denna vill jag ta det unika ID -nr för att sedan
jämföra och hämta alla bilder till nyheten ur tabellen NyhetsBild.

I tabellen NyhetsBild har jag en kolumn som heter IDi här lagras
ID -nr från tabellen Nyheter. Det kan vara allt från 0-4st bilder
till en och samma nyhet.

Ligger bilderna lagrat i databasen eller bara sökvägen?

om sökvägen;
SELECT [sökväg] FROM NyhetsBild WHERE IDi = "& NewsID

Öppna databasen och loopa
<img src="<%=RSobj(0)%>" ><br>

Om du har blob så kan man väl "bara" visa bilden med ASPJpeg eller annan serverfunktion?!

Så här ser det ut

<% Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset") %>

<% Dim Showinfo
Showinfo = "SELECT * FROM Nyheter"
objRS.Open Showinfo, objCon, adOpenStatic, adLockOptimistic %>


<% Do Until objRS.EOF %>

<% If objRS.EOF Then
Exit Do
End if %>

<% =objRS("Id") %>
<br />
<% =objRS("Datum") %>
<br />
<% =objRS("rubrik") %>

<pre><% =objRS("text") %></pre>

<% =objRS("kalla") %>


Sedan vill jag hämta bilderna som ligger i samma Databas men i
Tabell NyhetsBild ?? (0-4 bilder tillvarje nyhet)

<img src="../inc/bild_nyheter.asp?NyhetsId=<% =objRS("Id") %>" alt="" width="70" border="1">

<% objRS.MoveNext %>
<% Loop %>

En variant är att:

När du lägger in uppgifterna måste du ju knuta samman bild och nyhet med ett ID.
T ex kan du ta reda på vilket ID nyheten fick, @@IDENTITY och lägga in det som nyhetsID i bild-tabellen.
Joina sen din sql-sats när du gör din sql-fråga mot databasen.
Nyhetens ID ska vara samma som nyhetsID i bild-tabellen.

Micke

Då var ett problem löst?

Nu är det inga problem att hämta bilder som finns i databasen.

Vad jag vill göra nu är att om det inte finns någon bild vill jag inte ha "<img src=".... taggen med.
Jag vill då att den ska hoppa över denna. Inte snyggt med ett rött kryss då en bild saknas.
Går det fixa detta i en loop?



SQL = "SELECT TOP 5 * FROM Nyheter LEFT JOIN NyhetsBild on Nyheter.Id = NyhetsBild.NewsID"
rs.Open SQL, Connect, 2, 3
%>


<% Count = 0
Do While Not rs.EOF

Response.Write rs("Rubrik")
Response.Write "--"
Response.Write rs("NewsID")
Response.Write "<BR>"
Response.Write ""
Response.Write ""
Response.Write rs("FileName")
Response.Write "<BR><BR>"
rs.MoveNext
Count = Count + 1
Loop


Response.Write "<P>Total files in the database: " & Count
%>

Detta måste vara fel.
Response.Write "<img src=""fileNyhet_download.asp?id=" & rs("Idimg") & """ width='60'>"

Du måste ju hämta ut filnamnet till src-taggen.
Det som finns där nu är ju en länk som du använder i <a href>-taggen.

Du kan ju använda en If-sats som kolla vilket värde fält-platsen för bilden.
Är den tom så skriv ut en bild som säger att det inte finns någon bild annars skriv ut bildens filnamn.

Ex:

If rs("bildnamnet") <> "" Then
  bild = rs("bildnamnet")
Else
  bild = "bild_saknas.gif"
End If

Response.Write "<img src=""& bild &"" width=""60"">"

Då var ovanstående problem fixat :)

.