CodeBase - Project Browsing

<!--#include file="includes/admin-top.asp"-->
<%
dim jarigeSQL, verj_id, intTeller, isSelected, verj_naam, verj_dag, verj_maand, verj_jaar
dim arrMaandenLang(12), arrDagen(7)
dim rsJarige
 
if (Request.Form("datumwijzigen") <> "") then
	verj_naam = trim(request.Form("verj_naam"))
	verj_dag = trim(request.Form("verj_dag"))
	verj_maand = trim(request.Form("verj_maand"))
	verj_jaar = trim(request.Form("verj_jaar"))
	verj_id = trim(request.Form("verj_id"))
 
	jarigeSQL = "UPDATE tblverjaardag SET verj_naam = '" & verj_naam &"', verj_dag = '" & verj_dag & "', verj_maand = '" & verj_maand & "', verj_jaar = '" & verj_jaar & "' WHERE verj_id = '" & verj_id & "';"
	set rsJarige = Server.CreateObject("ADODB.Recordset")
	rsJarige.Open jarigeSQL, objConn, 0, 1, 1	
 
	response.Redirect ("Admin-verjaardag-beheer.asp")
 
end if
 
 
'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"
 
verj_id = trim(Request.QueryString("verj_id"))
 
if (verj_id <> "") then
	jarigeSQL = "SELECT * FROM tblverjaardag WHERE verj_id = '" & verj_id & "';"
	set rsJarige = Server.CreateObject("ADODB.Recordset")
	rsJarige.Open jarigeSQL, objConn, 0, 1, 1
 
%>
<form name="frmUpdate" method="post" action="Admin-verjaardag-datum.asp">
<input type="hidden" name="verj_id" value="<% response.write(verj_id) %>">
<table width="100%" border="0">
<tr>
	<td class="Body"> Naam jarige: </td>
	<td> <input type="text" class="input" name="verj_naam" value="<% response.write(rsJarige("verj_naam")) %>" size="50"></td>
</tr>
<tr>
	<td class="Body" colspan="2">De naam wordt automatisch vertaald van "JAN SMIT" naar "Jan Smit" (qua hoofdlettergebruik), hoe je de naam ook schrijft.</td>
</tr>
<tr>
	<td class="Body"> Geboortedatum: </td>
	<td> <select name="verj_dag"> 
<%
	intTeller = 1
	isSelected = ""
	do while (intTeller < 32)
		if (intTeller = rsJarige("verj_dag")) then
			isSelected = "selected"
		else 
			isSelected = ""
		end if
		response.Write ("<option value=" & intTeller & " " & isSelected & ">" & intTeller & "</option>\n")
		intTeller = intTeller + 1
	loop
%>
		</select>	
		<select name="verj_maand">
<%
	intTeller = 1
	isSelected = ""
	do while (intTeller < 13)
		if (intTeller = rsJarige("verj_maand")) then
			isSelected = "selected"
		else 
			isSelected = ""
		end if
		response.Write ("<option value=" & intTeller & " " & isSelected & ">" & arrMaandenLang(intTeller) & "</option>\n")
		intTeller = intTeller + 1
	loop
%>		
		</select>
		<select name="verj_jaar">
<%
	intTeller = 1950
	isSelected = ""
	do while (intTeller < year(date()))
		if (intTeller = rsJarige("verj_jaar")) then
			isSelected = "selected"
		else 
			isSelected = ""
		end if
		response.Write ("<option value=" & intTeller & " " & isSelected & ">" & intTeller & "</option>\n")
		intTeller = intTeller + 1
	loop
 
%>	
 
		</select>
	</td>
</tr>
<tr>
	<td> </td>
	<td> <input type="submit" name="datumwijzigen" value="Wijzigen"></td>
</tr>
 
</table>
</form>
<%	
 
end if
 
%>
 
 
 
<!--#include file="includes/admin-bottom.asp"-->