CodeBase - Project Browsing

<!--#include file="includes/admin-top.asp"-->
<%
Dim verj_dag, verj_maand, verj_sql, verj_sql_comment, verj_datum, verj_weekdag, comment_id
Dim rsJarigenLang, rsJarigenComment
Dim arrMaandenLang(12), arrDagen(7)
 
verj_dag = Request.QueryString ("vDag")
verj_maand = Request.QueryString ("vMaand")
verj_datum = verj_dag & "/" & verj_maand & "/" & year(date())
verj_weekdag = DatePart("w", verj_datum) 
 
'Random stuff
arrMaandenLang(1) = "januari"
arrMaandenLang(2) = "februari"
arrMaandenLang(3) = "maart"
arrMaandenLang(4) = "april"
arrMaandenLang(5) = "mei"
arrMaandenLang(6) = "juni"
arrMaandenLang(7) = "juli"
arrMaandenLang(8) = "augustus"
arrMaandenLang(9) = "september"
arrMaandenLang(10) = "oktober"
arrMaandenLang(11) = "november"
arrMaandenLang(12) = "december"
 
arrDagen(1) = "zondag"
arrDagen(2) = "maandag"
arrDagen(3) = "dinsdag"
arrDagen(4) = "woensdag"
arrDagen(5) = "donderdag"
arrDagen(6) = "vrijdag"
arrDagen(7) = "zaterdag"
 
if (Request.QueryString("action") = "del") then
	' comment verwijderen
	comment_id = trim(Request.QueryString("comment_id"))
	verj_sql = "DELETE FROM tblverjaardagcomment WHERE comment_id = '" & comment_id & "';"
	set rsJarigenComment = Server.CreateObject("ADODB.Recordset")
	rsJarigenComment.open verj_sql, objConn, 0, 1, 1
 
	response.Redirect("Admin-verjaardag-comments.asp?vDag=" & request.QueryString("vDag") & "&vMaand=" & request.QueryString("vMaand"))
end if
'Queries opbouwen
verj_sql = "SELECT * FROM tblverjaardag WHERE verj_dag = '" & verj_dag & "' AND verj_maand = '" & verj_maand & "' ORDER BY verj_naam;"
verj_sql_comment = "SELECT * FROM tblverjaardagcomment WHERE comment_dag = '" & verj_dag & "' AND comment_maand = '" & verj_maand & "' ORDER BY comment_id ASC;"
 
set rsJarigenLang = Server.CreateObject("ADODB.Recordset")
set rsJarigenComment = Server.CreateObject("ADODB.Recordset")
rsJarigenLang.Open verj_sql, objConn, 0, 1, 1
rsJarigenComment.Open verj_sql_comment, objConn, 0, 1, 1
 
 
%>
<h2>Jarigen op <% response.write (arrDagen(verj_weekdag) & " " & verj_dag & " " & arrMaandenLang(verj_maand)) %> </h1>
 
<%
if (rsJarigenLang.EOF) then
	response.Write ("Er verjaart niemand.")
else
	do while not rsJarigenLang.EOF 
		response.Write (PropereNaam(rsJarigenLang("verj_naam")) & " (" & (year(date()) - rsJarigenLang("verj_jaar")) &" jaar)<br />")
		rsJarigenLang.MoveNext
	loop
 
end if
%>
<br />
Terug naar het <a href="Admin-verjaardag-beheer.asp">overzicht</a>
<h3>Berichten</h3>
<%
if (rsJarigenComment.EOF) then
	response.Write ("<table width=100% border=0 cellspacing=0 cellpadding=2><tr><td class='Roddel_Boven'>Nog geen berichten geplaatst.</td></tr></table>")
else
	do while not rsJarigenComment.EOF 
%>
<table width=100% border="0" cellspacing="0" cellpadding="2" ID="Table1">
<tr> 
	<td class="Roddel_Boven"><% response.write (rsJarigenComment("comment_text")) %></td>
	<td width="5%"><a href="Admin-verjaardag-comments.asp?action=del&comment_id=<%=rsJarigenComment("comment_id")%>&vDag=<%=verj_dag%>&vMaand=<%=verj_maand%>" onclick="javascript:return confirm('Ben je zeker dat je dit bericht wil verwijderen?');"><img src="images/delete.gif" border="0"></td>
</tr>
<tr>
	<td class="Roddel_onder" colspan="2"><i> Geplaatst door <% response.Write (rsJarigenComment("comment_naam")) %> op <% response.Write (rsJarigenComment("comment_date")) %></i></td>
</tr>
</table> <br />
<%		
		rsJarigenComment.MoveNext
	loop
end if
%>
 
<%
 
%>
<!--#include file="includes/admin-bottom.asp"-->