flette ugenr. ind i følgende script
Hej... jeg ville gerne have flettet en ugedag ind i følgende script:dtmDate = Request.QueryString("date")
dtmToday = Date
If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
<table class="kalender">
<tr class="kalender">
<td align="center" class="kalender"> </td>
<td colspan="2" align="center">
<a href="?side=minkalender&minkal=30dage&date=<%=DateAdd("m",-1,dtmFirstDate)%>">
<img src="sider/kalender-prev.gif" class="billede" /></a>
</td>
<td colspan="3" align="center" valign="middle"><%=strMonth%> <%=intYear%></td>
<td colspan="2" align="center">
<a href="?side=minkalender&minkal=30dage&date=<%=DateAdd("m",1,dtmFirstDate)%>">
<img src="sider/kalender-next.gif" class="billede" /></a>
</td>
</tr>
<tr class="kalender">
<td align="center" class="kalender">uge</td>
<td align="center" class="kalender">Mandag</td>
<td align="center" class="kalender">Tirsdag</td>
<td align="center" class="kalender">Onsdag</td>
<td align="center" class="kalender">Torsdag</td>
<td align="center" class="kalender">Fredag</td>
<td align="center" class="kalender">Lørdag</td>
<td align="center" class="kalender">Søndag</td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>" For x = 1 to 7
Response.Write "<td align='left' valign='top' class='kaldag'>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write "<span class='today'>"
else
Response.Write "<span>"
End If
Response.Write Day(dtmCurDate)
Response.write "</span><br />"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kalender where bid = '"& session("netid") &"' and ((fradato <= #"& ConvertToSqlDate2(dtmCurDate) &"# and #"& ConvertToSqlDate2(dtmCurDate) &"# <= tildato) or fradato = #"& ConvertToSqlDate2(dtmCurDate) &"#)"
rs.Open strSQL, strDSN, 1
if not rs.EOF then
response.write "<a href='?side=minkalender&minkal=dag&date="&dtmCurDate&"' class='small'> se mere</a>"
end if
Response.Write "</td>"
blnLast = False
rs.Close
Set rs = Nothing
Else
Response.Write "-</td>"
blnLast = True
End If
Else
Response.Write "-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</tr>"
%>
</table>
Havde tænkt jeg at følgende sætning kunne sættes ind, men ved bare ikke hvor...
response.write "<td align='center' valign='middle' class='kaldag'>" & DatePart("ww",dtmFirstDate) &"</td>"
Er der nogen der kan hjælpe?
