Udskriv kalender

umiddelbart ser jeg to metoder...
- du kan lave en function som tjekker i databasen...
- eller du kan lave en ny "select-sætning" for hver dato...
Men skal dit ovenstående script ikke snarere se således ud?:
<%
for i=0  to 5
%>
<tr><td> <%="" & MonthName(DateAdd("m",i,Date)) & ""%> </td>
<%
for j=1 to 31
%>
<td><%="" & j & ""%></td>
<%
next
%>
</tr>
<%
next
%>

- om ikke andet så kommer der lige en lille function her:
function finddato(streng)
finddato = streng
if isdate(finddato) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("DinDataBase.mdb")
strSQL = "select * from kalender WHERE dato='" & date(finddato) & "'"
set rs = Conn.execute(strSQL)
if NOT rs.EOF then
finddato = "KRYDS SÆTTES!"
else
finddato = "INTET KRYDS!"
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
else
finddato = ""
end if
end function

- og så kunne dit kalde for eksempel se således ud:
<%="" & finddato(j & "-" & i & "-2006") & ""%>

I denne function skal du nok lige ændre navnet på databasen samt navnet på tabellen og navnet på kollonnnen vi skal kigge i...
det er også forudsat at kollonnen vil kigger i har datatypen "Dato og klokkeslæt"...

\Dan

SORRY! Den function skal se lidt anderledes ud, for at være bedre:
<%
function finddato(streng)
finddato = streng
if isdate(finddato) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("DinDataBase.mdb")
strSQL = "select * from kalender WHERE day(dato)=" & day(finddato) & " AND month(dato)=" & month(finddato) & " AND year(dato)=" & year(finddato) & ""
set rs = Conn.execute(strSQL)
if NOT rs.EOF then
finddato = "KRYDS SÆTTES!"
else
finddato = "INTET KRYDS!"
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
else
finddato = ""
end if
end function
%>

\Dan

smid et svar

OK! Her et svar...

\Dan