home - projects - login - links

Project: ScoutsLint.be V1: Verjaardagskalender

Location: root /

File: Admin-verjaardag-beheer.asp

expand uitklappen
  1. <!--#include file="includes/admin-top.asp"-->
  2. <%
  3. dim jarigenSQL, strJarigeMaand, intJarigeMaand, intJarigeDag, strJarigeDag, intTeller, intTeller2
  4. dim arrMaandenLang(12), arrDagen(7), arrMaandenContent(12, 150)
  5. dim rsAlleJarigen
  6.  
  7. 'Random stuff
  8. arrMaandenLang(1) = "januari"
  9. arrMaandenLang(2) = "februari"
  10. arrMaandenLang(3) = "maart"
  11. arrMaandenLang(4) = "april"
  12. arrMaandenLang(5) = "mei"
  13. arrMaandenLang(6) = "juni"
  14. arrMaandenLang(7) = "juli"
  15. arrMaandenLang(8) = "augustus"
  16. arrMaandenLang(9) = "september"
  17. arrMaandenLang(10) = "oktober"
  18. arrMaandenLang(11) = "november"
  19. arrMaandenLang(12) = "december"
  20.  
  21. arrDagen(1) = "zondag"
  22. arrDagen(2) = "maandag"
  23. arrDagen(3) = "dinsdag"
  24. arrDagen(4) = "woensdag"
  25. arrDagen(5) = "donderdag"
  26. arrDagen(6) = "vrijdag"
  27.  
  28. 'Query-stuff
  29. jarigenSQL = "SELECT * FROM tblverjaardag ORDER BY verj_maand, verj_dag, verj_naam ASC"
  30. set rsAlleJarigen = Server.CreateObject("ADODB.Recordset")
  31. rsAlleJarigen.Open jarigenSQL, objConn, 0, 1, 1
  32.  
  33. if (rsAlleJarigen.EOF) then
  34. 	response.Write ("Er zijn geen jarigen gevonden in de database.")
  35. else
  36. 	intJarigeMaand = -1
  37. 	intJarigeDag = -1
  38. 	intTeller = 0
  39. 	intTeller2 = 1
  40. 	do while not (rsAlleJarigen.EOF)
  41. 		if (rsAlleJarigen("verj_maand") <> intJarigeMaand) then
  42. 			'Nieuwe maand, titeltje weergeven
  43. 			intTeller = intTeller + 1
  44. 			intTeller2 = 1
  45. 			arrMaandenContent(intTeller, intTeller2) = "<table><tr><td colspan=2 class='Tabel_hoofding' align='left'>" & arrMaandenLang(rsAlleJarigen("verj_maand")) & "</td></tr>"
  46. 			intJarigeMaand = rsAlleJarigen("verj_maand")
  47. 		end if
  48.  
  49. 		if (rsAlleJarigen("verj_dag") = intJarigeDag) then
  50. 			'Deze verjaart op dezelfde dag als degene voor hem
  51. 			strJarigeDag = ""
  52. 		else
  53. 			strJarigeDag = "<a href='Admin-verjaardag-comments.asp?vDag=" & rsAlleJarigen("verj_dag") & "&vMaand=" & rsAlleJarigen("verj_maand") & "'>" & rsAlleJarigen("verj_dag") & "</a>"
  54. 		end if
  55. 		intJarigeDag = rsAlleJarigen("verj_dag")
  56.  
  57. 		arrMaandenContent(intTeller, intTeller2+1) = "<tr> <td class=body width='4%'><b>" & strJarigeDag & "</b> </td>"
  58. 		arrMaandenContent(intTeller, intTeller2+2) = "<td class=body>" & PropereNaam(rsAlleJarigen("verj_naam")) & " (<a href='Admin-verjaardag-datum.asp?verj_id=" & rsAlleJarigen("verj_id") & "'>edit</a>), " &  (year(date()) - rsAlleJarigen("verj_jaar"))& " jaar</td> </tr>"
  59. 		intTeller2 = intTeller2 + 3
  60.  
  61.  
  62. 		rsAlleJarigen.MoveNext
  63. 	loop
  64.  
  65. %>
  66. <h2>Alle jarigen</h2>
  67. <table border="0" width="550" cellspacing="0" cellpadding="0" ID="Table1">
  68. <%
  69. 	'Nu geven we ze per 2 maanden weer
  70. 	if (isarray(arrMaandenContent)) then
  71. 		intTeller = 1
  72.  
  73. 		do while (intTeller < 13) 
  74. 			intTeller2 = 1
  75. 			' Eerste kolom
  76. 			response.Write ("<tr><td valign=top>")
  77. 			do while (intTeller2 < 150)
  78. 				response.Write (arrMaandenContent(intTeller, intTeller2))
  79. 				intTeller2 = intTeller2 + 1
  80. 			loop			
  81. 			response.Write ("</table></td><td valign=top>")
  82. 			intTeller2 = 0
  83. 			do while (intTeller2 < 150)
  84. 				response.Write (arrMaandenContent(intTeller+1, intTeller2))
  85. 				intTeller2 = intTeller2 + 1
  86. 			loop
  87. 			response.Write ("</table></td></tr>")
  88.  
  89. 			intTeller = intTeller + 2	
  90.  
  91. 		loop
  92.  
  93. 	end if
  94. %>
  95. </table>
  96.  
  97. <%
  98. end if
  99. %>
  100.  
  101.  
  102.  
  103. <!--#include file="includes/admin-bottom.asp"-->