Frågan#1
Har snickart lite fram och tillbaka på en kalander som ska visa dagens nummer med fet stil om det finns någon post i databasen som matchar.
Fungerar som det ska för Februari MEN inte för resterade månader. Någon som orkar kolla igonom det hela.
Datum i databas:
ID Actiontime
1 2001-02-12
2 2001-02-18
3 2001-02-24
4 2001-02-12
7 2001-03-15
8 2001-03-18
9 2001-02-10
10 2001-02-19
11 2001-04-20
12 2001-03-24
14 2001-04-15
Kalender.asp
<%@LCID=1053%>
<!-- #include file="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>Event Calendar</TITLE>
<LINK rel="stylesheet" href="intranet_default.css">
</HEAD>
<BODY>
<%
If Request("EventDate") <> "" Then
EventDate = DateValue(Request("EventDate"))
Else
EventDate = date
End if
CurrentMonth = Month(EventDate)
CurrentMonthName = MonthName(CurrentMonth)
CurrentYear = Year(EventDate)
FirstDayDate = DateSerial(CurrentYear, CurrentMonth, 1)
FirstDay = WeekDay(FirstDayDate, 0)
CurrentDay = FirstDayDate
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open = "DSN=intranet"
strSQL = "SELECT DISTINCT Actiontime FROM tblCalendar"
rs.open strSQL,cn,adOpenStatic, adLockOptimistic
%>
<BR>
<TABLE width="280" border="0" cellspacing="0" cellpadding="0" class="BgNewsCell">
<TR>
<TD colspan="2"><IMG src="gif/pixel_transparent.gif" width="1" height="10"><BR>
<SPAN class="HeadXLargeBlack">Calendar</SPAN></TD>
<TD><IMG src="gif/pixel_transparent.gif" width="12" height="8"></TD>
</TR>
<TR align="right" valign="top">
<TD colspan="2"><A Href="Default.asp?EventDate=<%= Server.URLEncode(DateAdd("m",-1,EventDate))%>"><IMG src="default_icon_arrow_left.gif" border="0"></A><SPAN class="HeadMediumBoldBlack"> <A Href="Default.asp?EventDate=<%= Server.URLEncode(DateAdd("m",1,EventDate))%>"><IMG src="default_icon_arrow_right.gif" border="0"></A> <%= UCase(CurrentMonthName) %></SPAN></TD>
<TD class="BodyRegularBlack"> </TD>
</TR>
<TR>
<TD height="100"><SPAN class="BodyRegularBlack"> </SPAN></TD>
<TD rowspan="2" width="228" valign="top" align="right">
<TABLE cellpadding="1" cellspacing="0" bgcolor="#000000">
<TR>
<TD>
<TABLE border="0" cellspacing="0" cellpadding="4">
<tr align="center" valign="middle" class="BgNewsCellHead">
<% For DayLoop = 1 to 7%>
<TD class="HeadMediumBoldWhite"><%= Left(WeekDayName(Dayloop, True, 0),1)%></TD>
<% Next%>
</TR>
<%
CorrectMonth = False
DayCounter = 1
%>
<TR>
<%
If FirstDay <> 1 Then
%>
<TD Colspan="<%=FirstDay -1%>" BGCOLOR="#FFFFFF">
<%
End if
DayCounter = FirstDay
CorrectMonth = True
Do While CorrectMonth = True or rs.eof
%>
<%if rs("actiontime") = currentday then%>
<TD class="BodySmallBlack" bgcolor="#FFFFFF"><B><a href="foo.asp?actiontime=<%=rs("actiontime") %>"><%=Day(CurrentDay)%></a></B></TD>
<% rs.movenext %>
<%else%>
<TD class="BodySmallBlack" bgcolor="#FFFFFF"><%=Day(CurrentDay)%></TD>
<%end if%>
<%
DayCounter = DayCounter + 1
If DayCounter > 7 then
DayCounter = 1
%>
</TR><TR>
<%
End if
CurrentDay = DateAdd("d", 1, CurrentDay)
If Month(CurrentDay) <> CurrentMonth then
CorrectMonth = False
End if
Loop
%>
<% IF DayCounter <> 1 Then%>
<TD Colspan="<%=8-DayCounter%>" BGCOLOR="#FFFFFF"> </TD>
<% End if%>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<IMG src="default_icon_plus_sign.gif" vspace="2"><SPAN class="BodyRegularBlack"> Add
event</SPAN></TD>
<TD class="BodyRegularBlack"> </TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF" width="52" valign="top"><IMG src="default_back_corner_feature.gif"></TD>
<TD class="BodyRegularBlack"> </TD>
</TR>
</TABLE>
</BODY>
</HTML>
------------------
//Jonne, a beliver of murphys law