samling af felter

Hvorfor virker nedenstående ikke?

<%  rs.MoveFirst
    do while not rs.EOF
                                             
    uge = rs.Fields("Uge")
    ugenu = datepart("ww",date,vbMonday,vbFirstFourDays)

    if ugenu = uge then

    Response.write "Hvorfor virker det ikke ?"
   
    end if

    rs.MoveNext
    loop %>

rs.Fields("Uge") er i dette tilfælde 18
Hvis jeg laver en response.write på begge to, uge og ugenu er begge to 18, men det virker ikke hvorfor?