---
title: "Kalender kopplad till databas."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5732-kalender-kopplad-till-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Brimba"
published: "2000-05-15T13:45:00.000Z"
updated: "2000-05-24T10:07:00.000Z"
replies: 11
views: 309
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/5732-kalender-kopplad-till-databas"
---

# Kalender kopplad till databas.

## #1 — Brimba, 2000-05-15T13:45Z

Hej!

Jag håller på med en kalender, jag vill ha en helt vanlig kalender där man kan skriva in datum (dag/månad/år) och sedan trycka på submitt för att komma till den månaden det året. 
Jag vill sedan att den jämnför med databasen om något datum finns med i den, och om det finns det så skriver gör den en länk av det datumet (siffran) så man kan klicka på den och få upp informationen om det datumet.

Är det någon som har gjort något liknande eller skall man behöva vara kreativ?

Mvh
Patrik

Permalänk: https://www.webforum.nu/p/5732

## #2 — Annelie, 2000-05-15T16:05Z

Ngt sånt här <http://www.annelie.nu/diary.asp> 

Fast jag har "bara" månader men antar att funktionen kan bli den samma ??

Jobbar på en del förändringar på scriptet

KAN ha tagit bort för mkt i slutet då jag hade annat som du ser men kolla om du har ngt anv. av detta script.

Permalänk: https://www.webforum.nu/p/243148

## #3 — Annelie, 2000-05-15T20:53Z

Bara nyfiken på hur detta kunde vara ??

Permalänk: https://www.webforum.nu/p/243149

## #4 — Brimba, 2000-05-16T09:41Z

Det ser bra ut på din sida, men frågan hos mig består. Var kopplar du databasen någonstans och var "kännner" den av om det finns något på det datumet osv?

Sedan undrar jag vad detta gör i din kod:

```
<% sub WriteListBox %>
                      <center>
                      <!--METADATA TYPE="DesignerControl" startspan
                      <OBJECT classid="clsid:B5F0E450-DC5F-11D0-9846-0000F8027CA0" id=Listbox1
                      style="LEFT: 0px; TOP: 0px" dtcid="1">
                      <PARAM NAME="_ExtentX" VALUE="2037">
                      <PARAM NAME="_ExtentY" VALUE="556">
                      <PARAM NAME="id" VALUE="Listbox1">
                      <PARAM NAME="DataSource" VALUE="">
                      <PARAM NAME="DataField" VALUE="">
                      <PARAM NAME="ControlStyle" VALUE="0">
                      <PARAM NAME="Enabled" VALUE="-1">
                      <PARAM NAME="Visible" VALUE="-1">
                      <PARAM NAME="Platform" VALUE="256">
                      <PARAM NAME="UsesStaticList" VALUE="0">
                      <PARAM NAME="RowSource" VALUE="">
                      <PARAM NAME="BoundColumn" VALUE="">
                      <PARAM NAME="ListField" VALUE="">
                      <PARAM NAME="LookupPlatform" VALUE="2">
                      <PARAM NAME="LocalPath" VALUE=""></OBJECT>
                      -->
                      <!--#INCLUDE FILE="_ScriptLibrary/ListBox.ASP"--><SCRIPT LANGUAGE=JavaScript
                      RUNAT=Server>function _Listbox1_ctor(){ CreateListbox('Listbox1', null,
                      null);}</script><% Listbox1.display %>

                      <!--METADATA TYPE="DesignerControl" endspan-->
                      </center>
```

Jag ser inte något användbart.

Har du gjort dagboken själv eller har du hittat den någonstans?
Källa isåfall?

///Patrik

Permalänk: https://www.webforum.nu/p/243150

## #5 — Annelie, 2000-05-16T16:02Z

Självklart har jag gjort den själv , annars skulle jag väl inte ge bort det ?? ;)

Alla mina script är just mina, vill inte ha ngn annans , gillar att jobba själv. Visst hjälp kan man få , men.....

Synd att inget gick att ta då

Permalänk: https://www.webforum.nu/p/243151

## #6 — Annelie, 2000-05-16T16:40Z

det där scriptet du klistrade in är bara "en avslöjan" om att det är gjort i Interdev , det är en Interdev DesignerControl

De andra två frågorna , i scriptet så anropar ju det en annan fil viewday.asp

klickar man på ett datum så kommer ju det upp så här: <http://www.annelie.nu/viewday.asp?day=5/16/2000> 

Dessutom har jag gjort admin sidor till gäst boken och dagboken....dagboken är gjord så att jag varsomhelst kan uppdatera sidan. Bara jag har tillgång till Internet.

Permalänk: https://www.webforum.nu/p/243152

## #7 — Brimba, 2000-05-17T09:12Z

Nu har jag läst igenom scriptet och det har klarnat :)

Nu förstår jag hur du har byggt upp det!
Helt perfekt!

Då vet jag hur jag skall göra, tack!

Jag antar att jag får sno några rader från dig eller?

Mvh
Patrik

Permalänk: https://www.webforum.nu/p/243153

## #8 — Annelie, 2000-05-17T12:28Z

Kan denna förklaring fått dej att klarna ? Ok! Klart du får plocka rader. Nog för att jag kan ha annans matrial hos mej, typ min roliga(tycker jag) texter men de länkar jag till ursprunget ! men scripten jag ger ut både här och hos mej är mina, hojta till om jag kan hjälpa till.

Men jag är nybörjare 2½ månad, tur man har "gubben" att ta till när man kör fast , fast det är som ett nederlag att be han om hjälp så jag ropar hellre på Patrik B

Permalänk: https://www.webforum.nu/p/243154

## #9 — Brimba, 2000-05-23T19:26Z

var gjorde du av scriptet?

När jag skulle använda det för att titta på dina lösningar, så hittar jag det inte längre :(

Skulle du kunna lägga upp det igen eller emaila mig det?

 <patrik@datormaklarna.se> 

///Patrik

Permalänk: https://www.webforum.nu/p/243155

## #10 — Annelie, 2000-05-23T22:02Z

\<%@ Language=VBScript %\>
\<!--#include file="katalog/katalog.asp"--\>
\<% ' VI 6.0 Scripting Object Model Enabled %\>
\<!--#include file="\_ScriptLibrary/pm.asp"--\>
\<%  if StartPageProcessing() Then Response.End() %\>
\<form name="thisForm" METHOD="post"\>
\<html\>
\<head\>
\<title\>--\>Annelie´s dagbok\<--\</title\>

\<script ID="serverEventHandlersVBS" LANGUAGE="vbscript" RUNAT="Server"\>

Sub Listbox1_onchange()
  'Session("Date") = Listbox1.getText(Listbox1.selectedIndex)
End Sub

\</script\>
\</head\>
\<body bgcolor="#f6d9ac" text="#ff9900" link="#666666" vlink="#666666" alink="#666666"\>

\<p align="center"\>\<img border="0" src="katalog/katalog/fil.gif"\>\</p\>

\<p align="center"\>&nbsp;
\<% WriteCounter %\>
\</p\>
\<%
  dim intYear,intMonth
  dim aryYear(12)
  dim aryMonth(12)
  dim first,last

  intYear = Year(Date)     ' Current year
  intMonth = Month(Date)   ' Current month

  for i = 0 to 11
    aryYear(i) = intYear
    aryMonth(i) = intMonth
    intMonth = intMonth - 1
    if intMonth = 0 then
      intYear = intYear - 1
      intMonth = 12
    end if
  next
  ' Check if Listbox is empty
   if Listbox1.getCount()=0 then
    for i = 0 to 2
      Listbox1.addItem  MonthName(aryMonth(i)) & "-" & aryYear(i),cstr(i),i
    next
    Session("Date") = MonthName(Month(Date)) & "-" & Year(Date)
    Listbox1.selectedIndex = 0
  end if

  intYear = aryYear(Listbox1.selectedIndex)     ' Selected Year
  intMonth = aryMonth(Listbox1.selectedIndex)   ' Selected Month

  first = DateSerial(aryYear(Listbox1.selectedIndex), aryMonth(Listbox1.selectedIndex), 1)
  last = DateSerial(aryYear(Listbox1.selectedIndex), aryMonth(Listbox1.selectedIndex)+1, 0)
  
  ' Get number of dates in month
  temp = DateSerial(intYear, intMonth + 1, 0)
  DaysInMonth = Day(temp)

  WriteListBox
  
  ' Write calendar
  Response.Write "\<p\>"
  Response.Write "\<center\>"
  Response.Write "\<table width=490 border=0\>"
  Response.Write "\<tr\>"
  for i = 1 to 7
    Response.Write "\<td bgcolor=#f6d9ac width=70 align=middle height=22\>\<font face=""Arial Narrow"" color=#666666\>\<b\>" & DayName(i) & "\<b\>\</font\>\</td\>"
  next
  Response.Write "\</tr\>"
  Response.Write "\<tr\>"
  intCol = 1
  for i = 1 to Weekday(first,vbMonday)-1
    Response.Write "\<td width=70\> \</td\>"
    intCol = intCol + 1
  next
  for i = 1 to DaysInMonth
    d = intMonth & "/" & i & "/" & intYear
    if DateDiff("d",Date,d) \<= 0 then
      Response.Write "\<td bgcolor=#f6d9ac width=70 align=middle height=22\>\<font face=""Arial Narrow"" color=#666666\>\<b\>\<a href=""fil.asp?day=" & d & """\>" & i & "\</a\>\</b\>\</font\>\</td\>"
    else
      Response.Write "\<td bgcolor=#f6d9ac width=70 align=middle height=22\>\<font face=""Arial Narrow"" color=#666666\>\<b\>" & i & "\</b\>\</font\>\</td\>"
    end if
    intCol = intCol + 1
    if intCol = 8 then
      Response.Write "\</tr\>"
      Response.Write "\<tr\>"
      intCol = 1
    end if
  next
  Response.Write "\</tr\>"
  Response.Write "\</table\>"
  Response.Write "\</center\>"
%\>

\<% sub WriteListBox %\>
\<center\>
\<!--METADATA TYPE="DesignerControl" startspan
\<OBJECT classid="clsid:B5F0E450-DC5F-11D0-9846-0000F8027CA0" id=Listbox1 style="LEFT: 0px; TOP: 0px" dtcid="1"\>
	\<PARAM NAME="\_ExtentX" VALUE="2037"\>
	\<PARAM NAME="\_ExtentY" VALUE="556"\>
	\<PARAM NAME="id" VALUE="Listbox1"\>
	\<PARAM NAME="DataSource" VALUE=""\>
	\<PARAM NAME="DataField" VALUE=""\>
	\<PARAM NAME="ControlStyle" VALUE="0"\>
	\<PARAM NAME="Enabled" VALUE="-1"\>
	\<PARAM NAME="Visible" VALUE="-1"\>
	\<PARAM NAME="Platform" VALUE="256"\>
	\<PARAM NAME="UsesStaticList" VALUE="0"\>
	\<PARAM NAME="RowSource" VALUE=""\>
	\<PARAM NAME="BoundColumn" VALUE=""\>
	\<PARAM NAME="ListField" VALUE=""\>
	\<PARAM NAME="LookupPlatform" VALUE="2"\>
	\<PARAM NAME="LocalPath" VALUE=""\>\</OBJECT\>
\--\>
\<!--#INCLUDE FILE="\_ScriptLibrary/ListBox.ASP"--\>\<SCRIPT LANGUAGE=JavaScript RUNAT=Server\>function \_Listbox1_ctor(){	CreateListbox('Listbox1', null, null);}\</script\>\<% Listbox1.display %\>

\<!--METADATA TYPE="DesignerControl" endspan--\>
\</center\>
\<% end sub 

Function MonthName(intMonth)

  Dim strMonth

  Select Case intMonth
    Case 1
      strMonth = "Januari"
    Case 2
      strMonth = "Februari"
    Case 3
      strMonth = "Mars"
    Case 4
      strMonth = "April"
    Case 5
      strMonth = "Maj"
    Case 6
      strMonth = "Juni"
    Case 7
      strMonth = "Juli"
    Case 8
      strMonth = "Augusti"
    Case 9
      strMonth = "September"
    Case 10
      strMonth = "Oktober"
    Case 11
      strMonth = "November"
    Case 12
      strMonth = "December"
    Case Else
      strMonth = "Out of range"
  End Select
  MonthName = strMonth
  
End Function

Function DayName(intDay)

  Dim strDay

  Select Case intDay
    Case 1
      strDay = "Måndag"
    Case 2
      strDay = "Tisdag"
    Case 3
      strDay = "Onsdag"
    Case 4
      strDay = "Torsdag"
    Case 5
      strDay = "Fredag"
    Case 6
      strDay = "Lördag"
    Case 7
      strDay = "Söndag"
    Case Else
      strMonth = "Out of range"
  End Select
  DayName = strDay
  
End Function

%\>

		   

\</body\>
\<% ' VI 6.0 Scripting Object Model Enabled %\>
\<% EndPageProcessing() %\>
\</form\>
\</html\>

TROR/HOPPAS att jag fått bort det mesta av onödig kod, men dubbelkolla. Skulle göra om lite i scriptet , menhar ej hunnit , vassego.

Permalänk: https://www.webforum.nu/p/243156

## #11 — Brimba, 2000-05-24T08:11Z

Hej!

Du måste väl koppla upp databasen någonstans?

Hur ser din databas ut?
Hur är ditt datum upplagt i databasen?

Eller kollar du bara om dagens datum finns och isåfall skapar den en länk annars skriver den bara ut siffran?

För jag vill ha en som kollar av om det aktuella datumet finns i databasen och finns det så skall den göra länk av siffran annars så står den bara som vanlig siffra, så man kan skilja på dagar som det finns några anteckningar på och dagar som det är tomt.

Tack!

///Patrik

Permalänk: https://www.webforum.nu/p/243157

## #12 — Annelie, 2000-05-24T10:07Z

Maila gärna mej med frågor mm så kan jag skicka dej mer info. Men denna är ju gjord så att jag har en admin sida på nätet där jag skriver dagboken , uppdaterar och så klart. Jag kan EJ skriva ngn dag i förväg utan allt uppdateras vid midnatt så det blir en ny länk. Vid varje månads skifte tas en ny månad fram och jag har 3 månader i stöten....

Kommer ej att vara on så mkt mer nu ett tag, detharvart mkt , dessutom så har en del tråkiga saker inträffat. men ta gärna scriptet och kolla

Permalänk: https://www.webforum.nu/p/243158

---

Tråden på webben: https://www.webforum.nu/amne/asp/5732-kalender-kopplad-till-databas