Hent én uge af gangen

Hej Eksperter,

Jeg mangler en funktion i mit script som gør at man kan bladre i ugerne. Som udgangspunkt skal den pågældende uge vises, men man skal kunne klikke en uge frem og en uge tilbage. Det skal også være muligt at vælge en bestemt dato og så trykke Gå til...


Scriptet skal sættes sammen med dette:

<%
If Request.Querystring("sortering") = "" Then
  Sortering = "dato"
Else
  Sortering = Request.Querystring("sortering")
End If

If Request.Querystring("ascdesc") = "" Then
  AscDesc = "DESC"
Else
  AscDesc = Request.Querystring("ascdesc")
End If
%>   
<table border="0" cellpadding="4" cellspacing="0"  bordercolor="#111111" width="100%">
          <tbody>
<tr>
<td class="all-headline-doclist" width="5%">&nbsp;</td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=dato&ascdesc=<% If Sortering = "dato" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="10%">Dato&nbsp;<% If Sortering = "dato" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "dato" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=kundeid&ascdesc=<% If Sortering = "kundeid" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="25%">Kunde&nbsp;<% If Sortering = "kundeid" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "kundeid" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=lokation&ascdesc=<% If Sortering = "lokation" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="20%">Lokation&nbsp;<% If Sortering = "lokation" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "lokation" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=overskrift&ascdesc=<% If Sortering = "overskrift" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="15%">Dokument&nbsp;<% If Sortering = "overskrift" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "overskrift" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td style="cursor:hand" onclick="parent.main.location='vagtrapport.asp?sortering=oprettetaf&ascdesc=<% If Sortering = "oprettetaf" AND AscDesc = "DESC" Then %>ASC<% Else %>DESC<% End If %>'" class="all-headline-doclist" width="20%">Oprettet af&nbsp;<% If Sortering = "oprettetaf" AND AscDesc = "DESC" Then %><img src="images/_move_up.gif" border="0"><% elseif Sortering = "oprettetaf" AND AscDesc = "ASC" Then %><img src="images/_move_down.gif" border="0"><% End If %></td>
<td class="all-headline-doclist" width="5%">&nbsp;</td>
</tr></tbody></table>

<!--#include file="includes/forbindelse2.asp"-->
<%

If session("adgangsniveau") = "9" then
    strSQL = "SELECT * FROM doegnrapport ORDER BY  "& Sortering &" "& AscDesc &""
else
    strSQL = "SELECT * FROM doegnrapport WHERE kundeid = '"& session("kunde") &"' ORDER BY "& Sortering &" "& AscDesc &""
end if
    objRec.Open strSQL, objConn, 3, 1, 1

while not objRec.EOF
strCount = strCount + 1
%>