Kalender problem.

Jeg har følgende kode:

------------------------------START--------------------
<table border="0" WIDTH="640" cellspacing="0" cellpadding="0">
<% Do While Not rstSimple.EOF %>
<tr>
<td>
<table width="100%" class="Artikler" cellspacing="0" cellpadding="0">
<tr>   
<td colspan="2">
<% If Temp <> month(rstSimple("StartDate")) Then
  Temp = month(rstSimple("StartDate"))
  StortBogstav = MonthName(Temp)
  StortBogstav = UCase(left(StortBogstav,1)) & mid(StortBogstav,2)
  response.Write StortBogstav
  End If %>
</td>
</tr>
<tr>
<td width="40">
<% StortDagNavn = WeekDayName(Weekday(rstSimple("StartDate")),true)
  StortDagNavn = UCase(left(StortDagNavn,1)) & mid(StortDagNavn,2)
  Response.Write StortDagNavn & "&nbsp;" & Day(rstSimple("StartDate")) %>
</td>
<td height="18" align="left"><b><%= rstSimple.Fields("Headline").Value %></b></td>
<td height="18" align="right"><i><%= rstSimple.Fields("WeekNr").Value %></i></td>
</tr>
</table>
</td>   
</tr>
<% rstSimple.MoveNext
  Loop %>
<tr>
<td height="30">&nbsp;</td>
</tr>
</table>

<%    rstSimple.Close
    cnnSimple.Close
    Set rstSimple = Nothing
    Set cnnSimple = Nothing
%>
--------------------------------SLUT-------------------------
Mit/Mine problem(mer) er følgende:

1) Visningen er DAGEN er kun f.eks Lø (Lørdag), men vil gerne se hele teksten.
2) Hver måned bliver skrevet med Stort Forbogstav. Feltet teksten er i skal gerne have en farve, men de felter der IKKE udfyldes med et måned navn bliver ligeledes farvelagt.
(Ses som en farvede linie med INGEN tekst, pga Løkken !!)
3) Skulle gerne har et mellemrum imellem sidste arrangement og en ny måned.

Håber at nogen kan finde ud af mine problemer...