Hjælp - flere poster til samme billede
Det ser STORT ud, ved jeg godt, men jeg tror det er ganske enkelt.Jeg kan bare ikke selv finde ud af det :-(
Jeg skal lave et udtræk fra en database (til butik)
Der er 1-6 varer til hvert billede, og jeg vil kun vise billedet een gang, med alle varerne beskrevet ved siden af i nedenstående tabel.
Der skal altså undersøges om der er flere varer i databsen som h
ar samme billede (felt = foto)
Her kommer "sovsen" (ser voldsom ud, men det er det ikke)
-----
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>varer</title>
</head>
<body bgcolor="#50639B" >
<%
kode = Request.Querystring("gr")
%>
<%
' 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 ("data/icl-prisbog.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from Varer where gruppe='"& kode&"'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<table border="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="3">
<tr>
<td width="100%">
<p align="center">
<img border="0" src="produktfoto/logo-lys[1].gif"><br>
<b><font face="Verdana" size="6" color="#FFFFFF"><% = request("gr") %></font></b></td>
</tr>
<tr>
<td width="100%">
</td>
</tr>
<%
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%>
<tr>
<form method="POST" action="kurv.asp?kode=bestil">
<td width="100%" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1" height="100">
<tr>
<td width="120">
<input type="hidden" name="kunde" size="20" value="<%response.write session("kunde")%>">
<input type="hidden" name="varenummer" size="20" value="<%response.write rs("nr")%>">
<input type="hidden" name="betegnelse" size="20" value="<%response.write rs("betegnelse")%>">
<input type="hidden" name="foto" size="20" value="<%response.write rs("foto")%>">
<input type="hidden" name="lillepakke" size="20" value="<%response.write rs("lillepak")%>">
<input type="hidden" name="storpakke" size="20" value="<%response.write rs("storpak")%>">
<input type="hidden" name="storpakpr" size="20" value="<%response.write rs("storpakpr")%>">
<input type="hidden" name="lillepakpr" size="20" value="<%response.write rs("lillepakpr")%>">
<img src="produktfoto/<% response.write rs("foto")%>_lille.jpg" border="0"></td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber2">
<tr>
<td width="8%"><b><font face="Verdana" size="1" color="#C0C0C0">
Varenr </font></b></td>
<td><b><font face="Verdana" size="1" color="#C0C0C0">Betegnelse
</font></b></td>
<td width="8%" align="center"><b><font face="Verdana" size="1" color="#C0C0C0">
lille pk</font></b></td>
<td width="12%" align="center"><b><font face="Verdana" size="1" color="#C0C0C0">
pris pr. stk.</font></b></td>
<td width="8%" align="center"><b><font face="Verdana" size="1" color="#C0C0C0">
stor pk</font></b></td>
<td width="12%" align="center"><b><font face="Verdana" size="1" color="#C0C0C0">
pris pr. stk.</font></b></td>
<td width="14%" align="center">
<b>
<font face="Verdana" size="1" color="#C0C0C0">Lille pakke</font></b></td>
<td width="14%" align="center">
<b>
<font face="Verdana" size="1" color="#C0C0C0">Stor pakke</font> </b> </td>
</tr>
<tr>
<td width="8%"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("nr")%></font></td>
<td><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("betegnelse")%></font></td>
<td width="8%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("lillepak")%></font></td>
<td width="12%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("lillepakpr")%></font></td>
<td width="8%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("storpak")%></font></td>
<td width="12%" align="center"><font face="Verdana" size="1" color="#C0C0C0">
<% response.write rs("storpakpr")%></font></td>
<td width="14%" align="center">
<input type="text" name="lillepakkestk" size="4" value="0"><input type="submit" value="bestil" name="bestil1" style="color: #C0C0C0; border: 0px solid #C0C0C0; background-color: #50639B"></td>
<td width="14%" align="center">
<input type="text" name="storpakkestk" size="4" value="0"><input type="submit" value="bestil" name="bestil" style="color: #C0C0C0; border: 0px solid #C0C0C0; background-color: #50639B"></td>
</tr>
<tr>
<td width="8%"> </td>
<td> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
</tr>
<tr>
<td width="8%"> </td>
<td> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
</tr>
<tr>
<td width="8%"> </td>
<td> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
</tr>
<tr>
<td width="8%"> </td>
<td> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="12%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
</tr>
</table>
</td>
</tr>
</table>
<hr color="#C0C0C0" width="600" style="border-style: dotted; border-width: 1" noshade size="1"></td>
</form>
</tr>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>
