Frågan#1
nu postar jag hela koden direkt...
<table border="1" width="24%">
<tr>
<td width="100%" colspan="7"> </td>
</tr>
<tr>
<%
if request("month") <> "" then
manad = request("month")
else
manad = month(date)
if len(manad) = 1 then
manad = "0"& manad
end if
end if
if request("ar") <> "" then
ar = request("ar")
else
ar = year(date)
end if
Datum = ar & "-" & manad & "-01"
intDatum = Datum
intManad = Month(intDatum)
function checkDay(strDag)
dag = strDag
Select Case Dag
Case 1: Dag = 7'"Söndagen" & " den " & Day(intDatum) & "/" & Month(intDatum)
Case 2: Dag = 1'"Måndagen" & " den " & Day(intDatum) & "/" & Month(intDatum)
Case 3: Dag = 2'"Tisdagen" & " den " & Day(intDatum) & "/" & Month(intDatum)
Case 4: Dag = 3'"Onsdagen" & " den " & Day(intDatum) & "/" & Month(intDatum)
Case 5: Dag = 4'"Torsdagen"& " den " & Day(intDatum) & "/" & Month(intDatum)
Case 6: Dag = 5'"Fredagen" & " den " & Day(intDatum) & "/" & Month(intDatum)
Case 7: Dag = 6'"Lördagen" & " den " & Day(intDatum) & "/" & Month(intDatum)
End Select
strdag = cstr(trim(Dag))
checkDay = strDag
End function
Do until intManad = Month(dateadd("m",1,Datum))
If Day(str) = Day(date) Then
farg1 = "<font color=""red"">"
farg2 = "</font>"
Else
farg1 = ""
farg2 = ""
End If
if cdate(intDatum) = cdate(Datum) then
select case weekday(intDatum)
case 2
strt = 1
%>
<td width="14,3%">1</td>
<%
Case 3
start = 2
%>
<td width="14,3%"> </td>
<td width="14,3%">1</td>
<%
Case 4
start = 3
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%">1</td>
<%
Case 5
start = 4
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%">1</td>
<%
Case 6
start = 5
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%">1</td>
<%
Case 7
start = 6
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%">1</td>
<%
Case 1
start = 1
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%">1</td></tr>
<%
end select
else
select case cint(start)
%>
case 1
strt = 2
%>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
<%
Case 2 ' <---------------------här är det fel...
start = 3
%>
<td width="14,3%"> </td>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
<%
Case 3
start = 4
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
<%
Case 4
start = 5
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
<%
Case 5
start = 6
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
<%
Case 6
start = 7
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td>
<%
Case 7
start = 1
%>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"> </td>
<td width="14,3%"><% Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>" %></td></tr>
<%
end select
end if
'Response.Write farg1 & checkday(WeekDay(intDatum)) & farg2 & "<br>"
intDatum = DateAdd("d", 1, intDatum)
intManad = Month(intDatum)
if response.isclientconnected then
response.flush
else
response.end
end if
Loop
%>
</table>
nån som har nån idé?
/ Mikul
