Frågan#1
Kan man hämta veckonumret från servern
eller måste man hämta dom via datumet
typ:
20030101 to 20030107 =2
20030101 to ...... =3
osv
kan man lösa det på ett lättare sätt en att göra detta 52 ggr
Tack på förhand
veckonummer från servern
3 svar · 248 visningar · startad av Bjarne A
Nu fattade jag :-)
Tack!!
mera problem
Har massa tabeller som hämtar text från en databas och försöker att framhäva
veckans tabell med en egen färg och sedan även dagens cell med en tredje färg
med funktionen nedan
Det slutar ju med att veckan blir markerad med egen färg och men typ alla
fredagsceller i alla tabeller blir markerade
Kan man inte skriva ihop dessa funktioner till en och bara färga cellerna
Koden nedan funkar ju inte men typ detta upplägget
felmeddelande:
Kompileringsfel i Microsoft VBScript fel '800a0401'
Slut på programsats förväntas.
/kalendarium/2.asp, rad 19
color="#9999FF" ELSEIF WeekDayName(WeekDay(Date)) and not DatePart("ww", Date, 2, 2)
<%
Function color(dagen)
IF dagen = WeekDayName(WeekDay(Date)) and DatePart("ww", Date, 2, 2) then
color="#9999FF" ELSEIF WeekDayName(WeekDay(Date)) and not DatePart("ww", Date, 2, 2)
color="#CCCCFF" ELSE
color="#FFFFCC"
End Function
%>
<% =color("fredag22") %>
gamla koden:
<%
function color(dagen)
If dagen = WeekDayName(WeekDay(Date)) then color="#9999FF" else color=""
End Function
%>
<%
function color2(veckansnummer)
If veckansnummer = DatePart("ww", Date, 2, 2) then color2="#CCCCFF" else color2="#FFFFCC"
End Function
%>
<%
SQL = "SELECT * FROM texter WHERE vecka = 22 "
set rs = connect.execute(SQL)
%>
<table border="1" cellspacing="0" cellpadding="3" bgcolor="<% =color2(22) %>" bordercolordark="#FFFFFF" bordercolorlight="#FF9900">
<tr>
<td width="50"><b>V2</b></td>
<td width="100" bgcolor="<% =color("måndag") %>">Måndag</td>
<td width="100" bgcolor="<% =color("tisdag") %>">Tisdag</td>
<td width="100" bgcolor="<% =color("onsdag") %>">Onsdag</td>
<td width="100" bgcolor="<% =color("torsdag") %>">Torsdag</td>
<td width="100" bgcolor="<% =color("fredag") %>">Fredag</td>
<td width="100" >Övrigt</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="50">_</td>
<td width="100" bgcolor="<% =color("måndag") %>"><%= RS("mandag")%></td>
<td width="100" bgcolor="<% =color("tisdag") %>"><%= RS("tisdag")%></td>
<td width="100" bgcolor="<% =color("onsdag") %>"><%= RS("onsdag")%></td>
<td width="100" bgcolor="<% =color("torsdag") %>"><%= RS("torsdag")%></td>
<td width="100" bgcolor="<% =color("fredag") %>"><%= RS("fredag")%></td>
<td width="100" ><%= RS("ovrigt")%></td>
</tr>
</table>
<%
rs.close
set rs = nothing
%>