Tjenare!!
Fick för ett tag sedan hjälp med att loopa ut veckodagar mellan två förutbestämda datum. Så långt inga problem.
Nu vill jag utöka funktionen så att det ska kunna gå att välja två, tre eller veckans alla dagar. Jag har
lyckats placera informationen från formuläret i en array(imponerande) men jag kan inte få den att fungera tillsammans med
funktionen. Någon som är mer insatt än vad jag är som kan hjälpa mig.
<code>
<%

'Mitt försöka att skapa en array av olika veckodagar och
'loopa dom tillsammans med funktionen EnumDay

Days = Request.Form("sDay") 'Hämtar olika veckodagar
totDays = split(Days,",") 'Delar på dom o lägger dom i array
For i = 0 to UBound(totDays)
sDay = totDays(i)
response.write "Dagar: " & sDay & ", "
next 'Har försökt flytta ner denna till botten, men då får jag syntaxfel :(

'******Andreas kod*******
dDate = Request.Form("StartDatum")
eDate = Request.Form("SlutDatum")
'sDay = Request.Form("sDay")'Hämtar ex.vis alla Måndagar mellan dDate och eDate

Function EnumDay(dDate, eDate, Day)
Dim FirstDate
Dim LastDate
Dim varDate
FirstDate = DateAdd("d", (8 - Weekday(dDate, Day)) Mod 7, dDate)
LastDate = DateAdd("d", -Weekday(eDate, Day) + 1, eDate)

For varDate = FirstDate To LastDate Step 7
'Kod som ska köras för varje dag som genereras
Response.Write varDate

Next
End Function

Enumday dDate, eDate, Weekday(sDay)

%>
</code>