Här är ett sätt att lösa det på:
[red]<%
Function dateMod(ByVal str)
str = trim(str)
strDate = UCase(mid(weekdayname(weekday(str)),1,1)) & mid(weekdayname(weekday(str)),2) &" "& day(str) &" "& monthname(month(str))
intWeek = DatePart("ww", str, 2)
dateMod = strDate &"<br>Vecka "& intWeek
End Function
Response.Write dateMod(now)
%>[/red]

