nu kan man redigere aftaler + UGE nummmer er vist...
<head>
<title>MDK's Kalender</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body,td,th {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
}
-->
</style></head>
<%
set fs = Server.CreateObject("Scripting.FileSystemObject")
If Request.Form("Submit") <> "" Then
Filename = Replace(Request.Form("add"),"/","-") & ".kal"
set f=fs.CreateTextFile(Server.Mappath(Filename),true)
f.write(Request.Form("TextArea"))
f.close
set f=nothing
set fs=nothing
End if
%>
<html>
<body>
<%
Today = Date
DayPlus = -( weekday(date) mod 7 ) + 2
%>
<table border="0" cellspacing="0" cellpadding="3">
<% For Height = 0 to 5 %>
<tr>
<td colspan="7" align="center" bgcolor="#666666" style="color:#00FF00; "> UGE <%= DatePart( "ww", Date+DayPlus+Request.Querystring("plus")) %> </td>
<tr>
<% For Width = 0 to 6 %>
<td>
<table border="1" cellspacing="0" cellpadding="0" style="height:100px; ">
<tr>
<td width="150" style="font-size:9px; height:30px;" <%
If Date + DayPlus + Request.Querystring("plus") = Today Then
Response.Write "bgcolor=""#FFFFFF"""
Else
if weekday(date + DayPlus + Request.Querystring("plus") ) = 1 then
Response.Write "bgcolor=""#FF5555"""
else
Response.write "bgcolor=""#CCCCCC"""
end if
End if
%>><%
If Date + DayPlus + Request.Querystring("plus") = Today Then
Response.Write ( Date + dayPlus + Request.Querystring("plus") ) & " " & Weekdayname(weekday(date + dayPlus + Request.Querystring("plus")))
Else
Response.write ( Date + dayPlus + Request.Querystring("plus") ) & " " & Weekdayname(weekday(date + dayPlus + Request.Querystring("plus")))
End if
%>
</td>
</tr>
<tr>
<td width="150" bgcolor="<%
ThatDay = Date + dayPlus + Request.Querystring("plus")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Server.Mappath(Replace(ThatDay,"/","-") & ".Kal")) Then
Response.Write "#AAAAFF"
end if
%>"><%
If fs.FileExists(Server.Mappath(Replace(ThatDay,"/","-") & ".Kal")) Then
Set f=fs.OpenTextFile(Server.Mappath(Replace(ThatDay,"/","-") & ".Kal"), 1)
Response.Write(f.ReadAll)
f.Close
Response.Write "<div style='position:bottom;' align=right><a href=""?edit=" & ThatDay & """>Edit</a></div>"
Else
Response.Write "<div style='position:bottom;' align=right><a href=""?add=" & ThatDay & """>add</a></div>"
End If
set fs=nothing
%>
</td>
</tr>
</table>
</td>
<% dayPlus = dayPlus + 1
Next %>
</tr>
<% Next %>
</table>
<% If Request.Querystring("add") <> "" or Request.Querystring("edit") <> "" then %>
<Form method="post" action="index.asp">
<TextArea name="TextArea" cols="30" rows="10"><%
if Request.Querystring("edit") <> "" then
set fs = Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(Server.Mappath(Replace(Request.Querystring("edit"),"/","-") & ".Kal"), 1)
Response.Write(f.ReadAll)
f.Close
end if
%></TextArea>
<input type="hidden" name="add" value="<%=Request.Querystring("add")%><%=Request.Querystring("edit")%>">
<input type="Submit" name="Submit" Value="Submit">
</Form>
<% end if %>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
