gif skal erstatte månedsnavn

Jeg har 2 scripts jeg ikke kan finde ud af at kombinere.

DET ENE viser en gif med månedens navn og ser sådan ud:

<%
maaned = month(now)
Select case maaned
case 1
billedid = "1"
case 2
billedid = "2"
case 3
billedid = "3"
case 4
billedid = "4"
case 5
billedid = "5"
case 6
billedid = "6"
case 7
billedid = "7"
case 8
billedid = "8"
case 9
billedid = "9"
case 10
billedid = "10"
case 11
billedid = "11"
case 12
billedid = "12"
end select

response.write "<img src='" & billedid & ".gif'>"
%>

Det virker. Se det her: http://www.peterogdeandrekopier.dk/DEMO/default.asp


DET ANDET script er min kalender (som der er rigtig meget gang i idag*S*). Jeg har forsøgt at sætte ovenstående kode ind, der hvor månedens navn genereres. Men det virks ikk'! Nogen der kan hjælpe, PLS?

Her kommer linje 52-58 i min Kalender ../oversigt.asp som også kan ses på http://www.peterogdeandrekopier.dk/DEMO/oversigt.asp

:::


<!-- Her begynder kalenderen, månedens navn -->
    <td bgcolor="#ffffff" width="140" valign="top" height="142"><%
            Response.Write("<table border=""0"" cellspacing=""1"" cellpadding=""0"">") & vbCrLf
                Response.Write("<tr>") & vbCrLf
                    Response.Write("<td colspan=""7"" bgcolor=""#333366"" valign=""top"" align=""center""><font class=""MonthText"">" & ucase(left(monthname(month(dtmDate)), 1)) & lcase(right(monthname(month(dtmDate)), len(monthname(month(dtmDate)))-1)) & " " & year(dtmDate) & "</font></td>") & vbCrLf
                Response.Write("</tr>") & vbCrLf
               
'// Her begynder ugens dage