---
title: "Kalender & databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/125346-kalender-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2005-03-29T16:18:25.000Z"
updated: "2005-03-30T20:20:50.000Z"
replies: 5
views: 466
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/125346-kalender-databas"
---

# Kalender & databas

## #1 — voigtann1, 2005-03-29T16:18Z

Jag kör denna kod:

```
for i = 1 to intDays
  if intcount mod 7 = 0 and intcount > 0 then response.write "</tr><tr>"
    if i = day(date()) and mdate = month(now()) and ydate = year(now()) then
      response.write "<td align='center' style='background-color:" &color(2)&";'><b>" & I &"</b></td>"
    else
      response.write "<td align='center' Style='color:#003399'>" & I &"</td>"
    end if
  intcount = intcount + 1
next
```

Sen kör jag med databas koppling:

```
SQL = "Select * from Hello where MONTH(str_date) = " &month(dtmDate)& " and year(str_date) = " &year(dtmDate)& ""
set recset = conn.execute(SQL)
if not recset.eof then
arrmonth = recset.getrows()
```

men hur gör jag nu så att OM det finns ett datum vid den månad i databasen så ska den bli en länk... blir ju en for sats men jag vet inte riktigt hur man ska göra det för att få in datan.

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

## #2 — Jesper T, 2005-03-30T06:57Z

Skicka in dina datum i en array.

```
Dim dtmArray(31)
		
SQL = "Select str_date from Hello where MONTH(str_date) = " & month(dtmDate) & " and year(str_date) = " & year(dtmDate)& ""
set recset = conn.execute(SQL)
If not recset.eof Then arrmonth = recset.getrows()

If IsArray(arrmonth) Then
	For z = 0 To ubound(arrmonth,2)
		temp=day(arrmonth(0,z))
		dtmArray(temp) = "<a href=""?datum="& FormatDateTime(arrcalRS(0,z),2) &""">"& temp &"</a>"
	Next
End if

For i = 1 to intDays
  if intcount mod 7 = 0 And intcount > 0 Then response.write "</tr><tr>"
    If i = day(date()) And mdate = month(now()) And ydate = year(now()) Then
      response.write "<td align='center' style='background-color:" & color(2) &";'><b>" & dtmArray(i) &"</b></td>"
    Else
      response.write "<td align='center' Style='color:#003399'>" & dtmArray(i) &"</td>"
    End if
  intcount = intcount + 1
Next
```

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

## #3 — voigtann1, 2005-03-30T07:28Z

fungera nästan 100%... dock om man inte har något datum i databasen så skrivs den inte ut i huvudtaget..

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

## #4 — voigtann1, 2005-03-30T07:33Z

Kanske inte den bästa lösningen:

```
dim tal
for i = 1 to intDays
if len(dtmArray(i)) > 0 then
tal = dtmArray(i)
else
tal = i
end if
```

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

## #5 — Jesper T, 2005-03-30T07:47Z

Du kan "förfylla" arrayen först i stället.

```
For a = 0 To intDays
    dtmArray(a) = a
Next

If IsArray(arrmonth) Then
...
```

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

## #6 — voigtann1, 2005-03-30T20:20Z

Fungera ännu bättre!

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

---

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