nu har jeg fixet den...
jeg class'e indeler lige hvert element, sådan at du kan style det hele med CSS...
------------
<%
Session.LCID = 1030
%>
<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>
<%
on error resume next
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;font-size:12pt; "><b>UGE <%= DatePart( "ww", Date+DayPlus+Request.Querystring("plus")) & " - " & datepart("yyyy",Date + DayPlus + Request.Querystring("plus")) %></b></td>
<tr>
<% For Width = 0 to 6 %>
<td valign=top>
<table border="1" cellspacing="0" cellpadding="0" style="height:70px; ">
<tr height="20px">
<td width="150" style="font-size:12px;font-weight:bold;" align="center" <%
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 Weekdayname(weekday(date + dayPlus + Request.Querystring("plus")))
Else
Response.write Weekdayname(weekday(date + dayPlus + Request.Querystring("plus")))
End if
%>
</td>
</tr>
<tr height="20px" style="font-size:9pt; ">
<td ><%= datepart("d",Date + DayPlus + Request.Querystring("plus")) & " " & MonthName(DatePart( "m", Date+DayPlus+Request.Querystring("plus"))) %></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 %>
<fieldset style="width:300px;height:250px;position:absolute;left:30%;top:30%;background-color:#AAFFFF;">
<legend><b><%=Request.Querystring("add")%><%=Request.Querystring("edit")%></b></legend>
<div align="center">
<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">
<input type="submit" name="cancel" value="Cancel">
</Form>
</div>
</fieldset>
<% end if %>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
