Kalender script der driller
jeg har fundet et script som jeg har ændret i min jeg kan ikke få den til at stopper efter den 31. de viser dagene for næste måned...link: http://www.gutternes.dk/include/kalender.asp
koden:
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write " <tr>" & vbcrlf & vbcrlf
For x = 1 to 7
dato=DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)+1
rsKalender.Open "SELECT * FROM kalender WHERE Dag=" & Day(dato) & " AND Maaned=" & Month(dato) & " AND Aar=" & Year(dato) & "", MM_gutternes_STRING, 1
if not rsKalender.EOF then
Response.Write " <td align=""center"" onmouseover=""return overlib('" & rsKalender("Overskrift") & "');"" onmouseout=""return nd();"" onClick=""MM_openBrWindow('kalender_detaljer.asp?IDkalender=" & rsKalender("IDkalender") & "','PoPs','scrollbars=yes,resizable=yes,width=250,height=350')""><a class=""kalender"" href=""#"">"
else
Response.Write " <td align=""center"" class=""kalender"">"
end if
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If (dtmCurDate <> dtmToday) Then
Response.Write Day(dtmCurDate) & "</td>" & vbcrlf
blnLast = False
elseif Month(dtmCurDate) = Month(dtmFirstDate) then
Response.Write Day(dtmCurDate) & "</a></td>" & vbcrlf
blnLast = False
Else
Response.Write " </td>" & vbcrlf
blnLast = True
End if
end if
rsKalender.Close
Next
Response.Write " </tr>" & vbcrlf
end if
next
%>
