Hjälp med kalender?

ASP

7 svar · 323 visningar · startad av CatZ 10 sep. 2002

CatZMedlem sedan jan. 20022 440 inlägg

Frågan10 sep. 2002 19:14#1

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

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

PallemanMedlem sedan dec. 2000557 inlägg

10 sep. 2002 20:25#2

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-09-22

CatZMedlem sedan jan. 20022 440 inlägg

10 sep. 2002 20:32#3

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!

PallemanMedlem sedan dec. 2000557 inlägg

10 sep. 2002 20:37#4

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...

CatZMedlem sedan jan. 20022 440 inlägg

10 sep. 2002 20:38#5

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

PallemanMedlem sedan dec. 2000557 inlägg

10 sep. 2002 20:50#6

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

CatZMedlem sedan jan. 20022 440 inlägg

10 sep. 2002 21:51#7

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

PallemanMedlem sedan dec. 2000557 inlägg

11 sep. 2002 09:40#8

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