Kalender m. variabler?
Hej Jeg har hentet en udemærket kalender fra activedeveloper.dk som jeg så har modificeret efter mit eget behov..Dog sidder jeg med en nød jeg ikke kan knække.
Jeg har lavet det sådan at alle datoer bliver omsat til et link. til min side "visdag.asp" dog VILLE jeg gerne have en værdi på hver af datoerne således at linket blev i stil med
visdato.asp?værdi=(den valgte dato),
hvorefter denne værdi så skulle opfanges på siden "visdag.asp" - Kan jeg det? Hvordan? - jeg kender kun lidt til ASP.
Min kode er:
<html>
<head>
<title>Vores Kalender</title>
</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"
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='visdag.asp' value='vaerdi' style='text-decoration:none; color:red'><strong>" & Day(dtmCurDate) & "</strong></a>"
Else
vaerdi= vaerdi + 1
Response.Write "<a href='visdag.asp? value='vaerdi' 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>
</body></html>
