Frågan#1
Med utgångspunkt från mitt kalenderscript (som en kompis har hjälpt mig med) vill jag lägga in personers födelsedagar i den.
Har skapat en tabell: fodelse, med fältet namn och datum.
Namnen ska automatiskt listas ut med rätt ålder när aktuell månad kommer fram.
Något lösning/tips/idé?
<%@ LCID=1053 %>
<html>
<head>
<title>Kalender</title>
<link rel=stylesheet href="../css/stilar.css" TYPE="text/css">
</head>
<body>
<%ser_Datum = Request("month")
If ser_Datum = "" then
ser_Datum = Date()
end if
%>
<%
startdag = DateSerial(Year(ser_Datum), Month(ser_Datum), 1)
slutdag = DateSerial(Year(ser_Datum), Month(ser_Datum) + 1, 1)
slutdag = dateadd("d",-1,slutdag)
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "xxxx"
SQLStmt = "SELECT * From kalender WHERE datum BETWEEN #" & startdag & "# AND #" & slutdag & "# ORDER BY datum ASC, aktivitet"
Set RS = Connect.Execute(SQLStmt)
%>
<SPAN CLASS="Rubrik">
[Kalender <%=Year(ser_Datum)%>]
</span>
<br><br><br>
<%
Dim kalender()
redim kalender(31,1)
dim i
i = 0
Do while not RS.EOF
%>
<%'=i%>
<%
If i = 0 then
kalender(i,0) = rs("Datum")
kalender(i,1) = rs("Aktivitet")
i = i+1
else
if kalender(i-1,0) = rs("Datum") then
kalender(i-1,1) = kalender(i-1,1) &"<b>,</B><br>"& rs("Aktivitet")
else
kalender(i,0) = rs("Datum")
kalender(i,1) = rs("Aktivitet")
i = i+1
end if
end if
'
'Dagnamn = UCase(Left(Dagnamn, 1)) & Mid(Dagnamn, 2)
%>
<%
RS.Movenext
Loop
%>
<%
Function Check_dag(datum)
Check_dag = ""
for j = 0 to UBound(kalender)
if Datediff("d",datum,kalender(j,0)) = 0 then
Check_dag = j
end if
next
end function
%>
<table STYLE="border-width: 1px; border-style: solid; border-color: black" cellpadding="2" cellspacing="0" width="350">
<tr>
<td bgcolor="#20A0C0"> </td>
<td bgcolor="#20A0C0"><a href="index.asp?month=<%=dateadd("m",-1,startdag)%>"><%=Monthname(Month(dateadd("m",-1,startdag)))%></A> | <b><SPAN CLASS="underRubrik1"><%=UCase(Left(Monthname(Month(startdag)),1)) & Right(Monthname(Month(startdag)),Len(Monthname(Month(startdag))) -1)%></span></b> | <a href="index.asp?month=<%=dateadd("m",1,startdag)%>"><%=Monthname(Month(dateadd("m",1,startdag)))%></A></td>
</tr>
<%
akt_datum = CDate(startdag)
dim day_cnt
day_cnt=1
for k = 0 to Datediff("d",startdag,slutdag)
temp_chk = Check_dag(akt_datum)
Dagnamn = Day(akt_datum)
'Dagnamn = UCase(Mid(Dagnamn,1,1)) & Mid(Dagnamn,2,10)
If temp_chk <> "" then
%>
<tr>
<%IF datediff("d",now(),akt_datum) = 0 then%>
<td width="30" valign="top" align="left" bgcolor="#A0C4EB"><%if weekday(akt_datum) = 1 then%><font color="FF0000"><%=Dagnamn%> </font><%else%><%=Dagnamn%> <%end if%></td>
<td valign="top" bgcolor="#A0C4EB"><%=kalender(temp_chk,1)%> </td>
<%else%>
<%if (day_cnt/2-int(day_cnt/2))=0 then%>
<td width="30" valign="top" align="left" bgcolor="#ADD8E6"><%if weekday(akt_datum) = 1 then%><font color="FF0000"><%=Dagnamn%> </font><%else%><%=Dagnamn%> <%end if%></td>
<td valign="top" bgcolor="#ADD8E6"><%=kalender(temp_chk,1)%> </td>
<%else%>
<td width="30" valign="top" align="left" bgcolor="#D8FFFF"><%if weekday(akt_datum) = 1 then%><font color="FF0000"><%=Dagnamn%> </font><%else%><%=Dagnamn%> <%end if%></td>
<td valign="top" bgcolor="#D8FFFF"><%=kalender(temp_chk,1)%> </td>
<%end if%>
<%end if%>
</tr>
<%else%>
<tr>
<%IF datediff("d",now(),akt_datum) = 0 then%>
<td width="30" valign="top" align="left" bgcolor="#A0C4EB"><%if weekday(akt_datum) = 1 then%><font color="FF0000"><%=Dagnamn%> </font><%else%><%=Dagnamn%> <%end if%></td>
<td valign="top" bgcolor="#A0C4EB"> </td>
<%else%>
<%if (day_cnt/2-int(day_cnt/2))=0 then%>
<td width="30" valign="top" align="left" bgcolor="#ADD8E6"><%if weekday(akt_datum) = 1 then%><font color="FF0000"><%=Dagnamn%> </font><%else%><%=Dagnamn%> <%end if%></td>
<td valign="top" bgcolor="#ADD8E6"> </td>
<%else%>
<td width="30" valign="top" align="left" bgcolor="#D8FFFF"><%if weekday(akt_datum) = 1 then%><font color="FF0000"><%=Dagnamn%> </font><%else%><%=Dagnamn%> <%end if%></td>
<td valign="top" bgcolor="#D8FFFF"> </td>
<%end if%>
<%end if%>
</tr>
<%end if%>
<%akt_datum = Dateadd("d",1,akt_datum)%>
<%day_cnt = day_cnt +1%>
<%next%>
</table>
<%
RS.Close
Connect.Close
%>
<BR>
<BR>
</body>
</html>