Her er min kode, måske kender eagleeye noget af det igen?
Det jeg vil lave er et gammelsdags stempelur!
<!--#include file="conn/main.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>Skema</title>
<link href="css/projekt.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Session.LCID = 1030
if request.QueryString("uge") = "" then
ugeNr = weekNr(date)
Else
ugeNr = CInt(request.QueryString("uge"))
End if
'Find dato, første mandag i den valgte uge
dato = findMandag(ugeNr,Year(Date))
'Find ugens dage navne + dato
dagMandag = WeekdayName(DatePart("W", dato, 1))
dagMandag = UCase(Left(dagMandag,1)) & Mid(dagMandag,2) & " [" & Day(dato) & "-" & Month(dato)& "]"
'trækker dato ud af dag1
dag1=Day(dato)&"-"&Month(dato)
'-----
dato = DateAdd("d", 1, dato)
dagTirsdag = WeekdayName(DatePart("W", dato, 1))
dagTirsdag = UCase(Left(dagTirsdag,1)) & Mid(dagTirsdag,2) & " [" & Day(dato) & "-" & Month(dato)& "]"
'trækker dato ud af dag2
dag2=Day(dato)&"-"&Month(dato)
'--------
dato = DateAdd("d", 1, dato)
dagOnsdag = WeekdayName(DatePart("W", dato, 1))
dagOnsdag = UCase(Left(dagOnsdag,1)) & Mid(dagOnsdag,2) & " [" & Day(dato) & "-" & Month(dato)& "]"
'trækker dato ud af dag3
dag3=Day(dato)&"-"&Month(dato)
'------
dato = DateAdd("d", 1, dato)
dagTorsdag = WeekdayName(DatePart("W", dato, 1))
dagTorsdag = UCase(Left(dagTorsdag,1)) & Mid(dagTorsdag,2) & " [" & Day(dato) & "-" & Month(dato)& "]"
'trækker dato ud af dag4
dag4=Day(dato)&"-"&Month(dato)
'----------
dato = DateAdd("d", 1, dato)
dagFredag = WeekdayName(DatePart("W", dato, 1))
dagFredag = UCase(Left(dagFredag,1)) & Mid(dagFredag,2) & " [" & Day(dato) & "-" & Month(dato)& "]"
'trækker dato ud af dag5
dag5=Day(dato)&"-"&Month(dato)
'------------------
'uge + / - 1
tmpDato = DateAdd("ww",1,dato)
ugeNrp= weekNr(tmpDato)
aarNrp= Year(tmpDato+3)
tmpDato = DateAdd("ww",-1,dato)
ugeNrm= weekNr(tmpDato)
aarNrm= Year(tmpDato+3)
%>
<form action="skema_x.asp" method="post" name="skemaform">
<table border="0" width="100%" cellspacing="2" cellpadding="5">
<tr>
<td colspan="6" class="tbl_text_kal" height="20">Uge <%=ugeNr%> </td>
</tr>
<tr align="left" class="tbl_log">
<td width="200" height="20">Navn</td>
<td width="100" height="20"><%=dagMandag%><%=dag1%></td>
<td width="100" height="20"><%=dagTirsdag%><%=dag2%></td>
<td width="100" height="20"><%=dagOnsdag%><%=dag3%></td>
<td width="100" height="20"><%=dagTorsdag%><%=dag4%></td>
<td width="100" height="20"><%=dagFredag%><%=dag5%></td>
</tr>
<tr>
<%
HER VIL JEG SÅ SKRIVE EN UGE OVERSIGT UD
%>
</tr>
</table>
<table align="center" width="400">
<tr class="tbl_text_kal">
<%
Response.Write("<td align='center'><a href='skema_x.asp?uge=" & ugeNrm & "'>Forrige uge</a></td> ")
Response.Write("<td align='center'><a href='skema_x.asp?uge=" & ugeNrp & "'>Næste uge</a></td> ")
%>
</tr>
</table>
</form>
<%
Conn.Close
Set Conn = Nothing
'Den første dag i indeværende uge:
Function getDate(ByVal weekNr, ByVal startDate)
If Not isDate(startDate) Then Exit Function
dato = CDate(startDate)
Do While DatePart("ww", dato, vbMonday, vbFirstFourDays) <> weekNr
dato = DateAdd("d", 1, dato)
Loop
getDate = dato
End Function
'find uge nummer
Function weekNr (dtmDate) ' Week Of Year
weekNr = DatePart("ww", dtmDate, vbMonday, vbFirstFourDays)
If weekNr > 52 Then
If DatePart("ww", dtmDate + 7 , vbMonday, vbFirstFourDays) = 2 Then weekNr = 1
End If
End Function
'Find mandag i valgt uge,år
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
%>
</body>
</html>
