Søg
Avatar billede agerled Nybegynder
16. marts 2004 - 12:52 Der er 14 kommentarer og
1 løsning

kalender i ASP

Hej er der nogen der ved hvor jeg kan finde koden til en kalender som er bygget op på samme på som på denne side:
http://www.smschancen.dk/sms/kalender.asp

...eksemplet på siden er bare html så den virker ikke.

På forhånd tak.
Avatar billede kbonline Nybegynder
16. marts 2004 - 13:05 #1
muligvis som denne ?
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=546
Avatar billede agerled Nybegynder
16. marts 2004 - 13:07 #2
ja den ligner jo ikke helt. jeg vil også gerne hvae ugenumrene i venstre side..?
Avatar billede deeflate Nybegynder
16. marts 2004 - 16:23 #3
Prøv at vælge dato på denne her side:

http://www.fiduusen.dk/design/kalender.asp

Er det noget lignende det, du skal bruge?
Avatar billede agerled Nybegynder
16. marts 2004 - 16:26 #4
deeflate --> Ja det er faktisk det jeg skal bruge. Jeg skal dog kun bruge det der kommer frem i pop-up vinduet når man trykker på et at de små ikoner. nogen der kan fritlægge koden i det popup vindue så det er lige til at sætte ind.....?

...jeg har prøvet men kan ikke få det til at virke...
Avatar billede deeflate Nybegynder
16. marts 2004 - 16:35 #5
Du skal bruge kalender-popup.asp og de dokumenter, den anvender.
Og så skal du have fjernet de funktioner, der kommunikerer med opener-dokumentet.
Til at starte med kan du fjerne onload i framesettet (<frameset frameborder="0" framespacing="0" rows="*,16" onload="Frameset_Onload();">) og så kan du arbejde dig igennem funktionerne derfra.
Avatar billede agerled Nybegynder
16. marts 2004 - 16:47 #6
Ja jeg har prøvet side og bikse med det, men det er vist desværre for avanceret for mig..
Avatar billede deeflate Nybegynder
20. marts 2004 - 12:33 #7
Undskyld den sene respons.
Har haft ret travlt med arbejde de sidste par dage.

Prøv at skifte indholdet af popup.asp ud med dette her:


<%@ Language=VBScript %>
<%option explicit
Response.Buffer = true
Response.Expires = -1000

dim startdato, FejlTekst, AdvisTekst

'find startdate fra QueryString, brug d.d. hvis ingen angivet
startdato = date
if Request.QueryString("startdato").Count > 0 then
    if (IsDate(Request.QueryString("startdato"))) then
        startdato = CDate(Request.QueryString("startdato"))
    end if
end if

startdato = CheckFirstMonthDay(startdato)
%>

<!-- #include file="kalender-serverscripts.vb" -->
<html>
<head>
<script language="JavaScript" src="kalender-clientscripts.js"></script>
<script LANGUAGE="javascript">
<!--
function Date_Onclick(Dato) {
    //ved klik på dato - her kan du gøre hvad du vil
              alert(Dato);
}

//-->
</script>
<style type="text/css">
<!--
BODY            {    font-family:tahoma,verdana; font-size:10pt;    }
TD                {    text-align:center;    }
.lookupOverskrift        {    font-size: 11px; font-weight: bolder; color: #808080; background-color: #dfdfdf; }
.lookupheader    {    background-color: #efefef;    }
.lookup            {    color: #000080; font-size: 14px; font-weight: normal; background-color: #efefef;    }
.lookupselected    {    background-color: #dfdfff;    }
.lookupWeek        {    background-color: #dfdfdf;    }
.ingen            {    background-color: #e8e8e8;    }
a                {    color: #000080; }
a:hover            {    color: #000080; font-weight: bold; font-size:13px;}
a:LINK            {    text-decoration: none;    }
a:VISITED        {    text-decoration: none;    }
-->
</style>
</head>
<body background="kalender-bg.gif" scroll="no">
<table cellSpacing="2" cellPadding="0" border="0" width="100%">
<tbody class="lookupheader">
<%=WriteMonthYear(startdato)%>
<%=WriteUgeDage(startdato)%>
<%=WriteDage(startdato)%>

</tbody>
</table>
</div>
</body>
</html>



Styles og hvad der sker ved klik på dato skulle være lige til at ændre :)
Er det lidt lettere at overskue nu?
Avatar billede agerled Nybegynder
20. marts 2004 - 12:44 #8
jeg får denne fejl..

Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'fradato'

/sms/kalender-serverscripts.vb, line 49
Avatar billede deeflate Nybegynder
20. marts 2004 - 12:56 #9
ja, det er pga. option explicit
skift

dim startdato, FejlTekst, AdvisTekst

ud med

dim startdato, fradato, tildato, FejlTekst, AdvisTekst
Avatar billede agerled Nybegynder
20. marts 2004 - 13:01 #10
Yes nu ser det ud til at virke. mange mange tak for hjælpen... :-)
Avatar billede deeflate Nybegynder
20. marts 2004 - 13:03 #11
Du skal dog ikke bruge de to variabler til noget, hvis du også rydder lidt op i kalender-serverscripts.vb

omkring linie 49 kan du udkommentere

    'if (fradato <> "" and tildato <> "") then
    '    strLinkTo = strLinkTo & "&fradato=" & fradato & "&tildato=" & tildato
    'end if


og omkring linie 96

        'if (fradato <> "" and tildato <> "" and fradato <= startdato and tildato >= startdato) then
        '    strHTML = strHTML & " class='lookupselected'"
        'end if
Avatar billede deeflate Nybegynder
20. marts 2004 - 13:06 #12
kalender-clientscripts.js er heller ikke tvingende nødvendig, så du kan også fjerne

<script language="JavaScript" src="kalender-clientscripts.js"></script>

i kalender-popup.asp.


Og tak for point :)
Avatar billede deeflate Nybegynder
20. marts 2004 - 13:15 #13
Du skal altså kun bruge kalender-popup.asp, kalender-serverscripts.vb og billederne.

Og i kalender-serverscripts kan du også skifte funktionen

WriteMonthYear()

i linie 46 ud med denne her (uden mode, som jo ikke bliver brugt længere):

Function WriteMonthYear(dato)
dim strHTML, strLinkTo
    strLinkTo = "kalender-popup.asp"
    'if (fradato <> "" and tildato <> "") then
    '    strLinkTo = strLinkTo & "&fradato=" & fradato & "&tildato=" & tildato
    'end if
    startdato = CheckFirstMonthDay(dato)
    strHTML = "<TR class='lookupOverskrift'><td colspan='8'><table width='100%'><tr>"
    strHTML = strHTML & "<td width='10%'><a href='" & strLinkTo & "?startdato=" & startdato-1 & "'><img src='kalender-prev.gif' border='0'></a></td>"
    strHTML = strHTML & "<td width='40%' class='lookupOverskrift'>" & GetMonthText(GetMonth(startdato)) & "&nbsp;</td'>"
    strHTML = strHTML & "<td width='40%' class='lookupOverskrift'>&nbsp;" & GetYear(startdato) & "&nbsp;</td>"
    strHTML = strHTML & "<td width='10%'><a href='" & strLinkTo & "?startdato=" & startdato+31 & "'><img src='kalender-next.gif' border='0'></a></td>"
    strHTML = strHTML & "</tr></table></td></tr>"
    WriteMonthYear = strHTML
End Function


Det er forresten også her (i linie 48), du skal rette, hvis du omdøber kalender-popup.asp :)
Avatar billede agerled Nybegynder
20. marts 2004 - 13:18 #14
Jeg siger endnu engang mange tak. Det er sku ikke tit man støder på en der er så hjælpsom.... mange tak!!
Avatar billede deeflate Nybegynder
20. marts 2004 - 13:22 #15
Jamen, værsågod da :)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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 dag 15:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
I dag 14:16 installere windows på separat diskpartition Af Malm i Windows
I dag 13:43 Problem med mcafee Af Malm i Andet software
I dag 13:39 Er tilstrækkelig antivirus incl på ny Samsung smartphone ? Af annam i Backup- & Antivirus
I går 19:46 Skift fra Microsoft365 til Microsoft 2024 Af 1Dorte i Office & Kontorpakker
White papers
Flere white papers »