Simpel kalender

Dette her skulle kunne gøre det:

<html>

<head>
<link rel="stylesheet" href="XXXX.css" type"text/css">
<title>Kalender.asp</title>
</head>

<body bgcolor="#C8C8C8" topmargin="0" leftmargin="0">

<div align="center">

<br>
<p class="headline">:: Kalender ::</p>
<br>

<%

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" border="0" valign="top" width="200">
  <tr>
      <td colspan="7" align="center" valign="middle" bgcolor="#FFFFFF"><font color="#333333"><b><% =strMonth%>&nbsp;<%=intYear%></b></font></td>
  </tr>
  <tr>
      <td align="center"><b>Man</b></td>
      <td align="center"><b>Tir</b></td>
      <td align="center"><b>Ons</b></td>
      <td align="center"><b>Tor</b></td>
      <td align="center"><b>Fre</b></td>
      <td align="center"><b>Lør</b></td>
      <td align="center"><b>Søn</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>"
          intLoopDay = intLoopDay + 1
          If intLoopDay >= intFirstDay Then
              dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
              If Month(dtmCurDate) = Month(dtmFirstDate) Then

                Set Conn = Server.CreateObject("ADODB.Connection")
                Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXXXXX.mdb"))
       
                strSQL = "SELECT count(dato) as isthere FROM aftaler WHERE dato = #"& dtmCurDate &"# AND oprettetaf = '"& Session("initialer") &"'"
                set rs = Conn.Execute(strSQL)

                    If dtmCurDate = dtmToday Then
                        Response.Write "<strong><font color='#ff0000'>"
                    End If

                If rs.EOF Then
                        Response.Write Day(dtmCurDate)
                        Response.Write "</strong></td>"
                        blnLast = False
                Else               
                        If rs("isthere") > 0 Then %>
                    <b><a href="aftale.asp?dato=<% =dtmCurDate %>','','width=300,height=300,status=0,scrollbars=1')">
                        <% Response.Write Day(dtmCurDate)
                            Response.Write "</strong></td>"
                            blnLast = False
                    Else
                            Response.Write Day(dtmCurDate)
                            Response.Write "</strong></td>"
                            blnLast = False
                    End If
                End If                   
         
                Else
                    Response.Write "-</td>"
                    blnLast = True
                End If
          Else
                Response.Write "-</td>"
                blnLast = True
          End if
    Next
End If
Next

Response.Write "</td></tr>"%>

  <tr>
      <td colspan="3"><b><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><< Forrige</a></b></td>
      <td>&nbsp;</td>
      <td colspan="3" align="right"><b><a href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste >></a></b></td>
  </tr>
</table>

</div>
</body>
</html>
**************************************************'

Aftale.asp ser ud som følger:

<html>

<head>
<link rel="stylesheet" href="XXX.css" type"text/css">
<title>aftaler.asp</title>
</head>

<body bgcolor="#C8C8C8" topmargin="0" leftmargin="0">

<div align="center">

<%
dato = Request.QueryString("dato")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXXX.mdb"))

strSQL = "SELECT dato, kl, aftale FROM aftaler WHERE dato = #"&dato&"# AND oprettetaf = '"& session("initialer") &"' ORDER BY kl"
Set rs = Conn.Execute(strSQL) %>


<br>
<p class="headline">Aftaler d. <% =rs("dato") %></p>
<br>
<table border="0" cellpadding="0" cellspacing="0">
  <tr>
  <% While Not rs.EOF %>
 
      <td align="center" valign="top" width="75"><% =rs("kl") %></td>
      <td align="left" width="225"><% =rs("aftale") %></td>
  </tr>
  <tr>
      <td height="20" colspan="2"></td>
  </tr>
  <% rs.MoveNext
  Wend %>
</table>

</div>
</body>
</html>

*************************

Det hele skal lige rettes lidt til efter dine specielle behov men koden som sådan virker jeg bruger den selv

kan det bruges?????

Ikke jeres skod ASP kode i denne kategori. M y S Q L - Hvilken del forstår i ikke?

MORW> såså.. nu ikke så sur... du har jo ikke noget bedre at byde på selv!

Hey hvor blev koden af?!?