Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
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
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
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
<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%"> </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 <% 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 <% 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 <% 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 <% 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 <% 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%"> </td> </tr></tbody></table>
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
%> 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
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%"> </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 <% 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 <% 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 <% 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 <% 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 <% 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%"> </td> </tr></tbody></table>
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
<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
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
'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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.