Ska försöka förklara mitt mål med scriptet jag bygger...

Vi har en kalender på vårt lokala intranät där det markeras med olika färger på respektive dagar beroende på vilken aktivitet som är registrerad.

Nu försöker jag få till en uppställning, månadsvis där jag har datumen längst upp och varje tjänst till vänster, ungefär som i t ex Excel.

1234567890
Aktivitet1
Aktivitet2
Aktivitet3


Målet är alltså att jag ska få kolumnen (i den raden som aktiviteten finns listad) med datumet markerat i den färg som jag valt för aktiviteten.

Jag har fått till datumdelen där det visas den mängd dagar som ingår i månaden.

I db:n finns kolumnerna dd, mm, yy och det blir väl dd som ska plockas ut t ex med en where mm=juni...

Som ni märker så svamlar jag och behöver lite tips hur jag ska tackla det hela.

Tacksam för hjälp!

Om du vet hur du skall bära dig åt så tanka hem ett kalender-script, kolla igenom de hur de har gjort så lossnar de nog. Beroende på hur mycket ASP du kan vill säga.

MVH
Adam Solander

Jadå, så kan man ju iofsig göra... Hittar dock ingen bra variant på det hela...

Den här koden har jag nu....

For T = 1 to 31

IF T = rs("dd") then
response.write "<td>"
response.write rs("dd")
response.write "</td>"
RS.MoveNext
else
response.write "<td>"
response.write T
response.write "</td>"
End If

next



Borde inte detta fungera? Får Exception occured

Vilken rad får du "Exception occured" på?

Första raden...

If T = rs("dd") then...

Det jag är lite osäker över är hur jag bestämmer att den ska köra -> 31dagar...

Jag har nu ett värde som heter Getdays(mm) vilket resulterar i antalet dagar i månaden.

Jag kör:

For T = 1 to Getdays(mm)

SQL-satsen

IF T = rs("dd") then -------- Exception occured raden

response.write "<td>"
response.write rs4("dd")
response.write "</td>"
RS4.MoveNext
else
response.write "<td>"
response.write T
response.write "</td>"
End If


next

Jag löste det såhär...

T=1

Do until T = getdays(mm)+1

If rs.eof then
strblob = 0
else
Strblob=rs("dd")
end if


IF T = Strblob then
response.write "<td width=""15"">"
response.write " "
response.write "</td>"
RS4.MoveNext
else
response.write "<td width=""15"">"
response.write "&nbsp;"
response.write "</td>"
End If


T=T+1
loop


Hur fräckt som helst ;=) Tackar för den här gången.