Så skulle den være der :
***********************************************************************************************
<%@ LANGUAGE=\"VBSCRIPT\" %>
<%
Session.LCID = 1030
set DB = Server.CreateObject(\"ADODB.Connection\")
DB.open \"Driver={Microsoft Access Driver (*.mdb)};\"&_
\"DBQ=\"&server.mappath(\"kal.mdb\")&\";\"&_
\"DefaultDir=\"&server.mappath(\"./\")&\";FIL=MS Access;\"
Function GetLastDay(intMonthNum, intYearNum)
dim dNextStart
if CInt(intMonthNum)=12 then
dNextStart= CDate(\"1/1/\" & intYearNum+1)
else
if month(\"1/2/2000\")=1 then
dNextStart= CDate(intMonthNum+1&\"/1/\"&intYearNum)
else
dNextStart= CDate(\"1/\"&intMonthNum+1&\"/\"&intYearNum)
end if
end if
GetLastDay= Day(dNextStart-1)
end function
Function GetWeekday(iMonth, iYear, iDay)
GetWeekday = WeekDay((iDay & \"/\" & iMonth & \"/\" & iYear))
End Function
if Request.QueryString(\"dato\")=\"\" then
dato = Date()
else
dato = Request.QueryString(\"dato\")
end if
aar=DatePart(\"yyyy\", dato)
maaned=DatePart(\"m\", dato)
%>
<HTML>
<!--------------- Created By EasyASP --------------->
<!----------- Copyright 2000 Eric Banker ----------->
<HEAD>
<title>Untitled Document</title>
<script>
function showMe(a,b)
{
test.innerHTML = \"<font size=\'4\'><u>\" + a + \"</u></font><br><font size=\'3\'>\" + b + \"</font>\"
}
</script>
</HEAD>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#804040\" vlink=\"#008080\" alink=\"#004080\">
<!---------------- Insert Text Here ---------------->
<font size=\"5\"><%=aar%></font><br><%=MonthName(maaned)%><br>
<br>
<A HREF = \"test.asp?dato=<%=dateadd(\"m\", -1, dato)%>\">tilbage</A>
<A HREF = \"test.asp?dato=<%=dateadd(\"m\", 1, dato)%>\">frem</A>
<br><br><A HREF = \"kal_indlaeg.asp\">INDTAST</A><br>
<table border=\"0\" width=100%>
<tr>
<td width=\"50%\">
<Table align=\"Left\" border=\"2\" cellspacing=\"0\" cellpadding=\"2\">
<%
i=GetLastDay(maaned, aar)
for q = 1 to i
%>
<TR><TD width=\"2%\" <%
if GetWeekday(maaned, aar, q)=1 or GetWeekday(maaned, aar, q)=7 then
%>
bgcolor=\"#008000\">
<%else%>
bgcolor=\"#C0C0C0\">
<%end if%>
<font size=\"2\"><%=WeekDayName(GetWeekday(maaned, aar, q),true)%>
</font></TD>
<TD width=\"38%\" <% if GetWeekday(maaned, aar, q)=1 or GetWeekday(maaned, aar, q)=7 then
%>
bgcolor=\"#008000\">
<%else%>
bgcolor=\"#C0C0C0\">
<%end if%><font size=\"3\"><%=q&\". \"&MonthName(maaned)%></font>
</TD>
<TD width=\"70%\"
<%
if maaned=DatePart(\"m\",Now()) AND aar=DatePart(\"yyyy\", Now()) AND q=DatePart(\"d\", Now()) then
%> bgcolor=\"gray\"
<%else%>
bgcolor=\"silver\"
<%
end if
%>
>
<%
dagsdato = DateValue(\"\"&q&\"-\"&maaned&\"-\"&aar&\"\")
SQL = \"SELECT * FROM kalender\"
\'Where Start_dato=\"&dagsdato
Set RS = DB.Execute(SQL)
do while not RS.eof
if RS(\"Start_dato\") = dagsdato then
\'if RS(\"Start_dato\")= RS(\"Slut_dato\") then
\'response.write(\"<b><a href=\"\"test.asp?Dato=\"&dagsdato&\"&tekstnr=\"&RS(\"Id\")&\"\"\">\"&RS(\"Overskrift\")&\"</a>.</b> \")
response.write(\"<b><a href=\'#\' onClick=\" & chr(34) & \"showMe(\'\" & RS1(\"Overskrift\") & \"\', \'\" & RS1(\"Tekst\") & \"\')\" & chr(34) & \">\" & RS(\"Overskrift\") & \"</a>.</b> \")
\'else
\'response.write(\"<b><a href=\"\"#\"\">\"&RS(\"Overskrift\")&\".</a></b> <font size=1 color=green>(start)</font> \")
\'end if
end if
\'if RS(\"Slut_dato\") = dagsdato then
\' if RS(\"Start_dato\") <> RS(\"Slut_dato\") then
\' response.write(\"<font size=0>\"&RS(\"Overskrift\")&\". </font><font size=1 color=red>(slut)</font> \")
\' end if
\'end if
RS.movenext
Loop
RS.close
set RS = nothing
%>
</TD>
</TR>
<%
next
%>
</Table>
</td>
<td width=\"10%\">
</td>
<td valign=\"top\" align=\"left\" width=\"40%\">
<table align=\"Left\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\">
<tr>
<td valign=\"top\" align=\"left\">
<div id=\"test\"></div>
<%
if Request.QueryString(\"Tekstnr\")<>\"\" then
SQL1 = \"SELECT * FROM kalender where Id=\"&Request.QueryString(\"Tekstnr\")
Set RS1 = DB.Execute(SQL1)
response.write(\"<font size=\"\"5\"\"><u>\"&RS1(\"Overskrift\")&\"</u>\")
response.write(\"<br><blockquote><font size=\"\"3\"\">\"&RS1(\"Tekst\")&\"</blockqoute>\")
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
***********************************************************************************************
Kasseper
P.S: Jeg har selvsagt ikke kunne teste den da den kører mod din base, så meld lige tilbage hvis der er probs...
