Random udtræk af 2 foto (poster) fra access database
Hej!Jeg har lavet en asp side hvor jeg henter poster ud fra tre forskellige tabeller.
Nu er mit problem... Jeg har en række tilbud (kolonnenavn = fotoTilbud)i en tabel (tabelnavn = vare) som jeg kun ønsker at vise to af ad gangen på den pågældende asp side. De to tilbud som vises, skal udvælges tilfældigt fra tabellen. Hvordan gør jeg det???
Jeg har forsøgt mig med mange af de randomløsninger som findes her på siden, men jeg kan ikke få nogle af dem til at virke...
Altså for at gøre en lang forklaring kort - hvordan viser jeg to tilfældige tilbud fra en database??
Her er min kode:
-----------
<%
Option Explicit
Dim Conn, DSN, sltid, strSQL, rs1, rs2, rs3, KatID, intKatId, column
Response.Buffer=True
%>
<%
intKatId = Request.QueryString("intKatId")
%>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<html>
<head>
<title>Internet</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>
<%' SQL forespørgsel
KatID = Request.Querystring("intKatId")
strSQL = "Select kategoriNavn From kategori Where kategoriId =" & KatID
' Udfør strSQL (rs1 kommer til at indeholde dataen)
Set rs1 = Conn.Execute(strSQL)
' SQl forespørgsel - rs2 kommer til at indeholde det udvalgte data
strSQL = "Select * From tekst Where kategoriId =" & KatID
Set rs2 = Conn.Execute(strSQL)
' SQl forespørgsel - rs3 kommer til at indeholde det udvalgte data
strSQL = "Select fotoTilbud From vare"
Set rs3 = Conn.Execute(strSQL)
%>
<table width="490" height="445" border="0" align="left"><!--hovedtabel start-->
<tr>
<td align="left" height="18" valign="center" bgcolor="#545DB9"><span class="style1"><%response.write rs1("kategoriNavn")%></span></td>
</tr>
<!--</table>-->
<tr>
<td align="center" valign="top">
<%
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width='485' align=left>" 'Indholdstabel start
Do While Not rs2.EOF
Response.Write "<tr><td>"
Response.Write "<p>" & rs2("overskrift") & "</p>"
Response.Write "</td></tr>"
Response.Write "<tr><td>"
Response.Write rs2("indhold")
Response.Write "<br><br></td></tr>"
' Gå til næste record i rs
rs2.MoveNext
' Gå i loop indtil rs ikke indeholder flere records (= EOF)
Loop
' Afslutter den oprettede tabel
Response.Write "</table><br>"
%>
</td></tr>
<tr><td valign="bottom">
--------
Det er her mine to tilbud skal udskrives - lige nu udskrives kun et foto
--------
<%
'det er her de to tilbud skal udskrives
Response.Write "<table border=0 cellspacing=0 cellpadding=5 width='485' align=center>" 'Indholdstabel start
Response.Write "<td width='240' align='left' valign='top'>"
Response.Write "<img src=""" & rs3("foto") & """ border='0'>"
Response.Write"</td></tr>"
' 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>
------------
Håber der er nogen der kan hjælpe :o)
/Annette
