Udtræk en uge frem??
Hvordan kan jeg få den her til ikke kun trække dagan idag ud, men hele den kommende uge ? Jeg sender mails ud hver gang der er en der har mærkedag og det bliver for meget hvis jeg gør det hver dag. Derfor vil jeg sende en gang pr uge med alle de navne der er i den kommende uge.<%
OneMerkeDag = false
do while not rs.EOF
sBirthdate = rs("Birthdate")
dato = sBirthdate
years = Datediff ("yyyy",dato,date)
dato = dateAdd("yyyy",years,dato)
mounths = Datediff ("m",dato,date)
if mounths < 0 then
dato = dateAdd("yyyy",-1,dato)
mounths = Datediff ("m",dato,date)
years = years - 1
end if
dato = dateAdd("m",mounths,dato)
days = Datediff ("d",dato,date)
if days < 0 then
if mounths > 0 then
mounths = mounths - 1
else
years = years - 1
mounths = 11
end if
dato = dateAdd("m",-1,dato)
days = Datediff ("d",dato,date)
end if
'TJEK OG FIND MÆRKE DAG/DAGE !!!!
merkeDag = false
if (mounths = 0) and (days = 0) then
merkeDag = true
end if
if len(sBirthdate) > 0 then
TotalCleanYear = TotalCleanYear + years
TotalCleanMounths = TotalCleanMounths + mounths
TotalCleanDays = TotalCleanDays + days
if TotalCleanDays >= 30 then
TotalCleanDays = TotalCleanDays - 30
TotalCleanMounths = TotalCleanMounths + 1
end if
if TotalCleanMounths >= 12 then
TotalCleanMounths = TotalCleanMounths - 12
TotalCleanYear = TotalCleanYear +1
end if
end if
if merkeDag = true then
OneMerkeDag = true
dinStr = years & " år "
Response.Write "<b><a href=""/dev/myDeV/users.asp?username=" & rs("UserName") & """>"
Response.Write rs("UserName") & " </b><a></a>har idag " & dinStr & " Clean!<br>"
end if
rs.movenext
loop
if OneMerkeDag = false then
Response.Write "<i>Der er ingen der der kan fejre hele år idag.</i><br>"
end if
dinStr = "" & TotalCleanYear & " år " & TotalCleanMounths & " måneder " & TotalCleanDays & " dage"
Response.Write "Samlet cleantime i mærkedagskalenderen: " & dinStr & ""
%>
