---
title: "Kalender."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/123881-kalender"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "zeb"
published: "2005-03-07T15:44:38.000Z"
updated: "2005-03-08T08:47:54.000Z"
replies: 3
views: 330
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/123881-kalender"
---

# Kalender.

## #1 — zeb, 2005-03-07T15:44Z

Hej. Använder ett kalenderscript som jag hittade här på webforum, men jag vill nu kolla för varje datum om 
det stämmer överens med ett par datum i en tabell i databasen. Hur ska jag göra?

```
...databas, recordset etc...

dtmDate = Date()

For i = 1 To WeekDay(DateSerial(Year(dtmDate), Month(dtmDate), "01"), vbMonday) - 1
  Response.Write("<td>&nbsp;</td>" & vbCrLf)
  intCount = intCount + 1
Next

intDays = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(Year(dtmDate), Month(dtmDate), "01"))))

For i = 1 To intDays
  If intCount Mod 7 = 0 AND intCount > 0 Then Response.Write("</tr><tr>" & vbCrLf)
  response.write("<td align=right>")

   'med följande kollar jag om datumet stämmer med recordsetet.
  if day(objRS("blogDate")) = i AND month(objRS("blogDate")) = month(now) then
  response.write("<a href=view.asp?id=" & objRS("blog_id") & ">" & i &"</a>")
  else
  response.write(i)
  end if

  response.write("</td>" & vbCrLf)
  'Response.Write("<td>" & i & "</td>" & vbCrLf)
  intCount = intCount + 1
Next

If intCount Mod 7 > 0 Then
  For i = (intCount Mod 7) + 1 To 7
    Response.Write("<td> </td>" & vbCrLf)
  Next
End If
```

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

## #2 — Poffe, 2005-03-07T16:44Z

Det gör du ju redan med koden

```
 'med följande kollar jag om datumet stämmer med recordsetet.
  if day(objRS("blogDate")) = i AND month(objRS("blogDate")) = month(now) then
  response.write("<a href=view.asp?id=" & objRS("blog_id") & ">" & i &"</a>")
  else
  response.write(i)
  end if
```

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

## #3 — zeb, 2005-03-07T17:42Z

Nja. Var kanske lite oklar. 
Har ju flera datum i databasen och som det är nu kommer den bara visa det sista. Skulle behöva loopa igenom databasen på någonvänster för att kolla på varje datum.

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

## #4 — J.N., 2005-03-08T08:47Z

HEJ!

Jag håller med Poffe.
Om nu koden kollar mot ett recordset med händelser får du stega fram ett steg i rs:et när du har samma datum, för att i nästa varv kolla om nästa datum finns med i rs:et osv.

Eventuellt menar du kanske att samma datum har flera olika händelser, dvs när du stegar fram från ett sådant datum kommer du inte få fler träffar, eftersom datumloopen fortsätter framåt?

Lös det på följande sätt:
\- antingen genom att sätta DISTINCT i sql:en, och länka till en sida som visar alla händelser
\- kontrollera att nästa datum inte är samma som aktuellt, isåfall skriv ut den händelsen också osv

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/123881-kalender