Der kommer også lige lidt kode :)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
<%
strDBPath = Server.MapPath("db1.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
maaned = month(date)
aar = year(date)
if len(maaned) = 1 then
maaned = "0" & maaned
end if
dagbogrec = "select * from dag where Dato like '%-" & maaned & "-%' order by Dato;"
set rs = objConn.execute(dagbogrec)
%>
</head>
<body bgcolor="#3366CC" leftmargin="100" topmargin="100">
<%
function getDaysInMonth(strMonth,strYear)
dim strDays
Select Case cint(strMonth)
Case 1,3,5,7,8,10,12:
strDays = 31
Case 4,6,9,11:
strDays = 30
Case 2:
if ((cint(strYear) mod 4 = 0 and _
cint(strYear) mod 100 <> 0) _
or ( cint(strYear) mod 400 = 0) ) then
strDays = 29
else
strDays = 28
end if
End Select
getDaysInMonth = strDays
end function
dage = getDaysInMonth(month(date), year(date))
response.Write("<table border='1' width='400' bgcolor='FFFFFF' bordercolor='999999' cellspacing='0' cellpadding='0'><tr><td><div align='center' class='S-OverskriftStor'></div></td></tr></table><br>")
response.write("<table border='1' width='400' bgcolor='FFFFFF' bordercolor='999999' cellspacing='0' cellpadding='0'><tr><td><div align='center' class='S-Tekst'>" & monthname(month(date)) & "</div></td></tr></table><br>")
response.write("<table border='1' width='400' bgcolor='FFFFFF' bordercolor='999999' cellspacing='0' cellspacing='0'><tr class='S-Tekst'><td>Mandag</td><td>Tirsdag</td><td>Onsdag</td><td>Torsdag</td><td>Fredag</td><td>Lørdag</td><td>søndag</td></tr>")
d = 1
datoen = "1" & "-" & month(now) & "-" & year(now)
ugedag = weekday(datoen)
for raekke = 1 to 5
response.write("<tr>")
if raekke = 1 then
for celle = 1 to ugedag-2
response.write("<td> </td>")
next
for celle = ugedag-1 to 7
if not rs.eof & rs("Dato") = d & "-" & maaned & "-" & aar then
response.write("<td bgcolor='#FF6600' class='S-Tekst'>noget<a href='dagbog_dag.asp?dag=" & d & "'>" & d & "</a></td>")
else
response.write("<td class='S-Tekst'><a href='dagbog_dag.asp?dag=" & d & "'>" & d & "</a></td>")
end if
if not rs.eof then
rs.movenext
end if
d = d + 1
next
else
for celle = 1 to 7
if not rs.eof & rs("Dato") = d & "-" & maaned & "-" & aar then
response.write("<td bgcolor='#FF6600' class='S-Tekst'>noget<a href='dagbog_dag.asp?dag=" & d & "'>" & d & "</a></td>")
else if dage <= dage then
response.write("<td class='S-Tekst'><a href='dagbog_dag.asp?dag=" & d & "'>" & d & "</a></td>")
else
response.Write("<td> <td>")
end if
if not rs.eof then
rs.movenext
end if
d = d + 1
next
end if
response.write("</tr>")
next
response.write("</table>")
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
