CodeBase - Project Browsing

<!--#include file="includes/top.asp"-->
<%
Dim verj_dag, verj_maand, verj_sql, verj_sql_comment, verj_datum, verj_weekdag
Dim rsJarigenLang, rsJarigenComment
Dim arrMaandenLang(12), arrDagen(7)
 
verj_dag = Request.QueryString ("vDag")
verj_maand = Request.QueryString ("vMaand")
verj_datum = verj_maand & "/" & verj_dag & "/" & 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"
 
'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="Verjaardagen.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>
</tr>
<tr>
	<td class="Roddel_onder"><i> Geplaatst door <% response.Write (rsJarigenComment("comment_naam")) %> op <% response.Write (rsJarigenComment("comment_date")) %></i></td>
</tr>
</table> <br />
<%		
		rsJarigenComment.MoveNext
	loop
end if
%>
 
<h3>Bericht plaatsen</h3>
<form name="frmComment" action="Verjaardag_comment_process.asp" method="post">
<table width=70% border=0 cellspacing="0" cellpadding="2">
<input type="hidden" name="comm_maand" value="<% response.Write (verj_maand) %>">
<input type="hidden" name="comm_dag" value="<% response.write (verj_dag) %>">
<tr>
	<td class="Body" valign="top">Naam: </td>
	<td width="70%"><input type="text" class="input" name="comment_naam" size="60"> </td>
</tr>
<tr>
	<td class="Body" valign="top" colspan="2">Vul bij code het antwoord op onderstaande vraag in: *<br />Hoeveel is twee maal twee? (tip: vier)</td>
</tr>
<tr>
	<td class="Body" valign="top">Code:</td>
	<td width="70%"><input type="text" class="input" name="comment_code" value="" ID="Text1"> </td>
</tr>
<tr>
	<td class="Body" valign="top">Bericht: </td>
	<td width="70%"><textarea class="input" name="comment_text" rows="8" cols="69"></textarea></td>
</tr>
 
<tr>
	<td class="Body" valign="top"></td>
	<td width="70%"><input type="submit" name="commentplaatsen" value="Bericht plaatsen"> </td>
</tr>
<tr>
	<td class="Body" valign="top" colspan="2"><i><br /><br />* Deze code dient om zogeheten "bots" tegen te gaan, programma's die volautomatisch formulieren invullen op het web, om zo een malafide site te adverteren.</i></td>
</tr>
</table>
</form>
 
<%
 
%>
<!--#include file="includes/bottom.asp"-->