Veckans dagar

weekno = 38
y = 2002

firstday = y & "-01-01"
fweek = datepart("ww", firstday)
if fweek > 1 then
   startday = dateadd("d",8-weekday(firstday,vbmonday),firstday)
else
   startday = dateadd("d",-6-weekday(firstday,vbmonday),firstday)
end if

startday = dateadd("ww",weekno,startday)
response.write "v." & weekno & "<br>"
for d = startday to startday + 6
response.write day(d) & " " & weekdayname(day(d)) & "<br>"
response.write "------------------------------------<br>"
next

bra lösning :bire

tror jag kopierar den och sparar för framtida projekt ;)

Microsoft VBScript runtime error '800a0005'
Invalidprocedure call or argument: 'weekdayname'
/db/cal/cal.asp, line 33

line 33 -->response.write day(d) & " " & weekdayname(day(d)) & "<br>" :(

Invalid procedure call or argument: 'weekdayname'
Har ingen aning om vad det betyder.

Ändra från
response.write day(d) & " " & weekdayname(day(d)) & "<br>"
Till
response.write day(d) & " " & weekday(day(d)) & "<br>"

Så funkar det bättre

Sorry.
Så här skulle det visst vara..

response.write day(d) & " " & weekdayname(weekday(d)) & "<br>"

Tack!

När jag tänker efter så skulle det bli lite svårt att göra ett veckodagsnamn av: weekdayname(day(d)) där day endast är dagen i datumet.
Såklart så måste det vara: weekdayname(weekday(d)) :)

Red :r

Nu ser allt konstigt ut, hur skall jag lägga koden för att den skall lägga sig i rätt dagar? Nu ser det ut så här:

 07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
2 måndag

--------------------------------------------------------------------------------
07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
3 tisdag

--------------------------------------------------------------------------------
07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
4 onsdag

--------------------------------------------------------------------------------
07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
5 torsdag

--------------------------------------------------------------------------------
07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
6 fredag

--------------------------------------------------------------------------------
07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
7 lördag

--------------------------------------------------------------------------------
07:00-09:30  Få se Nu!
07:15-07:35  test
18:00-18:30  Godnatt
8 söndag

"Få se Nu!" och "test" skall ligga på måndagen och Godnatt skall vara på torstagen.
JAG HAR FÅTT HJÄRNSLÄPP
Koden:

 
If Not RS.BOF Then
    RS.MoveFirst
    Do Until RS.EOF
   
    sOutput = sOutput & "<span class=Time>" & RS("ftid") & "-" & RS("ttid") & "</span>&nbsp;" & VbCrLf 
	sOutput = sOutput & "<a title=""" & RS("detalj") & """ href=""javascript:PopWin('add_edit.asp?id=" & RS("id") & "')"">" & RS("rubrik") & "</a><br>" & VbCrLf
   
      RS.MoveNext
    Loop
end if
for [b][3][red]d[/red][/3][/b] = weekstartday to weekstartday + 6
    Response.Write sOutput

Counter=weekdayname(weekday([b][3][red]d[/red][/3][/b] ))
response.write day([b][3][red]d[/red][/3][/b] ) & " <font> " & Counter & "</font><br>"& vbcrlf &_
"<hr size=1 noshade color='#000080'>"& vbcrlf'rs("rubrik")&"<br>"&_
next

x(

hälp!!!

Du loopar ju ut samma info från databasen till alla dagar..
du måste ange det datum infon skall presenteras

Jag fattar inte detta, snälla jag förstår principen men inte hur jag skall göra det.
HJÄLP!

Någon vänlig själ...?

Var plockar du ut datumet från databasen? Jag ser bara i det du visar att du plockar ut klockslagen (start/stopptid)
Du måste ju se till att bara få ut den eller de dagar du är intresserad av.

Ja precis, det måste jag ju såklart. Men nu slog det mig att värdet i variabeln "d" kommer först efter loopen och därför så har jag svårt att se hur det skall gå till.

  
Do Until RS.EOF
[red]If right(RS("Datum1"),2) = right(([3][B]d[/B][/3]),2) Then[/red]
sOutput = sOutput & "<span class=Time>" & RS("ftid") & "-" & RS("ttid") & "</span> " & VbCrLf 
sOutput = sOutput & "<a title=""" & RS("detalj") & """ href=""java script:PopWin('add_edit.asp?id=" & RS("id") & "')"">" & RS("rubrik") & "</a><br>" & VbCrLf
[red]end if[/red]
RS.MoveNext
Loop

Någon som vet hur detta skall lösas?
Se rödmarkerade "d:n" i mitt senaste inlägg (med kod).

Jag vet att det ändå inte kommer att fungera, hur gör man detta igentligen?

Kom igen nu, jag vet att ni kan!

SNÄLLA, jag går bet på detta snart, en liten hint bara tack!