Siste post

Jeg bruker følgene kode:

<%
startdato = request.form(\"startdato\")
startdato = month(startdato) & \"-\" & day(startdato) & \"-\" & year(startdato)
slutdato = request.form(\"slutdato\")
slutdato = month(slutdato) & \"-\" & day(slutdato) & \"-\" & year(slutdato)

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/fpdb/Registrering_av_feil_PiB.mdb\")

SQL=\"SELECT DISTINCTROW Resultater.Dato, Resultater.PiB, Oppfølging.Beskrivelse FROM Resultater LEFT JOIN Oppfølging ON Resultater.FEILID = Oppfølging.FEILID WHERE (Resultater.Dato BETWEEN #\" & StartDato & \"# AND #\" & SlutDato & \"#)\"

if( LEN(request(\"orderBy\")) > 0 ) then
  SQL = SQL & \" ORDER BY \" & request(\"orderBy\")
else
  SQL = SQL & \" ORDER BY PiB\"
end if

Set RS=Conn.Execute( SQL )
If (rs.BOF Or rs.EOF) Then
    response.Write \"Ingen poster funnet\"
    else
  Do Until rs.EOF

   
with response
    .write \"<table width=300, align=center, border=2><tr><td  width=300>\"
  .write \"<a>Dato</a>\"
  .write \"</td><td width=300>\"
  .write \"<a>PiB</a>\"
  .write \"</td><td width=300>\"
  .write \"<a>Beskrivelse</a>\"
   
end with   
while not RS.EOF
  with response
    .write \"<tr><td width=300>\" & RS(\"Dato\") & \"</td>\"
    .write \"<td width=300>\" & RS(\"PiB\") & \"</td>\"
    .write \"<td width=300>\"& RS(\"Beskrivelse\")&\"</td>\"


  end with
  RS.MoveNext
wend
Loop
End if
response.write \"</table>\"
%>

Jeg skal vise alle postene fra \"Resultater\", men jeg vil kun ha ut den siste posten fra \"Oppfølging.Beskrivelse\"

Kan noen hjelpe meg med dette??

Hilsen

Odd

Hilsen

Odd