Hent alle poster hvis dato ligger i den definerede uge

<%
'*****************************************************************

function findMandag(uge,aar)
  d = DateSerial(aar, 1, 1)    ' 1/1/i år
  'find mandag i uge 1
  If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
      While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
        d = DateAdd("d", -1, d)
      WEnd
  Else
      While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
    d = DateAdd("d", 1, d)
      WEnd
  End If
  findMandag = DateAdd("d", 7*(uge-1), d) 'juster til ugenummer, mandag
end function

mandag_start=findMandag(week,2008)'mandag
mandag_stop=dateadd("d",7,mandag_A)'søndag

sql = "SELECT * FROM tabel WHERE dato>= '"& mandag_start&"' AND dato <= '"& mandag_stop& "'"


'********************'''''*********************
%>

Dette er en måde at gøre det på, utestet dog.

Funktionen har brug for ugenummer og år som input.

Det kan du f.eks gøre ved hjælp af querystrings og paging, siden du vil bladre.

mandag_start=findMandag(week,2008)'mandag
mandag_stop=dateadd("d",7,mandag_A)'søndag

Skal self være

mandag_start=findMandag(week,2008)'mandag
mandag_stop=dateadd("d",7,mandag_start)'søndag

jeg synes ikke rigtigt at jeg kan få det til at virke?


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

function findMandag(uge,aar)
  d = DateSerial(aar, 1, 1)                    ' 1/1/i år
  'find mandag i uge 1
  If DatePart("ww", d, 2, 2) = 1 Then        'Hvis 1/1 er i uge 1
      While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
        d = DateAdd("d", -1, d)
      WEnd
  Else
      While(DatePart("ww", d, 2, 2) <> 1)      'find næste mandag
    d = DateAdd("d", 1, d)
      WEnd
  End If
  findMandag = DateAdd("d", 7*(uge-1), d)     'juster til ugenummer, mandag
end function

mandag_start=findMandag(week,2008)            'mandag
mandag_stop=dateadd("d",7,mandag_A)            'søndag
'*****************************************************************

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

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

Ahh så lige dit indlæg :)

Der er  bare et problem, pt viser den fra 25-05-2008 til 31-05-2008...

Kan du evt integrere denne navigation og evt lave den automatisk?
Jeg kan evt lave et nyt spørgsmål?

Så mangler du jo bare navigationen :)

<table class="admin1" cellspacing="0" cellpadding="5">
<tr class="overskrift1">
<form name="form1" method="post" action="vagtrapport_test.asp" style="margin:0px;">
<td>SORTERING  <a href="#" title="G&aring; til ugen f&oslash;r den viste uge"><b>-1 uge</b></a> <a href="#" title="G&aring; til indev&aelig;rende uge"><b>Denne uge</b></a> <a href="#" title="G&aring; til ugen efter den viste uge"><b><span class="k-ret5"><nobr>+1 uge</nobr></span></b></a>
<select name="dag"><option value="01">1</option><option value="02">2</option><option value="03">3</option><option value="04">4</option><option value="05">5</option><option value="06">6</option><option value="07">7</option><option value="08">8</option><option value="09">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21" selected>21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option></select>
<select name="maaned"><option value="01">Januar</option><option value="02">Februar</option><option value="03">Marts</option><option value="04">April</option><option value="05">Maj</option><option value="06" selected>Juni</option><option value="07">Juli</option><option value="08">August</option><option value="09">September</option><option value="10">Oktober</option><option value="11">November</option><option value="12">December</option></select>
<select name="aar"><option value="2007">2007</option><option value="2008" selected>2008</option><option value="2009">2009</option></select>
<input type="submit" name="submit_set_dato" value="<- G&aring; til dato">
</form></td></tr></table>

der er godt nok mange options der, lidt uoverskueligt.

Er alle de options det som jeg tror:

1) Dato
2)måned
3)år

Hvis så, har din form jo dato som der bliver submittet.

dato = Request.form("dag")
maaned = Request.form("maaned")
aar = Request.form("aar")

korrekt_dato = DateSerial(aar,maaned ,dato)

uge=DatePart("ww",korrekt_dato)

mandag_start=findMandag(uge,aar)'mandag
mandag_stop=dateadd("d",7,mandag_start)'søndag

Det var en metode?

Puha, både og :)

Som du måske har gættet så er jeg ikke vildt stiv i dette, så jeg vil ydmygt spørge om du kan lokkes til at poste det fulde script.

Har brug for dit fulde kode så?:S

oki :)

den kommer om et øjeblik :)

<TABLE cellSpacing=0 cellPadding=0 width="95%" height="90%" border=0>
  <TBODY>
  <TR>
    <TD align=left width="100%" valign="top">
<%
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
%>
<SCRIPT Language=Javascript>
function visrap<%= strCount %>() {
omrade<%= strCount %>.style.display="";
    }
function skjulrap<%= strCount %>() {
omrade<%= strCount %>.style.display="none";
    }
function visliste1<%= strCount %>() {
omrade<%= strCount %>a.style.display="";
    }
function skjulliste1<%= strCount %>() {
omrade<%= strCount %>a.style.display="none";
    }
function visliste2<%= strCount %>() {
omrade<%= strCount %>b.style.display="";
    }
function skjulliste2<%= strCount %>() {
omrade<%= strCount %>b.style.display="none";
    }
</SCRIPT>
<%
set objRec2 = server.createobject("ADODB.recordset")

    strSQL = "SELECT * FROM kunder WHERE id = "& objRec("kundeid") &""
    objRec2.Open strSQL, objConn, 3, 1, 1

    strKunde = objRec2("kundenavn")
    objRec2.close
%>
<table border="0" cellpadding="4" cellspacing="0"  bordercolor="#111111" width="100%">
<tr id="omrade<%= strCount %>a">
<td class="unfold-closed" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="visrap<%= strCount %>();visliste2<%= strCount %>();skjulliste1<%= strCount %>()" value="&#711;"></td>
<td class="unfold-closed" width="10%"><%= objRec("dato") %></td>
<td class="unfold-closed" width="25%"><font class="unfold-headline"><%= strKunde %></font></td>
<td class="unfold-closed" width="20%"><%= objRec("lokation") %></td>
<td class="unfold-closed" width="15%"><%= objRec("overskrift") %></td>
<td class="unfold-closed" width="20%"><%= objRec("oprettetaf") %></td>
<td class="unfold-closed" width="5%"><img hspace="7" height="16" width="16" border="0" src="images/spacer.gif" alt="Rediger" title="Rediger">&nbsp;<img  height="16" width="16" border="0" src="images/spacer.gif" alt="Slet" title="Slet"></a>&nbsp;</td>
</tr>

<tr id="omrade<%= strCount %>b" style="display: none;">
<td class="unfold-open" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="skjulrap<%= strCount %>();skjulliste2<%= strCount %>();visliste1<%= strCount %>()" value="&#710;"></td>
<td class="unfold-open" width="10%"><%= objRec("dato") %></td>
<td class="unfold-open" width="25%"><font class="unfold-headline"><%= strKunde %></font></td>
<td class="unfold-open" width="20%"><%= objRec("lokation") %></td>
<td class="unfold-open" width="15%"><%= objRec("overskrift") %></td>
<td class="unfold-open" width="20%"><%= objRec("oprettetaf") %></td>
<td class="unfold-open" width="5%"><a href="vagtrapport_rediger.asp?cmd=&id=<%= objRec("id") %>"><img hspace="7" height="16" width="16" border="0" src="images/_icon_edit.gif" alt="Rediger" title="Rediger"></a>&nbsp;<a target="main" STYLE="cursor: pointer" onclick="if(confirm('***&nbsp;&nbsp;VAGTRAPPORT&nbsp;&nbsp;***\nDATO&nbsp;&nbsp;: <%= objRec("dato") %>\nKUNDE&nbsp;: <%= objRec("overskrift") %>\n------------------------------------------\n&Oslash;nsker du at slette denne rapport?'))this.href='includes/vagtrapport.asp?cmd=delete&id=<%= objRec("id") %>'; return true;"><img  height="16" width="16" border="0" src="images/_icon_delete.gif" alt="Slet" title="Slet"></a>&nbsp;</td>
</tr>

</table>

<table id="omrade<%= strCount %>" style="display: none;" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            </tr>
    <tr>
      <td valign="top" class="niveau-3"><%= objRec("rapport") %></td>
    </tr>
</table>


<%
objRec.MoveNext
    Wend
%>
<!--#include file="includes/forbindelse_luk.asp"-->
</TD>

</TR></TBODY></TABLE>

%>
function findMandag(uge,aar)
  d = DateSerial(aar, 1, 1)                    ' 1/1/i år
  'find mandag i uge 1
  If DatePart("ww", d, 2, 2) = 1 Then        'Hvis 1/1 er i uge 1
      While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
        d = DateAdd("d", -1, d)
      WEnd
  Else
      While(DatePart("ww", d, 2, 2) <> 1)      'find næste mandag
    d = DateAdd("d", 1, d)
      WEnd
  End If
  findMandag = DateAdd("d", 7*(uge-1), d)    'juster til ugenummer, mandag
end function

denneAar=Year(date())
denneUge=DatePart("ww",date())

dato = Request.form("dag")
maaned = Request.form("maaned")
aar = Request.form("aar")

korrekt_dato = DateSerial(aar,maaned ,dato)

uge=DatePart("ww",korrekt_dato)

if dato <> "" AND maaned <> "" AND aar <> "" then
    mandag_start=findMandag(uge,aar)'mandag
    mandag_stop=dateadd("d",7,mandag_start)'søndag
else
  mandag_start=findMandag(denneUge,denneAar)    'mandag
  mandag_stop=dateadd("d",7,mandag_A)            'søndag
end if

'*****************************************************************


<%

<TABLE cellSpacing=0 cellPadding=0 width="95%" height="90%" border=0>
  <TBODY>
  <TR>
    <TD align=left width="100%" valign="top">
<%
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 WHERE dato>= '"& mandag_start &"' AND dato <= '"& mandag_stop & "' ORDER BY  "& Sortering &" "& AscDesc &""
else
    strSQL = "SELECT * FROM doegnrapport WHERE dato>= '"& mandag_start &"' AND dato <= '"& mandag_stop & "' AND kundeid = '"& session("kunde") &"' ORDER BY  "& Sortering &" "& AscDesc &""
end if
    objRec.Open strSQL, objConn, 3, 1, 1

while not objRec.EOF
strCount = strCount + 1
%>
<SCRIPT Language=Javascript>
function visrap<%= strCount %>() {
omrade<%= strCount %>.style.display="";
    }
function skjulrap<%= strCount %>() {
omrade<%= strCount %>.style.display="none";
    }
function visliste1<%= strCount %>() {
omrade<%= strCount %>a.style.display="";
    }
function skjulliste1<%= strCount %>() {
omrade<%= strCount %>a.style.display="none";
    }
function visliste2<%= strCount %>() {
omrade<%= strCount %>b.style.display="";
    }
function skjulliste2<%= strCount %>() {
omrade<%= strCount %>b.style.display="none";
    }
</SCRIPT>
<%
set objRec2 = server.createobject("ADODB.recordset")

    strSQL = "SELECT * FROM kunder WHERE id = "& objRec("kundeid") &""
    objRec2.Open strSQL, objConn, 3, 1, 1

    strKunde = objRec2("kundenavn")
    objRec2.close
%>
<table border="0" cellpadding="4" cellspacing="0"  bordercolor="#111111" width="100%">
<tr id="omrade<%= strCount %>a">
<td class="unfold-closed" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="visrap<%= strCount %>();visliste2<%= strCount %>();skjulliste1<%= strCount %>()" value="&#711;"></td>
<td class="unfold-closed" width="10%"><%= objRec("dato") %></td>
<td class="unfold-closed" width="25%"><font class="unfold-headline"><%= strKunde %></font></td>
<td class="unfold-closed" width="20%"><%= objRec("lokation") %></td>
<td class="unfold-closed" width="15%"><%= objRec("overskrift") %></td>
<td class="unfold-closed" width="20%"><%= objRec("oprettetaf") %></td>
<td class="unfold-closed" width="5%"><img hspace="7" height="16" width="16" border="0" src="images/spacer.gif" alt="Rediger" title="Rediger">&nbsp;<img  height="16" width="16" border="0" src="images/spacer.gif" alt="Slet" title="Slet"></a>&nbsp;</td>
</tr>

<tr id="omrade<%= strCount %>b" style="display: none;">
<td class="unfold-open" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="skjulrap<%= strCount %>();skjulliste2<%= strCount %>();visliste1<%= strCount %>()" value="&#710;"></td>
<td class="unfold-open" width="10%"><%= objRec("dato") %></td>
<td class="unfold-open" width="25%"><font class="unfold-headline"><%= strKunde %></font></td>
<td class="unfold-open" width="20%"><%= objRec("lokation") %></td>
<td class="unfold-open" width="15%"><%= objRec("overskrift") %></td>
<td class="unfold-open" width="20%"><%= objRec("oprettetaf") %></td>
<td class="unfold-open" width="5%"><a href="vagtrapport_rediger.asp?cmd=&id=<%= objRec("id") %>"><img hspace="7" height="16" width="16" border="0" src="images/_icon_edit.gif" alt="Rediger" title="Rediger"></a>&nbsp;<a target="main" STYLE="cursor: pointer" onclick="if(confirm('***&nbsp;&nbsp;VAGTRAPPORT&nbsp;&nbsp;***\nDATO&nbsp;&nbsp;: <%= objRec("dato") %>\nKUNDE&nbsp;: <%= objRec("overskrift") %>\n------------------------------------------\n&Oslash;nsker du at slette denne rapport?'))this.href='includes/vagtrapport.asp?cmd=delete&id=<%= objRec("id") %>'; return true;"><img  height="16" width="16" border="0" src="images/_icon_delete.gif" alt="Slet" title="Slet"></a>&nbsp;</td>
</tr>

</table>

<table id="omrade<%= strCount %>" style="display: none;" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            </tr>
    <tr>
      <td valign="top" class="niveau-3"><%= objRec("rapport") %></td>
    </tr>
</table>


<%
objRec.MoveNext
    Wend
%>
<!--#include file="includes/forbindelse_luk.asp"-->
</TD>

</TR></TBODY></TABLE>

Hmmm det fungerede sgu ikke helt... Jeg har ændret lidt i scriptet, gider du ik lave det sådan så at scriptet automatisk starter på "denne uge".

jeg synes umiddelbart heller ikke at der kommer nogle rapporter?

<%@ Language=VBScript LCID=1030%>
<html lang="da">
<head>
<% '<script language="Javascript" src="JavaScript/noclick.js"></script> %>
<!--#include file="includes/security.asp"-->
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<meta name="robots" content="noarchive" />
<meta name="robots" content="index, follow" />
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<LINK href="style/admstyles.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.6000.16525" name=GENERATOR>
</HEAD>
<BODY scroll="yes" style="background-image: url('images/_bg_docs.jpg'); background-attachment: fixed; background-repeat: no-repeat;" bgColor=#ffffff leftMargin=15 topMargin=25 rightMargin=0>
   
   
<DIV align=left>
<form name="datonavigation" method="post" action="vagtrapport.asp">
<%
function findMandag(uge,aar)
  d = DateSerial(aar, 1, 1)                            ' 1/1/i år
                                                      'find mandag i uge 1
  If DatePart("ww", d, 2, 2) = 1 Then                'Hvis 1/1 er i uge 1
      While(DatePart("w", d, 2, 2) <> 1)            'find sidste mandag
        d = DateAdd("d", -1, d)
      WEnd
  Else
      While(DatePart("ww", d, 2, 2) <> 1)              'find næste mandag
    d = DateAdd("d", 1, d)
      WEnd
  End If
  findMandag = DateAdd("d", 7*(uge-1), d)            'juster til ugenummer, mandag
end function

denneAar=Year(date())
denneUge=DatePart("ww",date())

dato = Request.form("dag")
maaned = Request.form("maaned")
aar = Request.form("aar")

korrekt_dato = DateSerial(aar,maaned,dato)

uge=DatePart("ww",korrekt_dato)

if dato <> "" AND maaned <> "" AND aar <> "" then
    mandag_start=findMandag(uge,aar)                'mandag
    mandag_stop=dateadd("d",7,mandag_start)            'søndag
else
  mandag_start=findMandag(denneUge,denneAar)        'mandag
  mandag_stop=dateadd("d",7,mandag_A)              'søndag
end if

'******************************************************************************************


%>

<TABLE cellSpacing=0 cellPadding=0 width="95%" height="90%" border=0>
  <TBODY>
  <TR>
    <TD align=left width="100%" valign="top">

      <table border="0" width="100%" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
      <tr>
          <td class="all-headline"><p class="subheadline">Rapport oversigt&nbsp;&nbsp;
<select name="dag"><option value="01">1</option><option value="02">2</option><option value="03">3</option><option value="04">4</option><option value="05">5</option><option value="06">6</option><option value="07">7</option><option value="08">8</option><option value="09">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option></select>
<select name="maaned"><option value="01">Januar</option><option value="02">Februar</option><option value="03">Marts</option><option value="04">April</option><option value="05">Maj</option><option value="06" selected>Juni</option><option value="07">Juli</option><option value="08">August</option><option value="09">September</option><option value="10">Oktober</option><option value="11">November</option><option value="12">December</option></select>
<select name="aar"><option value="2007">2007</option><option value="2008" selected>2008</option><option value="2009">2009</option></select>
<input type="submit" value="<- G&aring; til dato"></p>
         
          </td>
        </tr>
</table>       
       
<table border="0" cellpadding="4" cellspacing="0"  bordercolor="#111111" width="100%">
          <tbody>
<tr>
<td class="niveau-1" width="5%">&nbsp;</td>
<td class="niveau-1" width="10%">Dato&nbsp;</td>
<td class="niveau-1" width="25%">Kunde&nbsp;</td>
<td class="niveau-1" width="20%">Lokation&nbsp;</td>
<td class="niveau-1" width="15%">Dokument&nbsp;</td>
<td class="niveau-1" width="20%">Oprettet af&nbsp;</td>
<td class="niveau-1" width="5%">&nbsp;</td>
</tr></tbody></table>

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

'If session("adgangsniveau") = "9" then
'    strSQL = "SELECT * FROM doegnrapport WHERE dato>= '"& mandag_start &"' AND dato <= '"& mandag_stop & "' ORDER BY dato ASC"
'else
    strSQL = "SELECT * FROM doegnrapport WHERE dato>= #"& mandag_start &"# AND dato <= #"& mandag_stop & "#"
'end if
    objRec.Open strSQL, objConn, 3, 1, 1

while not objRec.EOF
strCount = strCount + 1
%>
<SCRIPT Language=Javascript>
function visrap<%= strCount %>() {
omrade<%= strCount %>.style.display="";
    }
function skjulrap<%= strCount %>() {
omrade<%= strCount %>.style.display="none";
    }
function visliste1<%= strCount %>() {
omrade<%= strCount %>a.style.display="";
    }
function skjulliste1<%= strCount %>() {
omrade<%= strCount %>a.style.display="none";
    }
function visliste2<%= strCount %>() {
omrade<%= strCount %>b.style.display="";
    }
function skjulliste2<%= strCount %>() {
omrade<%= strCount %>b.style.display="none";
    }
</SCRIPT>
<%
set objRec2 = server.createobject("ADODB.recordset")

    strSQL = "SELECT * FROM kunder WHERE id = "& objRec("kundeid") &""
    objRec2.Open strSQL, objConn, 3, 1, 1

    strKunde = objRec2("kundenavn")
    objRec2.close
%>
<table border="0" cellpadding="4" cellspacing="0"  bordercolor="#111111" width="100%">
<tr id="omrade<%= strCount %>a">
<td class="unfold-closed" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="visrap<%= strCount %>();visliste2<%= strCount %>();skjulliste1<%= strCount %>()" value="&#711;"></td>
<td class="unfold-closed" width="10%"><%= objRec("dato") %></td>
<td class="unfold-closed" width="25%"><font class="unfold-headline"><%= strKunde %></font></td>
<td class="unfold-closed" width="20%"><%= objRec("lokation") %></td>
<td class="unfold-closed" width="15%"><%= objRec("overskrift") %></td>
<td class="unfold-closed" width="20%"><%= objRec("oprettetaf") %></td>
<td class="unfold-closed" width="5%"><img hspace="7" height="16" width="16" border="0" src="images/spacer.gif" alt="Rediger" title="Rediger">&nbsp;<img  height="16" width="16" border="0" src="images/spacer.gif" alt="Slet" title="Slet"></a>&nbsp;</td>
</tr>

<tr id="omrade<%= strCount %>b" style="display: none;">
<td class="unfold-open" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="skjulrap<%= strCount %>();skjulliste2<%= strCount %>();visliste1<%= strCount %>()" value="&#710;"></td>
<td class="unfold-open" width="10%"><%= objRec("dato") %></td>
<td class="unfold-open" width="25%"><font class="unfold-headline"><%= strKunde %></font></td>
<td class="unfold-open" width="20%"><%= objRec("lokation") %></td>
<td class="unfold-open" width="15%"><%= objRec("overskrift") %></td>
<td class="unfold-open" width="20%"><%= objRec("oprettetaf") %></td>
<td class="unfold-open" width="5%"><a href="vagtrapport_rediger.asp?cmd=&id=<%= objRec("id") %>"><img hspace="7" height="16" width="16" border="0" src="images/_icon_edit.gif" alt="Rediger" title="Rediger"></a>&nbsp;<a target="main" STYLE="cursor: pointer" onclick="if(confirm('***&nbsp;&nbsp;VAGTRAPPORT&nbsp;&nbsp;***\nDATO&nbsp;&nbsp;: <%= objRec("dato") %>\nKUNDE&nbsp;: <%= objRec("overskrift") %>\n------------------------------------------\n&Oslash;nsker du at slette denne rapport?'))this.href='includes/vagtrapport.asp?cmd=delete&id=<%= objRec("id") %>'; return true;"><img  height="16" width="16" border="0" src="images/_icon_delete.gif" alt="Slet" title="Slet"></a>&nbsp;</td>
</tr>

</table>

<table id="omrade<%= strCount %>" style="display: none;" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
            </tr>
    <tr>
      <td valign="top" class="niveau-3"><%= objRec("rapport") %></td>
    </tr>
</table>


<%
objRec.MoveNext
    Wend
%>
<!--#include file="includes/forbindelse_luk.asp"-->
</form>
</TD>

</TR></TBODY></TABLE>

</DIV></DIV>
</BODY></HTML>

Den skulle også starte automatisk fra dags dato. Prøv at skriv din sql ud, og sig hvad den siger?

det underlige er at den ikke laver nogen fejl? Den viser bare ingen rapporter...

Hov... har lige postet et par gange og fik denne fejl:
Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/vagtrapport/vagtrapport_test.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

En anden ting, det er ikke sikkert at der er en rapport hver dag...

Hvis der ingen rapporter er, så gør således efter "objRec.Open strSQL, objConn, 3, 1, 1"


if objRec.eof then response.write "Ingen rapporter".

Hvis buffer size er for stor, indikerer det at du sender for store data? Gør du det? er der meget data i din sql som skal komme?

jansangill> Kom med et svar :)