Dato

sådan her:

DateAdd(interval, number, date)

så f.eks. VarDato =(d, 5, date)

hvor d er antal dage
hvor m er antal måneder

Jeg får denne fejlmedelese:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A0005)
Procedurekaldet eller argumentet er ugyldigt: \'DateAdd\'

Når jeg laver denne kode:

<%=DateAdd(d, 5, date)%>

Hvorfor kan du hjælpe?

<%=DateAdd(\"d\", 5, date)%>

magik har ret, der mangler \" omkring d\'et... sorry...

Ny Fejlmedelese :(

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typerne stemmer ikke overens: \'30-12-2001\'

<%
If Weekday(DateAdd(\"d\", varcount, date)(),2) = 1 Then
varUgedag = \"Mandag\"
End If
%>

Er der nogle som kan hjælpe mig?

<%=WeekDayName(WeekDay(DateAdd(\"d\", varcount, date)))%>

<%
If Weekday(DateAdd(\"d\", varcount, date),2) = 2 Then
varUgedag = \"Mandag\"
End If
%>

burde virke nu

Hvorfor teste på ugedag, når man kan få den udskrevet?

Husk at sætte dansk datoformat (i toppen af din .asp-side)

<% Session.LCID = 1030 %>

Nu virker det næsten som jeg vil ha det... Men den må ikke udskrive dato\'erne for lørdag og søndag, hvordan gør jeg det?

<%
Varcount = 0

Do Until varcount = 28
VarDato = date+varcount

varUgedag = WeekDayName(WeekDay(DateAdd(\"d\", varcount, date)))

Response.Write varUgedag & \" \"& vardato & \"<br>\"

Varcount = varcount+1
Loop
%>

Alle ugedage i VB/VBS har et navn:

vbMonday
vbTuesday
osv..

Derfor kan du teste sådan her:

If varUgedag = vbSaturday Or varUgedag = vbSunday Then

if varUgedag = \"Lørdag\" or varUgedag = \"Søndag\" THEN
  KODE FOR det ønskede
ELSE
  KODE FOR det ønskede
END IF

Doh! Det skal selvfølgelig gøres på WeekDay, ikke WeekDayName :)

Så er den vist ved at være der:

<%
Varcount = 0

Do Until varcount = 28
VarDato = date+varcount
ugedag = WeekDay(DateAdd(\"d\", varcount, date))

If ugedag <> vbSaturDay And ugedag <> vbSunday Then
varUgedag = WeekDayName(WeekDay(DateAdd(\"d\", varcount, date)))
Response.Write varUgedag & \" \"& vardato & \"<br>\"
End If
Varcount = varcount+1
Loop
%>

:)

Tak for hjælpen...
Det virker perfekt nu.

Ja, da min hjerne begyndte at fungere :)

Takker for points, og godt nytår :)