Kalender

Måske dette kan hjælpe ...

http://www.kamath.com/downloads/aspcalendar_v1.zip

prøv evt at kig lidt på disse;

http://activedeveloper.dk/aspdigital/studies/kalender.asp
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=161
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=272

Det første link ser temmelig lovende ud ... men der er nogle ting som skal ændres hvis det skal være den, bla. designet og derudover skal det laves så man kan trykke på en dato og så bliver en side åbnet med den dato man valgte. Når man trykker på en dato skal følgende side åbnes:

dato.asp?MONTH=8&YEAR=2002&DAY=20

Og det skal jo varrier efter hvilken dato der vælges. Altså som det kan ses på min htm side i første besked!

og det er lige netop det http://activedeveloper.dk/download/default.asp?mode=showdownload&id=161 gør

Men den arbejder udfra en database og det er vigtigt den ikke gør det! Det skal bare være en enkelt asp side! Hvis du mener du kan klare det hvorfor så ikke hurtig fikse det og få de 200 point?

alt databasen går i scriptet er at holde styr på om der er nogle aktiviteter de pågældende dage... det kan da bare fjernes

Jeg kan ikke selv hitte ud af det ... det skal jo være sådan at hvis man trykke på den 18 i december 2002 så skal man linket til følgende:

dato.asp?MONTH=12&YEAR=2002&DAY=18

Har du lyst til at lave det eller har du ikke?

Alle andre er jo også velkommen til at give en hånd!

Nu har jeg selv siddet og bakset med det og har fået designet og nogle af funktionerne overført. Men jeg kan stadig ikke få kædet alt det lort fra databasen fra. Hele databasen skal simpelhen væk fra asp filne. Er der en der kan hjælpe?

<%
DBQ=Server.MapPath("kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ

dtmDate = Request.QueryString("date")
dtmToday = Date

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 width=150 align=center border=0>
  <TR>
    <TD>
      <CENTER>
      <P><FONT face=Verdana size=2><a
href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">&lt;&lt;</A>
      | <A
      href="http://www.havneparken1vejle.com/1/1/kalender.asp">I dag</A>
      | <a
href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">&gt;&gt;</A></FONT></P></CENTER></TD></TR></TABLE>
<TABLE borderColor=#cccccc cellSpacing=0 width=150 align=center border=1>
  <TR>
    <TD colSpan=7>
      <P align=center><FONT face=Verdana size=1><%=strMonth%>&nbsp;<%=intYear%></FONT></P></TD></TR>
  <TR>
    <TD>
      <P align=center><font face="Verdana" size="1">Ma</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">Ti</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">On</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">To</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">Fr</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">Lø</font></P></TD>    <TD>
      <P align=center><FONT face=Verdana size=1>Sø</FONT></P></TD></TR>
  <TR>
 
<%
For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    Set foddagbarn=oConn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and mdr="&month(dtmCurDate))
          If dtmCurDate = dtmToday Then
                        If Not foddagbarn.EoF Then
                            Response.Write "<td align=center bgcolor=#0000ff><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1 color=#ff0000>" & Day(dtmCurDate) & "</strong></font></a></td>"
                        Else
                            Response.Write "<td align=center bgcolor=#ffcccc><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1 color=#4179b6>" & Day(dtmCurDate) & "</strong></font></a></td>"
                        End If
          Else
                        If Not foddagbarn.EoF Then
                            Response.Write "<td align=center bgcolor=#ff0000><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1>" & Day(dtmCurDate) & "</strong></font></a></td>"
                        Else
                            Response.Write "<td align=center><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1>" & Day(dtmCurDate) & "</strong></font></a></td>"
                        End If
          End If
          blnLast = False
        Else
          Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
          blnLast = True
        End If
      Else
        Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write "</font></td></tr>"
%>

Derudover så vil jeg gerne have at linket på dagen sendes til:

dato.asp?Dag=4&Mdr=9&ÅR=2002

Og ikke:

dato.asp?dato=06-09-2002

Er det noget lignende dette du mangler.
http://www.hilleroed-hk.dk/2002/1/kalender1.asp

nej jpj3 ... det er ikke sådan noget jeg skal bruge ... men noget som:

http://www.havneparken1vejle.dk/1/kalender.asp

Den er lavet så den virker nu men jeg skal have ændre linket på dagene fra at den skriver:

dato.asp?dato=06-09-2002

og til at den skriver:

dato.asp?Dag=4&Mdr=9&ÅR=2002

Kan jeg få lidt hjælp til dette?

Har endelig fået det lavet vha. hjælp fra en ven ...