Dette her skulle kunne gøre det:
<html>
<head>
<link rel="stylesheet" href="XXXX.css" type"text/css">
<title>Kalender.asp</title>
</head>
<body bgcolor="#C8C8C8" topmargin="0" leftmargin="0">
<div align="center">
<br>
<p class="headline">:: Kalender ::</p>
<br>
<%
dtmDate = Request.QueryString("date")
dtmToday = Date
If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End If
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday) %>
<table cellspacing="0" cellpadding="2" border="0" valign="top" width="200">
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#FFFFFF"><font color="#333333"><b><% =strMonth%> <%=intYear%></b></font></td>
</tr>
<tr>
<td align="center"><b>Man</b></td>
<td align="center"><b>Tir</b></td>
<td align="center"><b>Ons</b></td>
<td align="center"><b>Tor</b></td>
<td align="center"><b>Fre</b></td>
<td align="center"><b>Lør</b></td>
<td align="center"><b>Søn</b></td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXXXXX.mdb"))
strSQL = "SELECT count(dato) as isthere FROM aftaler WHERE dato = #"& dtmCurDate &"# AND oprettetaf = '"& Session("initialer") &"'"
set rs = Conn.Execute(strSQL)
If dtmCurDate = dtmToday Then
Response.Write "<strong><font color='#ff0000'>"
End If
If rs.EOF Then
Response.Write Day(dtmCurDate)
Response.Write "</strong></td>"
blnLast = False
Else
If rs("isthere") > 0 Then %>
<b><a href="aftale.asp?dato=<% =dtmCurDate %>','','width=300,height=300,status=0,scrollbars=1')">
<% Response.Write Day(dtmCurDate)
Response.Write "</strong></td>"
blnLast = False
Else
Response.Write Day(dtmCurDate)
Response.Write "</strong></td>"
blnLast = False
End If
End If
Else
Response.Write "-</td>"
blnLast = True
End If
Else
Response.Write "-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"%>
<tr>
<td colspan="3"><b><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><< Forrige</a></b></td>
<td> </td>
<td colspan="3" align="right"><b><a href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste >></a></b></td>
</tr>
</table>
</div>
</body>
</html>
**************************************************'
Aftale.asp ser ud som følger:
<html>
<head>
<link rel="stylesheet" href="XXX.css" type"text/css">
<title>aftaler.asp</title>
</head>
<body bgcolor="#C8C8C8" topmargin="0" leftmargin="0">
<div align="center">
<%
dato = Request.QueryString("dato")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXXX.mdb"))
strSQL = "SELECT dato, kl, aftale FROM aftaler WHERE dato = #"&dato&"# AND oprettetaf = '"& session("initialer") &"' ORDER BY kl"
Set rs = Conn.Execute(strSQL) %>
<br>
<p class="headline">Aftaler d. <% =rs("dato") %></p>
<br>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<% While Not rs.EOF %>
<td align="center" valign="top" width="75"><% =rs("kl") %></td>
<td align="left" width="225"><% =rs("aftale") %></td>
</tr>
<tr>
<td height="20" colspan="2"></td>
</tr>
<% rs.MoveNext
Wend %>
</table>
</div>
</body>
</html>
*************************
Det hele skal lige rettes lidt til efter dine specielle behov men koden som sådan virker jeg bruger den selv
Ny bruger
Nybegynder
Opret
Preview
