Hent den post hvor dags dato er tættest på
Har dette script neden under... Det henter fra 3 forksellige tabeller... Først fra en kategori-tabel, dernæst udskriver den de forskellige poster der hører til de forksellige kategorier neden under. Den tredje tabel, henter den så ud for hver "oversigst" post, hvor den skal indsætte en pris.Det virker sådan set også fint, men problemet er at der f.eks. godt kan værer 2 forskellige priser til hver post.
Det jeg derfor skal have den til med den tredje tabel ("rejser_pris") er at den skal kigge på dags dato - date() - og så gå ind i rejser_pris og hente den post som er den nærmest (kun frem af i tiden!) på dags dato.
Hvis der f.eks. til en post er en følgende datoer:
15-08-2002, 01-09-2002 og 23-01-2002 så skal den altså hente 15-08-2002
Jeg kan ikke få det til at virke! den tager bare den første
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.Mappath("inc/db/spejder.mdb")
Conn.Open DSN
strSQL = "Select * From rejser_kategori order by kategori asc"
Set rs_kategori = Conn.Execute(strSQL)
if rs_kategori.EOF then
Response.write "<span class='sort_tekst'><b> Ingen rejser fundet</b></span>"
else
Do until rs_kategori.eof or rs_kategori.bof %>
<font face="verdana" size="4" color="#FF0000"><b><%=rs_kategori("kategori")%></b></font><HR SIZE="1" WIDTH="740" NOSHADE color="#FF0000" align="left">
<% strSQL = "Select * From rejser_oversigt Where refid = " & rs_kategori("id")
Set rs_oversigt = Conn.Execute(strSQL)
Do While Not rs_oversigt.EOF %>
<table width="740" cellpadding="2" cellspacing="0" border="0">
<% strSQL = "Select top 1 * From rejser_pris Where refid = " & rs_oversigt("id") & " and dato >" & date()
Set rs_pris = Conn.Execute(strSQL)
Do While Not rs_pris.EOF %>
<tr onmouseover="this.className = 'gron';" onmouseout="this.className = '';">
<td width="400" class="border_bottom_gron"><font face="verdana" size="3"><b><%=rs_oversigt("titel")%></b></font><BR><font face="verdana" size="1"><%=rs_oversigt("beskrivelse")%></td></font>
<td width="170" class="border_bottom_gron"><DIV STYLE="text-align:right"><font face="verdana" size="2"><%=rs_pris("dato")%></font></div></td>
<td width="170" class="border_bottom_gron"><DIV STYLE="text-align:right"><font face="verdana" size="2"><%=rs_pris("pris")%></font></DIV></td></tr></table>
<% rs_pris.MoveNext
Loop
Set rs_pris = Nothing
rs_oversigt.MoveNext
Loop
Set rs_oversigt = Nothing
response.write "<br><br>"
rs_kategori.MoveNext
Loop
Set rs_kategori = Nothing
Conn.Close
Set Conn = Nothing
end if %>
<BR><BR>
