Hjælp til at difinere datonavn i script
Hej Eksperter...Jeg har dette script, og ville gerne have at når der kom en lørdag eller søndag så blev den en anden farve... Ligesom nu når den er på den aktuelle dato så bliver den en anden farve...
og kan dette script evt. forkortes...? det skal bare kunne skrive datoerne ud i en lang køre...
<table cellspacing="0" cellpadding="0" border="0" height="106" align="center">
<tr>
<td><img src="<%=site_url%>/img/pix.gif" border="0" height="1" width="4"><br></td>
<%
For y = 1 to 6
NrRowPs=NrRowPs+1
For x = 1 to 7
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 "<td height=100% valign=bottom>"
Response.Write "<table cellspacing=0 cellpadding=0 border=0>"
Response.Write "<tr>"
Response.Write "<td height=6><img src="&site_url&"/img/sta_top.gif border=0><br></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height=50 align=center valign=bottom class=felt_stat>" & Day(dtmCurDate) & "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "<td><img src="&site_url&"/img/pix.gif border=0 height=1 width=4><br></td>"
Else
Response.Write "<td height=100% valign=bottom>"
Response.Write "<table cellspacing=0 cellpadding=0 border=0>"
Response.Write "<tr>"
Response.Write "<td height=6><img src="&site_url&"/img/sta_top.gif border=0><br></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height=50 align=center valign=bottom class=felt_stat>" & Day(dtmCurDate) & "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<td><img src="&site_url&"/img/pix.gif border=0 height=1 width=4><br></td>"
End If
Else
blnLast = True
End If
Else
blnLast = True
End if
Next
Next
%>
</tr>
</table>
