Sorry.....
Det gik lidt stærkt!
Her er funktionen......
function WeekNum(dt)
WeekNum = DateDiff("ww", "1/1/" & CStr(year(dt)), dt)
end function
"Otto" <leholt@worldonline.dk> skrev i en meddelelse
news:V5oA9.2584$HU.331454@news010.worldonline.dk...
> Hej derude.
> Jeg har prøvet og prøvet , men kan ikke finde ud af hvordan jeg indsætter
> ugenr i en kalender som jeg bruger på
>
http://213.237.9.227/kalender/indtast.asp
> Det eneste jeg er nået frem til er hvordan jeg viser aktuel uge nr med
> uge = datepart("ww", date)
>
> Scriptet til calenderen har jeg ikke selv lavet fra bunden men moderet et
> script fra nettet
> ( jeg tror fkatisk det er J. Stockholms ..)
> Calenderscriptet ser således ud ..:
> <%
> dtmDate = Request.QueryString("date")
> dtmToday = Date
>
> If dtmDate = "" Then
> dtmDate = Date
> Else
> dtmDate = CDate(dtmDate)
> End if
>
> intYear = Year(dtmDate)
> strMonth = MonthName(Month(dtmDate))
> intDayOfMonth = Day(dtmDate)
> dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
> intFirstDay = Weekday(dtmFirstDate, vbMonday)
> uge = datepart("ww", date)
> %>
>
>
> <div align="center"><center>
>
> <table width=250 cellspacing="0" cellpadding="2" border="0" valign="top"
> style="border: 1px solid rgb(0,0,0)">
> <tr>
> <td colspan="7" align="center" valign="middle" bgcolor="#000000"><font
> face="Verdana"
> size="2"
>
color="#ffffff"><strong><%=strMonth%> <%=intYear%></strong></font></td>
> </tr>
> <tr>
> <td align="center"><font face="verdana" size="2">Man</font></td>
> <td align="center"><font face="verdana" size="2">Tir</font></td>
> <td align="center"><font face="verdana" size="2">Ons</font></td>
> <td align="center"><font face="verdana" size="2">Tor</font></td>
> <td align="center"><font face="verdana" size="2">Fre</font></td>
> <td align="center"><font face="verdana" size="2">Lør</font></td>
> <td align="center"><font face="verdana" size="2">Søn</font></td>
> </tr>
> <%
> For y = 1 to 6
> If blnLast <> True Then
> Response.Write "<tr>"
> For x = 1 to 7
> Response.Write "<td align=center><font face=verdana size=2>"
> intLoopDay = intLoopDay + 1
> If intLoopDay >= intFirstDay Then
>
> dtmCurDate = DateAdd("d", intLoopDay-intFirstDay,
> dtmFirstDate)
> 'otto tilføjet link med dato
> response.write"<a href='form.asp?ugedag="& weekday(dtmCurDate)& "&dato="&
> day(dtmcurdate) & "&month=" & month(dtmCurDate) &"&year=" &
year(dtmCurDate)
> &"& uge=" & uge &"'>" 'otto tilføjer link
> If Month(dtmCurDate) = Month(dtmFirstDate) Then
> If dtmCurDate = dtmToday Then
> Response.Write "<strong><font color=#ff0000>"
> End If
> Response.Write Day(dtmCurDate)
> Response.Write "</a></strong></td>"
> blnLast = False
> Else
> Response.Write "-</td>"
> blnLast = True
> End If
> Else
> Response.Write "-</td>"
> blnLast = True
> End if
> Next
> End If
> Next
> Response.Write "</font></td></tr>"
> %>
> <tr>
> <td bgcolor="#000000" colspan="3"><font face="verdana" size="2"><b><a
>
href="indtast.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></f
> ont></td>
> <td bgcolor="#000000"> </td>
> <td bgcolor="#000000" colspan="3" align="right"><font face="verdana"
> size="2"><b><a
>
href="indtast.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b></font
> ></td>
> </tr>
> </table>
> </center></div>
>
>
> --
> Ja - det er nok lidt uoverskueligt - men håber én af jer kan hjælpe mig
> videre ....
> på forhånd tak .. hilsen Otto
> _______________________________________________
>
> Link database:
http://www3.brinkster.com/otto/web-links/
> _______________________________________________
>
> Otto Leholt - Baggesensgade 19 , 2200 N , Copenhagen
> tlf 3537 4928 mobil: 2076 9094
http://www3.brinkster.com/otto/home.asp
> _______________________________________________
>
>