Søg
Avatar billede jmc Nybegynder
03. maj 2005 - 20:35 Der er 2 kommentarer og
1 løsning

en kalender til at vælge dato

Dette script viser ikke rigtige datoer, er der en som kan gennemsmue hvad er galt?

<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 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>
Avatar billede jonashn Nybegynder
03. maj 2005 - 21:31 #1
Øhh... <SCRIPT language=vbscript> er det JS??? ;-|
I dine TD's kalder du java script:etellerandet. Er det ikke vbscript: cmonth(x)? (gætter bare :-D)
I din <TABLE class="cal" bgColor=black cellPadding=0 cellSpacing=0 height=120> vil jeg på det kraftigste råde dig til at bruge anførselstegn, selv om det er numre, f.eks. <TABLE class="cal" bgColor="black" cellPadding="0" cellSpacing="0" height="120">
Avatar billede jmc Nybegynder
03. maj 2005 - 21:36 #2
Det virkede ikke desværre, jeg poster hele dokumentet så du selv kan se at man tirs ons osv. passer ikke med datoer resten er ok.


<!-- #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><%= navn %></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")="" 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>
          Tilf&oslash;j </font></a><font size="1" face="Tahoma" color="#000000">
          - </font><font face="Tahoma" size="1"><a href="kalender.asp?submode=mere"><font color="#000000">Se
          listen over de kommende dage !!</font></a></font></p>
            <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><center><font face=""Tahoma"" size=""2""><i>Der er ingen events i dag !!<br>Se listen over de kommende dage !!<br><br></i></font>"
else
Do Until rs.EOF

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

<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 width="50%"><font color="#000000" face="Tahoma"><b><font size="2"><font color="#FF0000" face="Tahoma" size="4"><%= status %></font></font><font size="2">Dato:</font></b><font size="2"> <%= bstart %><%=RS("Dato")%><%=RS("TilDato")%><%= bend %></font></font></td>
           
              <td width="50%">
                <p align="right"><a        href="mailto:<%=RS("Email")%>"><font color="#000000" face="Tahoma"><strong><font size="2">Oprettet af:</font></strong> <font size="2"> <%=RS("Navn")%></font></font></a></td>
            </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>
      <td width="100%">
        <p align="center"><font color="#C0C0C0"><%= Footer %></font></td>
    </tr>
  </table>
<p><font color="#000000" face="Tahoma"><% end if %><% if Request.QueryString("submode")="mere" 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>
          Tilf&oslash;j </font></a><font size="1"> - </font><font face="Tahoma" size="1"><a href="kalender.asp"><font color="#000000">Se
          dagen i dag !!</font></a></font></p>
          <p><font color="#000000" face="Tahoma" size="1"><br>
          <b> De kommende dages arrangementer:</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>Der er ingen kommende arrangementer i kalenderen endnu !!<br><br></i></font>"
else
Do Until rs.EOF

%>
<% 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 width="50%"><font color="#000000" face="Tahoma"><b><font size="2"><font color="#FF0000" face="Tahoma" size="4"><%= status %></font></font><font size="2">Dato:</font></b><font size="2"> <%= bstart %><%=RS("Dato")%><%=RS("TilDato")%><%= bend %></font></font></td>
            </center>
              <td width="50%">
                <p align="right"><a        href="mailto:<%=RS("Email")%>"><font color="#000000" face="Tahoma"><strong><font size="2">Oprettet af:</font></strong> <font size="2"> <%=RS("Navn")%></font></font></a></td>
            </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>
      <td width="100%">
        <p align="center"><font color="#C0C0C0"><%= Footer %></font></td>
    </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 arrangement</font>
          </a></p>
          <p><font color="#000000" face="Tahoma" size="1">
          </font>
        </td>
        </tr>
   
        <tr>
            <td width="340" align="center">
              <p align="center"><font color="#000000" face="Tahoma"><font size="1">Navn:</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>
               
          </div>
            </td>
        </tr>
        <tr>
            <td valign="top" width="340">
              <p align="left"><font size="1" color="#000000" face="Tahoma">Arrangement:</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>
      <td width="100%" align="center">
        <p align="center"><font color="#C0C0C0"><%= Footer %></font></td>
    </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>
   
        <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> </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> </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> </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">Arrangement:</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 arrangementet ]"></font></p>
  <table border="0" align="center" width="80%" cellspacing="0" cellpadding="0">
    <tr>
      <td width="100%" align="center">
        <p align="center"><font color="#C0C0C0"><%= Footer %></font></td>
    </tr>
  </table>
</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 jmc Nybegynder
20. oktober 2005 - 09:42 #3
lukker
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
Webudvikling kurser
Vi tilbyder markedets bedste kurser inden for webudvikling
Se alle Webudvikling kurser

Flere spørgsmål fra JavaScript kategorien

Titel Indlæg Oprettet Seneste aktivitet
problem med download i <a href=" " download> tag i JavaScript Af Peer i JavaScript 5 27/04/202620:09 03/05/202613:59
Validering af filnavn i formular Af Strawberry i JavaScript 8 14/04/202610:11 20/04/202611:14
Mangler et JavaScript til htm side med iframe i Joomla5 Af Peder Lund Nielsen i JavaScript 2 03/02/202614:19 04/04/202616:02
Åbne en PDF fil fra en mappe Af mbl i JavaScript 9 18/04/202516:52 22/04/202512:33
Spørgsmål til cookies Af Mads i JavaScript 2 14/02/202511:47 27/06/202514:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »