Hejsan!
Jag har med lite tidigare trådar knåpat ihop en del av mitt bokningssystem (lång historia ;))
<%
Option Explicit
Dim sDatum, sForstaDag, sForstaDagNasta, sAntalDagar, sDagen, I, sKalender, sBg, sKalDatum, fixDatum, sCountTd
sDatum = Request.QueryString("date")
sKalDatum = Left(sDatum,7) & "-"
sForstaDag = Year(sDatum) & "-" & Month(sDatum) & "-01"
sForstaDagNasta = Year(sDatum) & "-" & Month(DateAdd("m", 1, sDatum)) & "-01"
sAntalDagar = DateDiff("d", sForstaDag, sForstaDagNasta)
sCountTd = 0
For I = 1 To sAntalDagar
sDagen = WeekDay(Year(sDatum) & "-" & Month(sDatum) & "-" & i, 2)
sBg = "aaaaaa"
Select Case sDagen
Case 6
sBg = "787878"
Case 7
sBg = "676767"
End Select
If Len(I) < 2 Then
fixDatum = 0 & I
Else
fixDatum = I
End If
If CDate(sKalDatum & fixDatum) = Date Then
sBg = "A90034"
End If
sKalender = sKalender & "<td bgcolor=""#" & sBg & """ width=""18"" align=""center""><a href=""default.asp?date=" & sKalDatum & fixDatum & """ class=""td"">" & I & "</a></td>" & VbCrLf & VbTab & VbTab & VbTab & VbTab & VbTab
sCountTd = sCountTd + 1
Next
%>
<html>
<head>
<title>content</title>
<style>
<!--
a.td, td {Font-family: Verdana; Font-size: 9px; Color: White; Text-Decoration: None;}
-->
</style>
</head>
<body bgcolor="#ffffff">
<table width="775" border="0" cellspacing="0" cellpadding="0" background="/img/td_bg.gif">
<tr>
<td>
<table width="775" border="0" cellspacing="1" cellpadding="2">
<tr background="/img/td_bg.gif">
<td bgcolor="#a90034" width="100" align="center"><% Response.Write "<b>" & UCase(MonthName(Month(sDatum))) & "</b>, " & Year(sDatum) %></td>
<% = sKalender %>
</tr>
<tr>
<td background="/img/bg_menu.gif" colspan="<% = sCountTd - 1 %>"></td>
<td bgcolor="#a90034" width="18" align="center"><a href="/order/default.asp?date=<% = DateAdd("m", -1, sDatum) %>" class="td"><</a></td>
<td bgcolor="#a90034" width="18" align="center"><a href="/order/default.asp?date=<% = DateAdd("m", 1, sDatum) %>" class="td">></a></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
(Exempel, här)
Varför funkar inte December?
MVH
------------------
Valentino Rossi | 2001 World GP500 Champion