MoveNext

Det forstår jeg ikke, MoveNext?? har du et recordet?

hvis du vil skrive 3 dage ud:

dato = Date()
for i = 1 to 3
  Response.write dato & "<br>"
  dato = dateAdd("d", 1, dato)
next

uge=DatePart("ww", date())+3



if uge = 28 then
nuuge = uge&"zyzy"
end if

if uge = 30 then
nuuge = uge&"zzr"
end if

if uge = 29 then
nuuge = uge&"zzy"
end if

if uge = 31 then
nuuge = uge&"ztttzy"
end if





response.write nuuge


jeg vil gerne skrive de 3 uger ud

DEt er godt forvirrende det du skriver, prøv at forklarer hvad du vil med menneske ord...!

hvis det er uge 29 jeg gerne have den skal skrive 29zzy det virker også
Men hvis jeg skriver uge=DatePart("ww", date())+3 Skal den jo skrive 29zzy og 30ztttzy + to mere.
men jeg kan kun få den til at skrive den første uge.

Denne:
uge=DatePart("ww", date())+3


Det giver:
uge=DatePart("ww", date())
returnere den uge vi er i nu..
+3 ligger du 3 uger til den ude vi er i nu:

Vi er i uge 29 lige nu så udregner man: uge=DatePart("ww",date())+3 bliver:
uge = 29+3 = 32

Du skal lavet et loop/for som fæørst vis hvor du skrive en uge ud af gangen.


uge=DatePart("ww", date())

for i = 1 to 3

  if uge = 28 then
    nuuge = uge&"zyzy"
  end if

  if uge = 30 then
    nuuge = uge&"zzr"
  end if

  if uge = 29 then
    nuuge = uge&"zzy"
  end if
 
  if uge = 31 then
    nuuge = uge&"ztttzy"
  end if
  response.write nuuge & "<br>"

  uge = uge + 1
next

Hmm ja du har ret, hvad gør jeg så??
Jeg skal have uge nummer og de 4 bogstaver bag efter skrevet ud.

Eller skl jeg lave det med en database?

Så skal du lige huske at havde disse med i i DatePart når du vil finde uge nr: , vbMonday, vbFirstFourDays, for at den regner ugerne rigtigt ud:


uge=DatePart("ww", date(), vbMonday, vbFirstFourDays)

uge=DatePart("ww", date())

for i = 1 to 3

  if uge = 28 then
    nuuge = uge&"zyzy"
  end if

  if uge = 30 then
    nuuge = uge&"zzr"
  end if

  if uge = 29 then
    nuuge = uge&"zzy"
  end if
 
  if uge = 31 then
    nuuge = uge&"ztttzy"
  end if
  response.write nuuge & "<br>"

  uge = uge + 1
next

Virker tak skal du have

<%
thisWeek = DatePart("WW", Date())
endWeek = DataPart("WW", DateAdd("WW", 3, Date()))

Do While not thisWeek > endWeek

  Response.Write thisWeek &"ZZZZ"

  thisWeek = DataPart("WW", DateAdd("WW", 1, Date()))

Loop
%>
Denne skulle også gerne tage højde for årskift.

BobbeDude.... Vær opmærksom på at eagleeyes eks ikke tager højde for årskifte.
F.eks. Hvis det er uge 54 og man ligger 3 uger til hvilken uge får man så?
Brug mit eksemple....!

skal lige teste det ud, men du har ret ang. uge 54 og man ligger 3 uger til hvilken uge får man så?

Mit script ser sådan ud, gider kun vise de 3 første med der er 52 ialt:

for i = 1 to 3

  if uge = 1 then
    nuuge = uge&"-qwe"
    billed = sti&uge&".gif"
  end if
 
  if uge = 2 then
    nuuge = uge&"-wer"
    billed = sti&uge&".gif"
  end if
 
  if uge = 3 then
    nuuge = uge&"-ert"
    billed = sti&uge&".gif"
  end if

response.write "&nbsp;&nbsp;<a href='../uger/"&nuuge&"/index.asp?xstien="&nuuge&"' target='bund'>"&uge & "</a>"
 
  uge = uge + 1
next

jeg han ikke rigtig se hvordan jeg skal få dit ind her.