Hvad uge det er.. ASP

<%
'find ud af hvilken uger det er
tmpDate = Date()
'tmpDate = Cdate("29-12-2003")

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

Response.Write "Uge nr. " & weekNr (tmpDate)

%>

et svar!

Det kan gøres meget simpelt:

<%=DatePart("ww", date())%>

Også skal der lige vbMonday og vbFirstFourDays på for at definere, at mandag er den første dag i ugen, og der skal bruges 4 dags reglen.

<%=DatePart("ww", date(),vbMonday, vbFirstFourDays)%>

Sorry, det er rigtigt :o)

fennec jeg havde også lavet den første gang.. Men jeg kendte bare ikke til vbMonday.. Men vidste godt det med vbFirstFourDays... for den blev ved med at sige vi var i uge 25.. Med mindre jeg ændre vores dato til torsdag...

eihp, det er den rigtige. Har selv oprettet et spørgsmål, som efterlyste dansk ugestart (mandag), og ikke engelsk (søndag), og det virker.

Der er en "bug" i funktionen som regner uge nummeret ud. Så hvis du vil hvade 100% korrekt uge nummer så brug det som bswo har skrevet. Se mere her:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q200/2/99.asp&NoWebContent=1

eagleeye, det er beregnet til Visual Basic. Hvordan kan det omskrives til ASP (VB-scripting)?

De anbefaler en Workaround som er:
If you use the Format or DatePart functions, you need to check the return value and, when it is 53, run another check and force a return of 1, if necessary.

og bswo har rette funktionen som er vist på ms-side, i sin første kommentar. Eller tænker du på test koden?

Nej, jeg tænker mere på det færdige resultat, hvordan skal det se ud?

Mens jeg har dig: Har du forstand på upload af billeder og vedhæftning af billedtekst til?

Undskyld, eihp, men jeg har længe forsøgt at finde ud af det. Jeg skal nok prøve at holde mine problemer væk fra dine :o)