Avatar billede zybe Nybegynder
02. oktober 2001 - 15:09 Der er 16 kommentarer og
1 løsning

Asp kalender

Jeg har fundet en god asp kalender på nettet, men der er en ting som jeg gerne vil have rettet i den. Den har en funktion hvor den viser dagen idag, og så skal man trykke for at se hvad der sker de kommende dage. Kan det laves så den viser alle dagene på engang...?
Scriptet kan downloades på http://62.243.13.234/zybe/kalender.zip
Avatar billede eagleeye Praktikant
02. oktober 2001 - 19:41 #1
Skal alle dage vises eller et max antal?
Avatar billede eagleeye Praktikant
02. oktober 2001 - 19:45 #2
Eller skal den altid vises alle dagene.
Avatar billede eagleeye Praktikant
02. oktober 2001 - 21:17 #3
Her er mit forslag, kopier koden ind i filen kalender.asp:

<!-- #include file=\"config.asp\" -->
<% response.buffer = true %>
<html>
<head>
<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=iso-8859-1\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<title>Events</title>
<style type=text/css>
TABLE.cal     { COLOR: #c0c0c0; WIDTH: 200px }
TD.cal         { FONT-FAMILY: tahoma; FONT-SIZE: 12pt; TEXT-ALIGN: center }
INPUT.cal     { COLOR: white; BACKGROUND: black; BORDER: none; WIDTH: 20 }
A        { TEXT-DECORATION: none; }
A.cal:link     { COLOR: white; }
A.cal:visited     { COLOR: white; }
A.cal:active     { COLOR: white; }
A.cal:hover     { COLOR: gray; }
A.tdy:link     { COLOR: #c5f9c5; }
A.tdy:visited     { COLOR: #c5f9c5; }
A.tdy:active     { COLOR: white; }
A.tdy:hover     { COLOR: gray; }
A.tdz:link     { COLOR: yellow; FONT-WEIGHT: bold; }
A.tdz:visited     { COLOR: yellow; FONT-WEIGHT: bold; }
#ppcalendar     { LEFT: 116px; POSITION: absolute; TOP: 100px }
#pcmonth     { LEFT: 116px; POSITION: absolute; TOP: 100px }
</style>
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#C0C0C0\"
vlink=\"#C0C0C0\" alink=\"#C0C0C0\">
<SCRIPT language=vbscript>
function mlookup(mnt)
select case mnt
    case  1 mlookup=\"J A N\"
    case  2 mlookup=\"F E B\"
    case  3 mlookup=\"M A R\"
    case  4 mlookup=\"A P R\"
    case  5 mlookup=\"M A J\"
    case  6 mlookup=\"J U N\"
    case  7 mlookup=\"J U L\"   
    case  8 mlookup=\"A U G\"
    case  9 mlookup=\"S E P\"
    case 10 mlookup=\"O K T\"
    case 11 mlookup=\"N O V\"
    case 12 mlookup=\"D E C\"
end select
end function

function mlookup2(mnt)
select case mnt
    case  1 mlookup2=\"Januar\"
    case  2 mlookup2=\"Februar\"
    case  3 mlookup2=\"Marts\"
    case  4 mlookup2=\"April\"
    case  5 mlookup2=\"Maj\"
    case  6 mlookup2=\"Juni\"
    case  7 mlookup2=\"Juli\"   
    case  8 mlookup2=\"August\"
    case  9 mlookup2=\"September\"
    case 10 mlookup2=\"Oktober\"
    case 11 mlookup2=\"November\"
    case 12 mlookup2=\"December\"
end select
end function


function yformat(yyr)
    for a=1 to len(yyr)
        b=b+mid(yyr,a,1)+\" \"
    next
    yformat=mid(b,1,len(b)-1)
end function

function dlookup(mm, yy)
    dlookup=31
    if mm<8 and mm/2=fix(mm/2) then dlookup=30
    if mm>7 and mm/2<>fix(mm/2) then dlookup=30
   
    if mm=2 then
        lpyr=leapyear(yy)
        if lpyr=1 then dlookup=29
        if lpyr=0 then dlookup=28
    end if
end function

function leapyear(yyr)
leapyear=0
    if yyr/4=fix(yyr/4) then leapyear=1
    if yyr/100=fix(yyr/100) then leapyear=0
    if yyr/400=fix(yyr/400) then leapyear=1
end function

function namedate2(mmddyy)
    ddate=mmddyy
    yys=mid(ddate,1,4)
    mms=mid(ddate,5,2)
    dds=mid(ddate,7,2) * 1
    ndate=mlookup2(mms) & \" \" & dds & \", \" & yys
    namedate2=ndate
end function

sub init()
    document.all.mm.value=month(now())
    document.all.yy.value=year(now())
    document.all.dd.value=day(now())
    call pcalendar()
end sub

sub pcalendar()
    mnt=document.all.mm.value
    yyr=document.all.yy.value
    ddy=document.all.dd.value
    fday=weekday(mnt & \"/1/\" & yyr)
    lday=dlookup(mnt, yyr)

    innerHTML=\"<a class=\'tdy\' href=\'java script: showPcmonth()\'>&nbsp; \" & mlookup(mnt) &  \"&nbsp;&nbsp; \" & yformat(yyr) & \"&nbsp;</a>\"
    document.all.my.innerHTML=innerHTML

    innerHTML=\"<a class=\'tdy\' href=\'java script: hidePcmonth()\'>&nbsp;\" & yformat(yyr) & \"&nbsp;</a>\"
    document.all.y.innerHTML=innerHTML

    for a=1 to 6                \' six weeks
        for b=1 to 7            \' seven days
            c=c+1
            if c>=fday then
                d=d+1
            else    
                d=0
            end if
            targetId=a & b
            if d<=lday then
                if d=day(now()) and int(mnt)=month(now()) and int(yyr)=year(now()) then
                    innerHTML=\"<a class=\'tdz\' \"
                else
                    innerHTML=\"<a class=\'cal\' \"
                end if
                innerHTML=innerHTML & \"href=\'java script: outday(\" & d & \")\'>&nbsp;\" & d & \"&nbsp;</a>\"
                if d=0 then innerHTML=\"\"
                document.all(targetId).innerHTML=innerHTML
            else
                document.all(targetId).innerHTML=\"\"
            end if
        next
        fday=1
    next   
end sub

sub prevyr()
    showpcmonth()
    document.all.yy.value=document.all.yy.value-1
    call pcalendar()
end sub

sub nextyr()
    showpcmonth()
    document.all.yy.value=document.all.yy.value+1
    call pcalendar()
end sub

sub prevmo()
    showpcal()
    document.all.mm.value=document.all.mm.value-1
    if document.all.mm.value=0 then
        document.all.mm.value=12
        document.all.yy.value=document.all.yy.value-1
    end if
    call pcalendar()
end sub

sub nextmo()
    showpcal()
    document.all.mm.value=document.all.mm.value+1
    if document.all.mm.value=13 then
        document.all.mm.value=1
        document.all.yy.value=document.all.yy.value+1
    end if   
    call pcalendar()
end sub

sub outday(dd)
    mms=document.all.mm.value
    yys=document.all.yy.value
    dds=document.all.dd.value
    doutid= yys & right(\"0\" & mms, 2) & right (\"0\" & dd,2)
    dout= right (\"0\" & dd,2) & \"/\" & right(\"0\" & mms, 2) & \" \" & yys
    dtgo=document.all.cinput.value
    document.all(dtgo).value=dout
    if dtgo = \"tdat1\" then
    document.all(\"idfelt\").value=doutid
    end if
    call hidePCal()
end sub

sub showPCalE(ddd)
    ddate=document.all(ddd).value
    ddateid=dontidfelt
    yys=year(ddate)
    mms=month(ddate)
    dds=day(ddate)

    if yys-document.all(\"yy\").value<>0 or mms-document.all(\"mm\").value<>0 then
        document.all(\"yy\").value=yys
        document.all(\"mm\").value=mms
        pcalendar()   
    end if

    showPCal()
    document.all(\"cinput\").value=ddd
end sub

sub cmonth(mnt)
    document.all.mm.value=mnt
    hidePCmonth()
    call pcalendar()   
end sub

sub showPCmonth()
    document.all(\"pcmonth\").style.display=\"\"
end sub

sub hidePCmonth()
    showpcal()
    document.all(\"pcmonth\").style.display=\"none\"
end sub

sub showPCal()
    document.all(\"ppcalendar\").style.display=\"\"
end sub

sub hidePCal()   
   
    document.all(\"ppcalendar\").style.display=\"none\"
    document.all(\"pcmonth\").style.display=\"none\"   
end sub

</SCRIPT>

<div align=\"center\"><center>

<% if Request.QueryString(\"submode\")=\"\" OR Request.QueryString(\"submode\")=\"today\" then %>
<%
myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth
%>
<div align=\"center\">

<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"80%\">
  <tr>
  <td width=\"100%\" align=\"center\">
    <p align=\"center\"><font face=\"Tahoma\" color=\"#000000\" size=\"5\"><b><%= Navn %></b></font><a href=\"kalender.asp?submode=add\"><font
        size=\"1\" face=\"Tahoma\" color=\"#000000\"><br>
    </font></a><font size=\"1\" face=\"Tahoma\" color=\"#000000\">
    &nbsp;&nbsp;<br></font>
<% if Request.QueryString(\"submode\")=\"today\" then %>
    <a href=\"kalender.asp\"><b><font color=\"#000000\" face=\"Tahoma\" size=\"2\"><u>Tryk
          her for at se listen over alle 
        dage !!</u></font></b></a></p>
<% else %>
      <a href=\"kalender.asp?submode=today\"><b><font color=\"#000000\" face=\"Tahoma\" size=\"2\"><u>Tryk
          her for kun at se listen over idag
        dage !!</u></font></b></a></p>
<% end if %>
  <!--</center>-->
  <p align=\"center\"><font color=\"#000000\" face=\"Tahoma\" size=\"1\"><br>
  <b>Dagen i dag:</b>
<% idtid = year(now) & \"\" & myMonth & \"\" & myDay
         
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"kalender.mdb\")
strSQL = \"Select top 10 * From kalender WHERE eventtid = \" & idtid & \" ORDER BY eventtid\"
set rs = Conn.execute(strSQL)

myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth

tidnu = myDay & \"/\" & myMonth & \" \" & year(now)

if rs.EOF then
  \'Response.write \"<br><br><center><font face=\"\"Tahoma\"\" size=\"\"2\"\"><i>Der er ingen events i dag !!<br>Se listen over de kommende dage !!<br><br></i></font>\"
  Response.write \"<br><br><center><font face=\"\"Tahoma\"\" size=\"\"2\"\"><i>Der er ingen events i dag !!<br><br></i></font>\"
  %>
</td>
</tr>
</table>
</div> 
  <%
else
Do Until rs.EOF

%>
&nbsp;<br><br>
<% if RS(\"Aflyst\") = \"Nej\" then
    status = \"\"
  elseif RS(\"Aflyst\") = \"Ja\" then
    status = \"AFLYST ! \"
  end if
%>
      </font></p>
        </td>
    </tr>
</table>
</div>

<div align=\"center\">

<table border=\"1\" cellpadding=\"4\" cellspacing=\"0\" width=\"80%\" bordercolor=\"#000000\" bgcolor=\"#84A5C6\">
    <tr>
    <td width=\"100%\" bgcolor=\"#84A5C6\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\">
      <tr>
      <td>
        <p align=\"left\"><font color=\"#000000\" face=\"Tahoma\"><b><font size=\"3\"></font> <font size=\"3\"> <%=RS(\"Navn\")%></font></font></b>
        <p align=\"left\"><font color=\"#000000\" face=\"Tahoma\"><b><font color=\"#FF0000\" face=\"Tahoma\" size=\"4\"><%= status %></font><font size=\"2\">Dato:</font></b><font size=\"2\"> <%= bstart %><%=RS(\"Dato\")%><%=RS(\"TilDato\")%><%= bend %></font></font></p>
      <td width=\"50%\">
      </tr>
      </table>

<center>

      <table style=\"border: 1 solid #000000\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\" bgcolor=\"#FFFFFF\">
      <tr>
      <td width=\"100%\"><font color=\"#000000\" size=\"2\" face=\"Tahoma\">
<% text = rs(\"besked\")%>  </font>
<%=Server.HTMLencode(text)%></td>
      </tr>
      </table>
</center></td>
    </tr>
</table>
</div>


<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
  <table border=\"0\" align=\"center\" width=\"80%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
  </tr>
  </table>
 
<p><font color=\"#000000\" face=\"Tahoma\">
<% end if %>

<% if Request.QueryString(\"submode\")=\"\" then %>
<%
myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth
%>
<div align=\"center\">

<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"80%\">
  <tr>
  <td width=\"100%\" align=\"center\">
   
    <% if Request.QueryString(\"submode\")<>\"\" then %>
      <p align=\"center\"><font face=\"Tahoma\" color=\"#000000\" size=\"5\"><b><%= Navn %></b></font><a href=\"kalender.asp?submode=add\">
      <font size=\"1\" face=\"Tahoma\" color=\"#000000\"><br></font></a>
      <font size=\"1\"> <br></font>
<!--<a href=\"kalender.asp\"><b><font size=\"2\" face=\"Tahoma\" color=\"#000000\"><u>Tryk
          her for at se dagen i dag !!</u></font></b></a> -->
                </font>           
        </p>
    <% end if %>
      <font color=\"#000000\" face=\"Tahoma\">
      <p><font color=\"#000000\" face=\"Tahoma\" size=\"1\"><br>
      <b>De kommende dages events:</b>
  <% idtid = year(now) & \"\" & myMonth & \"\" & myDay
         
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"kalender.mdb\")
strSQL = \"Select * From kalender WHERE eventtid > \" & idtid & \" ORDER BY eventtid\"
set rs = Conn.execute(strSQL)

myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth

tidnu = myDay & \"/\" & myMonth & \" \" & year(now)

if rs.EOF then
Response.write \"<font face=\"\"Tahoma\"\" size=\"\"2\"\"><i><br><br>Der er ingen kommende events i kalenderen endnu !!<br><br></i></font>\"
else
Do Until rs.EOF

%>
          &nbsp;<br>
          <br>
<% if RS(\"Aflyst\") = \"Nej\" then
status = \"\"
elseif RS(\"Aflyst\") = \"Ja\" then
status = \"AFLYST ! \"
end if
%>
</font></p>
        </td>
    </tr>
</table>
</div>
<div align=\"center\">

<table border=\"1\" cellpadding=\"4\" cellspacing=\"0\" width=\"80%\" bordercolor=\"#000000\" bgcolor=\"#84A5C6\">
    <tr>
        <td width=\"100%\" bgcolor=\"#84A5C6\">
          <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\">
            <tr>
<td>
<p align=\"left\"><b><font color=\"#000000\" face=\"Tahoma\"><font size=\"3\"></font><font size=\"3\"> <%=RS(\"Navn\")%></font></font></b>
                </font>           
<p><font color=\"#000000\" face=\"Tahoma\"><b><font color=\"#FF0000\" face=\"Tahoma\" size=\"4\"><%= status %></font><font size=\"2\">Dato:</font></b><font size=\"2\"> <%= bstart %><%=RS(\"Dato\")%><%=RS(\"TilDato\")%><%= bend %></font></p>
</font>
            </tr>
          </table>

<center>

          <table style=\"border: 1 solid #000000\" width=\"100%\" cellspacing=\"0\" cellpadding=\"3\" bgcolor=\"#FFFFFF\">
            <tr>
              <td width=\"100%\"><font color=\"#000000\" size=\"2\" face=\"Tahoma\"><%
text = rs(\"besked\")
%>
                </font>
<%=Server.HTMLencode(text)%></td>
            </tr>
          </table>
          <% %></center></td>
    </tr>
</table>
  </div>


<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
  <table border=\"0\" align=\"center\" width=\"80%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
      </tr>
  </table>
<p><font color=\"#000000\" face=\"Tahoma\"><% elseif Request.QueryString(\"submode\")=\"add\" then %>
<%
   
If Session(\"Valid\") = \"\" Then
  Response.redirect \"admin.asp\"
End If
%>
<%
myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth

idtid = year(now) & \"\" & myMonth & \"\" & myDay
tidnu = myDay & \"/\" & myMonth & \" \" & year(now)
%>
</font></p>
<DIV id=ppcalendar style=\"display: none\">
<TABLE class=\"cal\" bgColor=black cellPadding=0 cellSpacing=0 height=18>
  <TBODY>
  <TR>
    <TD class=\"cal\" width=20><font color=\"#000000\" face=\"Tahoma\"><input class=\"cal\" type=\"button\" value=\"<\" onclick=\"java script: prevmo()\"></font></TD>
    <TD class=\"cal\" id=my width=160><font color=\"#000000\" face=\"Tahoma\">Måned År</font> </TD>
    <TD class=\"cal\" width=20><font color=\"#000000\" face=\"Tahoma\"><input class=\"cal\" type=\"button\" value=\">\" onclick=\"java script: nextmo()\"></font></TD>
</TR></TBODY></TABLE>
<TABLE class=\"cal\" bgColor=#555555 cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">Sø</font></TD>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">Ma</font></TD>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">Ti</font></TD>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">On</font></TD>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">To</font></TD>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">Fr</font></TD>
    <TD class=\"cal\"><font color=\"#000000\" face=\"Tahoma\">Lø</font></TD></TR>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE class=\"cal\" bgColor=black cellPadding=0 cellSpacing=0 height=120>
  <TBODY>
  <TR>
    <TD class=\"cal\" id=11>&nbsp;</TD>
    <TD class=\"cal\" id=12>&nbsp;</TD>
    <TD class=\"cal\" id=13>&nbsp;</TD>
    <TD class=\"cal\" id=14>&nbsp;</TD>
    <TD class=\"cal\" id=15>&nbsp;</TD>
    <TD class=\"cal\" id=16>&nbsp;</TD>
    <TD class=\"cal\" id=17>&nbsp;</TD></TR>
  <TR>
    <TD class=\"cal\" id=21>&nbsp;</TD>
    <TD class=\"cal\" id=22>&nbsp;</TD>
    <TD class=\"cal\" id=23>&nbsp;</TD>
    <TD class=\"cal\" id=24>&nbsp;</TD>
    <TD class=\"cal\" id=25>&nbsp;</TD>
    <TD class=\"cal\" id=26>&nbsp;</TD>
    <TD class=\"cal\" id=27>&nbsp;</TD></TR>
  <TR>
    <TD class=\"cal\" id=31>&nbsp;</TD>
    <TD class=\"cal\" id=32>&nbsp;</TD>
    <TD class=\"cal\" id=33>&nbsp;</TD>
    <TD class=\"cal\" id=34>&nbsp;</TD>
    <TD class=\"cal\" id=35>&nbsp;</TD>
    <TD class=\"cal\" id=36>&nbsp;</TD>
    <TD class=\"cal\" id=37>&nbsp;</TD></TR>
  <TR>
    <TD class=\"cal\" id=41>&nbsp;</TD>
    <TD class=\"cal\" id=42>&nbsp;</TD>
    <TD class=\"cal\" id=43>&nbsp;</TD>
    <TD class=\"cal\" id=44>&nbsp;</TD>
    <TD class=\"cal\" id=45>&nbsp;</TD>
    <TD class=\"cal\" id=46>&nbsp;</TD>
    <TD class=\"cal\" id=47>&nbsp;</TD></TR>
  <TR>
    <TD class=\"cal\" id=51>&nbsp;</TD>
    <TD class=\"cal\" id=52>&nbsp;</TD>
    <TD class=\"cal\" id=53>&nbsp;</TD>
    <TD class=\"cal\" id=54>&nbsp;</TD>
    <TD class=\"cal\" id=55>&nbsp;</TD>
    <TD class=\"cal\" id=56>&nbsp;</TD>
    <TD class=\"cal\" id=57>&nbsp;</TD></TR>
  <TR>
    <TD class=\"cal\" id=61>&nbsp;</TD>
    <TD class=\"cal\" id=62>&nbsp;</TD>
    <TD class=\"cal\" id=63>&nbsp;</TD>
    <TD class=\"cal\" id=64>&nbsp;</TD>
    <TD class=\"cal\" id=65>&nbsp;</TD>
    <TD class=\"cal\" id=66>&nbsp;</TD>
    <TD class=\"cal\" id=67>&nbsp;</TD></TR></TBODY></TABLE>
</DIV>

<DIV id=pcmonth style=\"DISPLAY: none\">
<TABLE class=\"cal\" bgColor=black cellPadding=0 cellSpacing=0 height=18>
  <TBODY>
  <TR>
    <TD class=\"cal\"  width=20><font color=\"#000000\" face=\"Tahoma\"><input class=\"cal\" type=\"button\" value=\"<\" onclick=\"java script: prevyr()\"></font></TD>
    <TD class=\"cal\"  id=y width=160><font color=\"#000000\" face=\"Tahoma\">Måned År</font> </TD>
    <TD class=\"cal\"  width=20><font color=\"#000000\" face=\"Tahoma\"><input class=\"cal\" type=\"button\" value=\">\" onclick=\"java script: nextyr()\"></font></TD>
  </TR></TBODY></TABLE>
<TABLE class=\"cal\" bgColor=#555555 cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD class=\"cal\" ><font color=\"#FFFFFF\" face=\"Tahoma\">Vælg en måned</font> </TD></TR>
  <TR>
    <TD>&nbsp;</TD></TR></TBODY></TABLE>
<TABLE class=\"cal\" bgColor=black cellPadding=0 cellSpacing=0 height=120>
  <TBODY>
  <TR>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(1)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Jan&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(2)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Feb&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(3)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Mar&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(4)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Apr&nbsp;</font></A></TD></TR>
  <TR>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(5)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Maj&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(6)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Jun&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(7)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Jul&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(8)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Aug&nbsp;</font></A></TD></TR>
  <TR>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(9)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Sep&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(10)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Okt&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(11)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Nov&nbsp;</font></A></TD>
    <TD class=\"cal\" ><A class=\"cal\" href=\"java script: cmonth(12)\"><font color=\"#FFFFFF\" face=\"Tahoma\">&nbsp;Dec&nbsp;</font></A></TD></TR></TBODY>
</TABLE>
</DIV>

<INPUT name=mm type=hidden value=\"3\">
<INPUT name=dd type=hidden value=\"10\">
<INPUT name=yy type=hidden value=\"77\">
<INPUT name=cinput type=hidden>

<script language=vbscript>
sub ck(xt)
k=document.all(xt).value
document.all(xt).value=formatdatetime(\"11-12-1999\",2)
end sub
</script>
<form action=\"kalender.asp?submode=save\" method=\"POST\">

<div align=\"center\"><center><table border=\"0\" cellpadding=\"2\"
    cellspacing=\"0\" width=\"303\">
        <tr>
        <td width=\"100%\" align=\"center\">
          <p align=\"center\"><font face=\"Tahoma\" color=\"#000000\" size=\"5\"><b>Admin - Tilføj</b></font><br>
          <a href=\"kalender.asp\"><font
        size=\"1\" face=\"Tahoma\" color=\"#000000\">
          Tilbage til <%= Navn %></font></a> <font color=\"#000000\" face=\"Tahoma\" size=\"1\">
          - </font>
<a href=\"admin.asp?submode=list\"> <font color=\"#000000\" face=\"Tahoma\" size=\"1\"> Ret/slet et event</font>
          </a></p>
          <p><font color=\"#000000\" face=\"Tahoma\" size=\"1\">
          </font>
        </td>
        </tr>
    </center>
        <tr>
            <td width=\"340\" align=\"center\">
              <p align=\"center\"><font color=\"#000000\" face=\"Tahoma\"><font size=\"1\">Overskrift:</font><br>
              <font size=\"2\"
            face=\"Tahoma\"><input type=\"text\" size=\"43\"
            name=\"Navn\"><br>
              <br>
              </font><font size=\"1\"
            face=\"Tahoma\">Email:</font>
              <font size=\"2\"
            face=\"Tahoma\"><br>
              <input type=\"text\" size=\"46\"
            name=\"Email\"></font></font></p>
              <div align=\"center\">
              <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                <tr>
                  <td valign=\"bottom\">
                    <p align=\"left\"><font face=\"Tahoma\" size=\"1\">Dato:&nbsp;<br>
<input type=\"text\" name=\"tdat1\" value=\"<%= tidnu %>\" size=\"8\">
                    </font></p>
                  </td>
                <center>
                  <td valign=\"bottom\">
                    <p align=\"center\"><font face=\"Tahoma\" size=\"1\"><a href=\"java script: showPCalE(\'tdat1\')\"><img border=\"0\" src=\"kalendar.gif\"></a>
                    &nbsp;&nbsp;&nbsp;</font></p>
                  </td>
                </center>
                  <td valign=\"bottom\">
                    <p align=\"left\"><font face=\"Tahoma\" size=\"1\">Til Dato:<br>
                    <input type=\"text\" name=\"tdat2\" value=\"<%= tidnu %>\" size=\"8\">
                    </font></p>
                  </td>
                <center>
                  <td valign=\"bottom\">
                    <p align=\"center\"><a href=\"java script: showPCalE(\'tdat2\')\"><font face=\"Tahoma\" size=\"1\"><img border=\"0\" src=\"kalendar.gif\"></font></a>
                    </p>
                  </td>
                </tr>
              </table>
                </center>
              </div>
            </td>
        </tr>
        <tr>
            <td valign=\"top\" width=\"340\">
              <p align=\"left\"><font size=\"1\" color=\"#000000\" face=\"Tahoma\">Event:</font><font color=\"#000000\" face=\"Tahoma\"><font
            size=\"1\"><br>
              </font><font size=\"2\"
            face=\"Tahoma\"><textarea name=\"Besked\" rows=\"4\"
            cols=\"40\"></textarea>    <input type=\"hidden\" name=\"idfelt\" value=\"<%= idtid %>\" size=\"8\"></font></font></p>
            </td>
        </tr>
    </table>
    </div><p align=\"center\"><font color=\"#000000\" face=\"Tahoma\"><input type=\"submit\"
    name=\"B1\" value=\"[ Tilføj til kalenderen]\"></font></p>
  <table border=\"0\" align=\"center\" width=\"80%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
        </tr>
  </table>
    <p align=\"center\">&nbsp;</p>
</form>

<p><font color=\"#000000\" face=\"Tahoma\"><% elseif Request.QueryString(\"submode\")=\"ret\" then %>
<%
If Session(\"Valid\") = \"\" Then
  Response.redirect \"admin.asp\"
End If
%>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"kalender.mdb\")
strSQL = \"Select * FROM Kalender WHERE ID=\" & TRIM(Request.QueryString(\"id\"))
set rs = Conn.execute(strSQL)
%>
</font></p>
<form action=\"kalender.asp?submode=rettet&id=<%=Rs(\"id\")%>\" method=\"POST\">

<font size=\"2\"
            face=\"Tahoma\">    <input type=\"hidden\" name=\"idfelt\" value=\"<%=RS(\"eventtid\")%>\" size=\"8\"></font>

<div align=\"center\"><center><table border=\"0\" cellpadding=\"2\"
    cellspacing=\"0\" width=\"346\">
        <tr>
        <td width=\"340\" align=\"center\" colspan=\"2\">
          <p align=\"center\"><font face=\"Tahoma\" color=\"#000000\" size=\"5\"><b>Admin - Ret/Aflys</b></font><br>
          <a href=\"config.asp?submode=rettet\"> <font color=\"#000000\" face=\"Tahoma\" size=\"1\"> Tilføj</font>
          </a> <font color=\"#000000\" face=\"Tahoma\" size=\"1\">
          - </font><a href=\"kalender.asp\"><font
        size=\"1\" face=\"Tahoma\" color=\"#000000\">
          Tilbage til <%= Navn %></font></a>
</p>
          <p><font color=\"#000000\" face=\"Tahoma\" size=\"1\">
          </font>
        </td>
        </tr>
    </center>
        <tr>
            <td width=\"166\" align=\"center\" valign=\"bottom\">
              <p align=\"center\"><font color=\"#000000\" face=\"Tahoma\"><font size=\"1\">Navn:</font><br>
              <font size=\"2\"
            face=\"Tahoma\"><b><i><%=RS(\"Navn\")%></b></i>
              </font></font>
                </font>
            </td>
            <td width=\"172\" align=\"center\" valign=\"bottom\">
              <font color=\"#000000\" face=\"Tahoma\">
              <p align=\"center\"><font size=\"1\"
            face=\"Tahoma\">Email:</font>
              <font size=\"2\"
            face=\"Tahoma\"><br>
              <b><i><%=RS(\"Email\")%></b></i>
                </font>
                        </td>
        </tr>
  <tr>
    <font color=\"#000000\" face=\"Tahoma\">
                  <td valign=\"bottom\" width=\"340\" colspan=\"2\" align=\"center\">
                    <font face=\"Tahoma\" size=\"1\">Dato:&nbsp;<br>
<b><i><%=RS(\"Dato\")%>&nbsp;<%=RS(\"TilDato\")%></b></i>
                    </b>
                    </font></p>
                  </td>
                </font>
  </tr>
  <tr>
            <td width=\"340\" align=\"center\" colspan=\"2\">
            </td>
  </tr>
        <tr>
            <td valign=\"top\" width=\"340\" colspan=\"2\">
              <p align=\"center\"><font size=\"1\" color=\"#000000\" face=\"Tahoma\">Event:</font><font color=\"#000000\" face=\"Tahoma\"><font
            size=\"1\"><br>
              </font><font size=\"2\"
            face=\"Tahoma\"><textarea name=\"Besked\" rows=\"4\"
            cols=\"40\"><%=Rs(\"Besked\")%></textarea>    <br>
              </font></font></p>
            </td>
        </tr>
  <tr>
            <td valign=\"middle\" width=\"167\">
              <p align=\"right\"><font size=\"2\"
            face=\"Tahoma\">Aflyst: </font>
            </td>
            <td valign=\"middle\" width=\"173\">
              <font size=\"2\"
            face=\"Tahoma\"><select name=\"Aflyst\" size=\"1\" value=\"<%=RS(\"Aflyst\")%>\">
<option value=\"Nej\">Nej</option>
<option value=\"Ja\">Ja</option>
              </select>    </font>
            </td>
<% if RS(\"Aflyst\") = \"Nej\" then
status = \"IKKE AFLYST !\"
elseif RS(\"Aflyst\") = \"Ja\" then
status = \"AFLYST !\"
end if
%>
  </tr>
  <tr>
            <td valign=\"top\" width=\"340\" colspan=\"2\">
              <p align=\"center\"><font face=\"Tahoma\" color=\"#000000\" size=\"1\">Så
              lige nu  som:
              </font><font face=\"Tahoma\" size=\"1\" color=\"#FF0000\"><b><%= status %></b></font>
            </td>
  </tr>
    </table>
    </div><p align=\"center\"><font color=\"#000000\" face=\"Tahoma\"><input type=\"submit\"
    name=\"B1\" value=\"[ Ret event ]\"></font></p>
  <table border=\"0\" align=\"center\" width=\"80%\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
    </tr>
  </table>
    <p align=\"center\">&nbsp;</p>
</form>

<p><font color=\"#000000\" face=\"Tahoma\"><% elseif Request.QueryString(\"submode\")=\"save\" then %> <%

myDay = Day(Date)
If Len(myDay) = 1 Then myDay = \"0\" & myDay

myMonth = Month(Date)
If Len(myMonth) = 1 Then myMonth = \"0\" & myMonth

mydate = Year(Date) & \"\" & myMonth & \"\" & myDay

if Request.form(\"tdat2\") = Request.form(\"tdat1\") then
tildatoen = \" \"
elseif Request.form(\"tdat2\") < Request.form(\"tdat1\") then
tildatoen = \" \"
else
tildatoen = \" til den \" & Request.form(\"tdat2\")
end if

response.buffer = true

Const adOpenKeyset = 1
Const adLockOptimistic = 3



Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"kalender.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From kalender\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Navn\") = Request.form(\"Navn\")
      rs(\"Email\") = Request.form(\"Email\")
      rs(\"Besked\") = Request.form(\"Besked\")
        rs(\"Dato\") = Request.form(\"tdat1\")
        rs(\"TilDato\") = tildatoen
        rs(\"Tid\") = time()
        rs(\"Aflyst\") = \"Nej\"
      rs(\"eventtid\") = Request.form(\"idfelt\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect \"kalender.asp\"%>
<%end if%>
</font></p>
</body>
Avatar billede zybe Nybegynder
02. oktober 2001 - 21:34 #4
Kanon.... Det var sgu lækkert... Tak for det hurtige arbejde..!!!

/ZyBe
Avatar billede 4b4dk Nybegynder
03. september 2002 - 21:58 #5
Muligt at få tilsendt hele scriptet da det ikke er tilgængeilgt mere.. lige hvad jeg leder efter :) .> Alive@4b4.dk
Avatar billede foreignhelp Nybegynder
26. september 2002 - 15:45 #6
Jeg er også meget interesseret...Mangler meget en god kalender i ASP - på forhånd tak  info@foreignhelp.dk
Avatar billede anehta Nybegynder
09. oktober 2002 - 15:48 #7
Kan jeg også nappe en version af den også :) ??

ml@athena.as
Avatar billede peppino Nybegynder
20. november 2002 - 16:41 #8
kan jeg ikke også lige få det???

morten@peppino.dk
Avatar billede mrg Nybegynder
24. februar 2003 - 15:03 #9
Og måske også mig?

mrg@communicable.dk
Avatar billede stagis Nybegynder
18. marts 2003 - 22:45 #10
Også mig hvis det da er muligt! webmaster@landsbytosser.dk
Avatar billede dudesicko Novice
12. april 2003 - 02:15 #11
Nogen der har fundet denne et sted ?
Ellers må i meget gerne sende den til mig :)
mnms@vip.cybercity.dk

Mange tak :)
Avatar billede visual Nybegynder
14. april 2003 - 02:51 #12
Ja tak hvis du gider sende den til mig også. :-)
info@enovision.dk
Avatar billede mik Nybegynder
15. maj 2003 - 10:54 #13
Hvis du heller ikke har noget imod, må du meget gerne sende en til mig. :-)

På forhånd tak.
Avatar billede mik Nybegynder
15. maj 2003 - 10:56 #14
Jeg glemte mailadressen: mab@abm.dk
Avatar billede lars_frank Nybegynder
09. juni 2003 - 11:09 #15
hm, også mig nu vi er ved det...

BL@bluespot.dk
Avatar billede kbonline Nybegynder
09. juni 2003 - 11:14 #16
tjaa kristian@kbonline.dk

takker
Avatar billede silentbob Nybegynder
24. juni 2003 - 14:48 #17
prøv mnk@wiegaarden.dk, hvis nogen har et godt kalender system i ASP
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester