how to get the date & time of NEXT week's first day

[shamloo]

I'm creating an ASP-Poll and do not want the users to vote more than once a week and therefore I'm making this cookie.
The cookie should expire the first day, at 00:00:01, of the FOLLOWING week, that's what I have in mind.
an example might be necessary)
a user votes on a thursday, week 27. Then he/she will not be able to vote again until monday 00:00:01, week 28.
And when he/she votes again the poll has changed(I have this working), the main purpose of the cookie is to make sure people never votes more than once!

I get the current week by doing this:
Dim myWeek
myWeek = DatePart("ww",Date(),2,2)

--------------------
so, what I need help with here is how to get the first date & time from the following week's first day(which is monday here in Sweden).

thanks,
David

[JoshT]

See if you can modify this to meet your needs.

Function GetWeekBeginning(theDay)
    'takes a date, sees if its the beginning of the week
    '   if is not returns the beginning date of the week
    '   uses Sunday as beginning day of week
    Dim temp
    temp = Weekday(theDay)
    Do Until temp = vbSunday
        theDay = DateAdd("d", -1, theDay)
        temp = Weekday(theDay)
    Loop
    GetWeekBeginning = theDay
End Function