find en dato udfra dag/uge/år numre

Nu er den anden dag i uge 33, 2003 godt nok d. 12/8, men... c",)

<%
' dansk datoformat
session.lcid = 1030

'udregning af dato
Function UgeTilDato(aar,uge,dag)
  januar1 = DateSerial(aar, 1, 1)
  ugedagjan1 = Weekday(januar1, vbMonday)
  if ugedagjan1 <= 4 then
      ' 1. januar er i uge 1
      mandaguge1 = DateAdd("d", -ugedagjan1+1, januar1)
  else
      ' 1. januar er i sidste uge foregående år
      mandaguge1 = DateAdd("d", 7-ugedagjan1+1, januar1)
  end if

  mandagugex = DateAdd("ww", uge-1, mandaguge1)
  xdagugex = DateAdd("d", dag-1, mandagugex)
  UgeTilDato = xdagugex
End Function

' dine variabler
varDay = "2"
VarWeek = "33"
VarYear = "2003"

'resultatet af dine variabler
response.write( CDate(UgeTilDato(VarYear, VarWeek, VarDay)) )
%>

Tusind tak, det virker helt perfekt