---
title: "Hjälp med kalender?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/52813-hjälp-med-kalender"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-09-10T19:14:47.000Z"
updated: "2002-09-11T09:40:55.000Z"
replies: 7
views: 328
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/52813-hjälp-med-kalender"
---

# Hjälp med kalender?

## #1 — CatZ, 2002-09-10T19:14Z

Så som jag gjort det nu ser det för j-ligt ut Jag vet inte hur jag ska lösa det bara.

![](http://www.sydostra.com/kalender.gif)

Någon som har förslag på hur man kan göra kalendern annorlunda ?

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

## #2 — Palleman, 2002-09-10T20:25Z

Länka varje tabellcell som har något innehåll till en separat sida som visar innehållet istället.

ex.
<http://www.magnus-samuelsson.net/kalender.asp?newDate=2002%2D09%2D22>

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

## #3 — CatZ, 2002-09-10T20:32Z

Håller på med det nu, men det vill sig inte riktigt... får bara ut en dag ur varje månad då. såhär ser koden ut:

```
For iRaderLoop = 1 to iRader
response.write "<tr class=td2>"
For iKolumnerLoop = 1 to iKolumner
If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
Response.Write "<td valign=top>"
Response.Write "<table cellspacing=0 cellpadding=0 border=0 width=""100%"">"
[b]If Not rs.EOF then
If rs("KalDd") = aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) Then
Response.Write "<tr><td class=td3>"
Response.Write "<a href=kalender_visa.asp?ar=" & _
rs("KalYy") & "&manad=" & _
rs("KalMm") & "dag=" & _ 
rs("KalDd") & ">" &_
aKalenderDagar((iRaderLoop -1) * 7 + iKolumnerLoop) & "</a>"
Response.Write "</tr></td>"
rs.MoveNext
iAntalBokningar = iAntalBokningar +1
Else
Response.Write "<tr><td>"
Response.Write aKalenderDagar((iRaderLoop -1) * 7 + iKolumnerLoop)
Response.Write "</td></tr>"
End If
Else
Response.Write "<tr><td>"
Response.Write aKalenderDagar((iRaderLoop -1) * 7 + iKolumnerLoop)
Response.Write "</td></tr>"
End If[/b]
Response.Write "</td></tr>"
Response.Write "</table>"
Response.Write "</td>"
Else
Response.Write "<td class=td1>&nbsp;</td>"
end If
Next
Response.Write "</tr>"
Next
```

och det är ju då givetvis den tjocka delen av koden som är aktuell!

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

## #4 — Palleman, 2002-09-10T20:37Z

Hur ser koden ut då du får resultatet som på bilden här ovan?
\- Du har ju istort sett allt klart med just den biten där...

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

## #5 — CatZ, 2002-09-10T20:38Z

```
For iRaderLoop = 1 to iRader
response.write "<tr class=td2>"
For iKolumnerLoop = 1 to iKolumner
If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
Response.Write "<td valign=top align=right width=""14%"" height=50>"
Response.Write "<table cellspacing=0 cellpadding=0 border=0 width=""100%"">"
Response.Write "<tr><td align=right valign=top><b>"
Response.Write aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop)
Response.Write "</b></td></tr>"
If Not rs.Eof then													
For iSlinga = iRader to iKolumner
If rs("KalDd") = aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) Then
Response.Write "<tr><td valign=top align=left>"
Response.Write "<a href=kalender_visa.asp?id=" & rs("KaID") & ">" & rs("KalTitel") & "</a><br>"
rs.MoveNext

iAntalBokningar = iAntalBokningar +1

if rs.eof then Exit for

Response.Write "</td></tr>"
End If
Next
End If
Response.Write "</table>"
Response.Write "</td>"
Else
Response.Write "<td class=td3>&nbsp;</td>"

end If
Next
Response.Write "</tr>"
Next
```

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

## #6 — Palleman, 2002-09-10T20:50Z

Ok, testa detta istället då:

```
For iRaderLoop = 1 to iRader
	response.write "<tr class=td2>"
  
	For iKolumnerLoop = 1 to iKolumner
  
		If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
			Response.Write "<td valign=top align=right width=""14%"" height=50>"
			Response.Write "<table cellspacing=0 cellpadding=0 border=0 width=""100%"">"
			Response.Write "<tr><td align=right valign=top><b>"
			Response.Write aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop)
			Response.Write "</b></td></tr>"
  
			If Not rs.Eof then													
				For iSlinga = iRader to iKolumner
					If rs("KalDd") = aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) Then
						Response.Write "<tr><td align=right valign=top>"
						Response.Write "<a href=kalender_visa.asp?id="& rs("KaID") &">"& KalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) &"</a>"
						rs.MoveNext
						iAntalBokningar = iAntalBokningar +1
						if rs.eof then Exit for
						Response.Write "</td></tr>"
					End If
				Next
			End If
  
			Response.Write "</table>"
			Response.Write "</td>"
  
		Else
			Response.Write "<td class=td3> </td>"
		end If
  
	Next
  
	Response.Write "</tr>"
  
Next
```

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

## #7 — CatZ, 2002-09-10T21:51Z

Det går inte eftersom dagen skrivs ut 2 gånger

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

## #8 — Palleman, 2002-09-11T09:40Z

Ok, då gör vi ett nytt frest..  :) 

```
For iRaderLoop = 1 to iRader
	Response.Write "<tr class=""td2"">"
  
		For iKolumnerLoop = 1 to iKolumner
  
			If aKalenderDagar((iRaderLoop-1)*7 + iKolumnerLoop) > 0 Then
				Response.Write "<td align=""center"" width=""20"" height=""20"">"
				Response.Write "<table cellspacing=""0"" cellpadding=""0"" border=""0"">"
  
				If Not rs.EOF Then
					If rs("KalDd") = aKalenderDagar((iRaderLoop-1)*7 + iKolumnerLoop) Then
						Response.Write ""&_
						"<tr><td width=""20"" height=""20"" align=""center"" style=""border: solid 1px black;"">"&_
						"<a href=""kalender_visa.asp?is="& rs("KaID") &""">"& aKalenderDagar((iRaderLoop-1)*7 + iKolumnerLoop) &"</a>"&_
						"</td></tr>"
						Recset.MoveNext
						iAntalInbokningar  = iAntalInbokningar + 1
  
					Else
						Response.Write ""&_
						"<tr>"&_
						"<td width=""20"" height=""20"" align=""center"">"& aKalenderDagar((iRaderLoop-1)*7 + iKolumnerLoop) &"</td>"&_
						"</tr>"
  
					End If
      
				Else
					Response.Write ""&_
					"<tr>"&_
					<td width=""20"" height=""20"" align=""center"">"& aKalenderDagar((iRaderLoop-1)*7 + iKolumnerLoop) &"</td>"&_
					"</tr>"
  
				End If
  
			    Response.Write "</table>"
			    Response.Write "</td>"
  
		    Else
		        Response.Write "<td width=""20"" height=""20"" class=""td3"">&-nbsp;</td>"
  
		    End If
  
		Next
  
	Response.Write "</tr>"
  
Next
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/52813-hjälp-med-kalender