kalender.asp skal se sådan ud:
<% Session.LCID = 1030 %>
<html>
<head>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
dtmDate = Request.QueryString("date")
dtmToday = Date
vaerdi=0
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" align = "center""
style="border: 1px solid rgb(0,0,0)" align="left">
<tr bgcolor="#006699">
<td colspan="7" align="center" valign="middle"><font face="Verdana"
size="2" color="#ffffff"><strong><%=strMonth%> <%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center"><b><font face="verdana" size="2">Man</font></b></td>
<td align="center"><b><font face="verdana" size="2">Tir</font></b></td>
<td align="center"><b><font face="verdana" size="2">Ons</font></b></td>
<td align="center"><b><font face="verdana" size="2">Tor</font></b></td>
<td align="center"><b><font face="verdana" size="2">Fre</font></b></td>
<td align="center"><b><font face="verdana" size="2">Lør</font></b></td>
<td align="center"><b><font face="verdana" size="2">Søn</font></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><font face=verdana size=2>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
vaerdi= vaerdi + 1
Response.Write "<a href=dato.asp?value="& dtmCurDate & " style='text-decoration:none; color:red'><strong>" & Day(dtmCurDate) & "</strong></a>"
else
vaerdi= vaerdi + 1
Response.Write "<a href=dato.asp?value="& dtmCurDate & " style='text-decoration:none; color:black'>" & Day(dtmCurDate) & "</a>"
Response.Write "</td>"
blnLast = False
End If
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</font></td></tr>"
'----------------------------------------
%>
<tr>
<td bgcolor="#006699" colspan="3"><font face="verdana" size="2"><b><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></font></td>
<td bgcolor="#006699"> </td>
<td bgcolor="#006699" colspan="3" align="right"><font face="verdana" size="2"><b><a href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b></font></td>
</tr>
</table>
</center>
</body></html>
og i dato.asp:
sætter du:
strDato = Request.querystring("value")
og så kan du jo f.eks lave en response.write(strDato) så vil den skrive datoen
du kan jo så selv lave en connection til databasen og hente ud hvis der er nogle arrangementer... ellers må du lige skrive
Ny bruger
Nybegynder
Opret
Preview
