Selvfølgelig må du se noget af min kode. Her får du hele min kode for den asp side hvor jeg henter noget grafik fra min database, så må du selv lige finde netop det du har behov for.
-----------
<%
Option Explicit
Dim Conn, DSN, sltid, strSQL, rs, column, vareID, intVareId
Response.Buffer=True
%>
<%
intVareId = Request.QueryString("intVareId")
%>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<html>
<head>
<title>Bærbare</title>
<Link Rel="stylesheet" href="datronic.css" Type="text/css" > <!-- link til ekstern style sheet -->
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
body {
margin-top: 0px;
margin-left: 4px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<br>
<table width="490" border="0" align="left"><!--hovedtabel start-->
<tr>
<td align="left" height="18" valign="center" bgcolor="#545DB9"><span class="style1">Bærbare</span></td>
</tr>
<!--</table>-->
<tr>
<td align="center">
<%
Response.Write "<table border=0 cellspacing=0 cellpadding=5 width='490' align=center>" 'Indholdstabel start
Const COLUMN_COUNT = 3 'bestemmer hvor mange kolonner der skal være før der skiftes til ny række
' SQL forespørgsel
strSQL = "Select * From vare Where kategori = 'baerbare' Order By vareid"
' Udfør strSQL (rs kommer til at indeholde dataen)
Set rs = Conn.Execute(strSQL)
Column = 0 'tæller
' Men hvis DB ikke er tom, udskrives data.
Do While Not rs.EOF
If column = 0 Then
Response.Write "<tr>" 'hvis tælleren er 0 udskrives en række
end if
Response.Write "<td align='left' valign='top'><a href='vis_varer.asp?intVareId=" & rs("vareid") & "'><img src=""" & rs("foto1") & """ border='0'><br>"
Response.Write rs("titel") & "<br>"
Response.Write "Kr. " & rs("pris") & ",-</a></td>"
column = column + 1 'lægger en til tælleren
If column = COLUMN_COUNT Then ' hvis tælleren er lig variablen som i dette tilfælde er sat til tre sluttes rækken
Response.Write "</tr>" & vbNewLine 'starter ny linie
column = 0
End If
RS.MoveNext
Loop 'går i loop indtil recordset ikke indeholder flere records
' Afslutter den oprettede tabel
Response.Write "</table><br>"
' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table>
<!--Hovedtabel slut-->
</body>
</html>
------------
I databasen har jeg skrevet stien til grafikken og filnavnet - i mit tilfælde grafik/foto/filnavn.jpg
/Annette
