opdatering af kalender
Jeg har en kalender der fint virker.Når webside besøges kommer den frem med den måned vi er i og udskriver alle personer med fødselsdag i denne måned fra min access db. Det er OK
Når jeg så vælger en anden måned fra min drop down menu i formen og trykker ok. Så sker der følgende:
1. Den nye måned vises, helt korekt.
2. Der opdateres bare ikke fra Databasen med de personer der har fædselsdag i den nye måned.
Hummm er der mon en der ude der kan tyde det ud af min kode hvad jeg gør forkert?
-----kalender.asp--------
<%@ Language = \"VBScript\"%>
<%
Session.LCID = 1030
\'tester om der er en ?string med over for aar
if Request.Querystring(\"aar\") <> \"\" then
strAar = Request.Querystring(\"aar\")
else
strAar = year(Date)
end if
\'tester om der er en ?string med over for maaned
if Request.Querystring(\"maaned\") <> \"\" then
strMaaned = Request.Querystring(\"maaned\")
else
strMaaned = month(Date)
end if
strAlloptions = \"01\" & \"-\" & strMaaned & \"-\" & strAar
strWeekday = Weekday(strAlloptions)
strDay = WeekdayName(strWeekday)
\'tester om der er et skud år
if (strAar/4) = round(strAar/4) then
varFeb = \"29\"
else
varFeb = \"28\"
end if
strMonth = \"0,31,\"+varFeb+\",31,30,31,30,31,31,30,31,30,31\"
strDayname = \"Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag,Mandag\"
arrMonth = Split(strMonth,\",\")
arrDayname = Split(strDayname,\",\")
if strDay = \"mandag\" then
varDaycount = \"1\"
elseif strDay = \"tirsdag\" then
varDaycount = \"2\"
elseif strDay = \"onsdag\" then
varDaycount = \"3\"
elseif strDay = \"torsdag\" then
varDaycount = \"4\"
elseif strDay = \"fredag\" then
varDaycount = \"5\"
elseif strDay = \"lørdag\" then
varDaycount = \"6\"
elseif strDay = \"søndag\" then
varDaycount = \"7\"
end if
%>
<HTML>
<HEAD>
<TITLE>Kalender</TITLE>
<link rel=\"stylesheet\" type=\"text/css\" href=\"../css/style.css\">
<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">
</HEAD>
<BODY class=\"main\" bgcolor=\"#FFFFFF\">
<TABLE cellpadding=2 cellspacing=2 border=\"1\" bordercolor=\"#000000\" width=\"50%\">
<tr>
<td bgcolor=\"#CCCCCC\" bordercolor=\"#CCCCCC\">
<TABLE cellpadding=\"2\" cellspacing=\"2\" border=\"1\" bordercolor=\"#000000\" align=\"center\" bgcolor=\"#FFFFFF\">
<TR bgcolor=\"#999999\" bordercolor=\"#000000\">
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Mandag</font></TD>
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Tirsdag</font></TD>
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Onsdag</font></TD>
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Torsdag</font></TD>
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Fredag</font></TD>
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Lørdag</font></TD>
<TD width=60 align=center><font face=\"verdana\" size=\"1\" color=\"#FFFFFF\">Søndag</font></TD>
</TR>
</TABLE>
<TABLE cellspacing=\"2\" cellpadding=\"2\" border=\"1\" bordercolor=\"#000000\" align=\"center\" >
<TR align=\"center\">
<%
i = \"1\"
for i=1 to (varDaycount-1)
%>
<TD width=50 height=30 bordercolor=\"#CCCCCC\" bgcolor=\"#CCCCCC\"> </TD>
<%
Next
c = \"1\"
varColor = \"1\"
For c=1 to arrMonth(strMaaned)
%>
<%
\'---> Rowcolor change
if varColor = \"1\" then
strColor = \"#FFFFFF\"
varColor = \"2\"
elseif varColor = \"2\" then
strColor = \"#eeeeee\"
varcolor = \"1\"
end if
If varDaycount =< 6 then
varDaycount = varDaycount + 1
%>
<TD valign=top align=\"left\" width=60 height=40 BGCOLOR=\"<% Response.Write strColor%>\" bordercolor=\"#000000\">
<FONT SIZE=1>
<%
Response.Write \"<A Href=\'\" & strMaaned & \"mm\" & c &\"dd.asp\'>\" & c & \"</a>\"
%>
</FONT></TD>
<%
elseif varDaycount = 7 then
varDaycount = 1
%>
<TD valign=top align=\"left\" width=60 height=40 BGCOLOR=<% Response.Write strColor %> bordercolor=\"#000000\">
<FONT SIZE=1>
<%
Response.Write \"<A Href=\'\" & c & \".asp\'>\" & c & \" </a>\"
%>
</FONT></TD>
</TR>
<TR>
<%
end if
next
%>
</table>
</TD>
</TR>
</table>
<Form action=kalender.asp>
<table cellpadding=\"2\" cellspacing=\"2\" border=\"1\" bordercolor=\"#000000\" bgcolor=\"#FFFFFF\" width=\"50%\" >
<tr > <span class=\"test\">
<td align=\"center\" valign=\"top\" colspan=\"2\">
<FONT FACE=verdana size=\"2\">Måned : </FONT>
<SELECT name=maaned>
<%
if strMaaned = \"01\" then
strJanuar = \" Selected\"
elseif strMaaned = \"02\" then
strFebruar = \" Selected\"
elseif strMaaned = \"03\" then
strMarts = \" Selected\"
elseif strMaaned = \"04\" then
strApril = \" Selected\"
elseif strMaaned = \"05\" then
strMaj = \" Selected\"
elseif strMaaned = \"06\" then
strJuni = \" Selected\"
elseif strMaaned = \"07\" then
strJuli = \" Selected\"
elseif strMaaned = \"08\" then
strAugust = \" Selected\"
elseif strMaaned = \"09\" then
strSeptember = \" Selected\"
elseif strMaaned = \"10\" then
strOktober = \" Selected\"
elseif strMaaned = \"11\" then
strNovember = \" Selected\"
elseif strMaaned = \"12\" then
strDecember = \" Selected\"
end if
%>
<OPTION value=01<% Response.Write strJanuar %>>Januar</Option>
<OPTION value=02<% Response.Write strFebruar %>>Februar</Option>
<OPTION value=03<% Response.Write strMarts %>>Marts</Option>
<OPTION value=04<% Response.Write strApril %>>April</Option>
<OPTION value=05<% Response.Write strMaj %>>Maj</Option>
<OPTION value=06<% Response.Write strJuni %>>Juni</Option>
<OPTION value=07<% Response.Write strJuly %>>Juli</Option>
<OPTION value=08<% Response.Write strAugust %>>August</Option>
<OPTION value=09<% Response.Write strSeptember %>>September</Option>
<OPTION value=10<% Response.Write strOktober %>>Oktober</Option>
<OPTION value=11<% Response.Write strNovember %>>November</Option>
<OPTION value=12<% Response.Write strDecember %>>December</Option>
</SELECT>
<FONT FACE=verdana size=\"2\">År : </FONT>
<Input type=Text size=4 name=aar value=<% Response.Write strAar %>>
<input type=Submit value=OK>
<br>
</td>
</span>
</tr>
<%
\'---åben database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../db/kalender.mdb\")
Conn.Open DSN
strSQL = \"Select * From personer where md =\" & strMaaned & \" Order by Dag\"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
if strMaaned = rs(\"Md\") then
Response.write \"<tr><td bgcolor=\'#cccccc\' width=\'160\' height=\'25\'>\" & rs(\"Navn\") & \"</td>\"
Response.write \"<td bgcolor=\'#cccccc\' width=\'160\' height=\'25\'>\" & \"D. \" & rs(\"Dag\") & \"-\" & rs(\"Md\") & \"-\" & rs(\"Aar\") & \"</td></tr>\"
end if
rs.MoveNext
Loop
Response.write \"strMaaned \" & strMaaned
\'Luk database og ryd op
Conn.Close
Set Conn = Nothing
%>
</table>
</Form>
</BODY>
</HTML>
-----
