File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/beheer/asp/algemeen/bewerken-leraar.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Session.LCID = 1043 'Dutch regional setttings %>
<!--#include virtual="/Connections/INDOORSKI_WRITER.asp"-->
<!--#include virtual="/Connections/INDOORSKI_READER.asp"-->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "update-leraar") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_INDOORSKI_WRITER_STRING
MM_editCmd.CommandText = "UPDATE TABEL_LERAREN SET voornaam = ?, achternaam = ?, woonplaats = ?, geboortedatum = ?, burgelijkestaat = ?, kinderen = ?, emailadres = ?, algemeneopleiding = ?, sneeuwopleiding = ?, sneeuwervaring = ?, hobbys = ?, favgebied = ?, mooisteervaring = ?, ultimekick = ?, algemeen = ?, eigensite = ?, skileraar = ?, boardleraar = ? WHERE id = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("voornaam")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("achternaam")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("woonplaats")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("gebdatum"), Request.Form("gebdatum"), null)) ' adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("burgelijkestaat")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("kinderen")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("emailadres")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("algemeneopleiding")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("sneeuwopleiding")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("sneeuwervaring")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 255, Request.Form("hobbys")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 255, Request.Form("favgebied")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 255, Request.Form("mooisteervaring")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 255, Request.Form("ultimekick")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 255, Request.Form("algemeen")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 100, Request.Form("eigensite")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 5, 1, -1, MM_IIF(Request.Form("skileraar"), 1, 0)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 5, 1, -1, MM_IIF(Request.Form("boardleraar"), 1, 0)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "/beheer/asp/gelukt.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim WIJZIGEN_LERAAR__MMColParam
WIJZIGEN_LERAAR__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
WIJZIGEN_LERAAR__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim WIJZIGEN_LERAAR
Dim WIJZIGEN_LERAAR_cmd
Dim WIJZIGEN_LERAAR_numRows
Set WIJZIGEN_LERAAR_cmd = Server.CreateObject ("ADODB.Command")
WIJZIGEN_LERAAR_cmd.ActiveConnection = MM_INDOORSKI_WRITER_STRING
WIJZIGEN_LERAAR_cmd.CommandText = "SELECT * FROM TABEL_LERAREN WHERE id = ?"
WIJZIGEN_LERAAR_cmd.Prepared = true
WIJZIGEN_LERAAR_cmd.Parameters.Append WIJZIGEN_LERAAR_cmd.CreateParameter("param1", 5, 1, -1, WIJZIGEN_LERAAR__MMColParam) ' adDouble
Set WIJZIGEN_LERAAR = WIJZIGEN_LERAAR_cmd.Execute
WIJZIGEN_LERAAR_numRows = 0
%>
<%
Dim SELECTEER_KINDEREN
Dim SELECTEER_KINDEREN_cmd
Dim SELECTEER_KINDEREN_numRows
Set SELECTEER_KINDEREN_cmd = Server.CreateObject ("ADODB.Command")
SELECTEER_KINDEREN_cmd.ActiveConnection = MM_INDOORSKI_READER_STRING
SELECTEER_KINDEREN_cmd.CommandText = "SELECT KINDEREN FROM TABEL_SELECTEER WHERE (KINDEREN <> N'Null')"
SELECTEER_KINDEREN_cmd.Prepared = true
Set SELECTEER_KINDEREN = SELECTEER_KINDEREN_cmd.Execute
SELECTEER_KINDEREN_numRows = 0
%>
<%
Dim SELECTEER_BURGSTAAT
Dim SELECTEER_BURGSTAAT_cmd
Dim SELECTEER_BURGSTAAT_numRows
Set SELECTEER_BURGSTAAT_cmd = Server.CreateObject ("ADODB.Command")
SELECTEER_BURGSTAAT_cmd.ActiveConnection = MM_INDOORSKI_READER_STRING
SELECTEER_BURGSTAAT_cmd.CommandText = "SELECT BURGSTAAT FROM TABEL_SELECTEER WHERE (BURGSTAAT <> N'Null')"
SELECTEER_BURGSTAAT_cmd.Prepared = true
Set SELECTEER_BURGSTAAT = SELECTEER_BURGSTAAT_cmd.Execute
SELECTEER_BURGSTAAT_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="/beheer/css/beheer.css" rel="stylesheet" type="text/css" />
<link href="/beheer/css/forms.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function YY_checkform() { //v4.71
//copyright (c)1998,2002 Yaromat.com
var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
for (i=1; i<a.length;i=i+4){
if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
v=o.value;t=a[i+2];
if (o.type=='text'||o.type=='password'||o.type=='hidden'){
if (r&&v.length==0){err=true}
if (v.length>0)
if (t==1){ //fromto
ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
} else if (t==2){
rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
} else if (t==3){ // date
ma=a[i+1].split("#");at=v.match(ma[0]);
if(at){
cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
dte=new Date(cy,cm,cd);
if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
}else{err=true}
} else if (t==4){ // time
ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
} else if (t==5){ // check this 2
if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
if(!o1.checked){err=true}
} else if (t==6){ // the same
if(v!=MM_findObj(a[i+1]).value){err=true}
}
} else
if (!o.type&&o.length>0&&o[0].type=='radio'){
at = a[i].match(/(.*)\[(\d+)\].*/i);
o2=(o.length>1)?o[at[2]]:o;
if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
if (t==2){
oo=false;
for(j=0;j<o.length;j++){oo=oo||o[j].checked}
if(!oo){s+='* '+a[i+3]+'\n'}
}
} else if (o.type=='checkbox'){
if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
} else if (o.type=='select-one'||o.type=='select-multiple'){
if(t==1&&o.selectedIndex/1==0){err=true}
}else if (o.type=='textarea'){
if(v.length<a[i+1]){err=true}
}
if (err){s+='* '+a[i+3]+'\n'; err=false}
}
if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}
document.MM_returnValue = (s=='');
}
//-->
</script>
</head>
<body topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" class="BEH-Style01"><br />
Wijzigen Leraar </td>
</tr>
<tr>
<td background="/image/container-lijn.PNG"><img src="/image/container-lijn.PNG" width="11" height="9" /></td>
</tr>
<tr>
<td height="20"><br />
<form action="<%=MM_editAction%>" method="POST" name="update-leraar" id="update-leraar" onsubmit="YY_checkform('update-leraar','burgelijkestaat','#q','1','Selecteer een optie in het veld \'Burgelijkestaat\'','kinderen','#q','1','Selecteer een optie in het veld \'Kinderen\'');return document.MM_returnValue">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="24%" height="25" class="BEH-Style03">Voornaam:</td>
<td width="76%"><label>
<input name="voornaam" type="text" class="inputborder_normaal" id="voornaam" value="<%=(WIJZIGEN_LERAAR.Fields.Item("voornaam").Value)%>" />
</label></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Achternaam:</td>
<td><input name="achternaam" type="text" class="inputborder_normaal" id="achternaam" value="<%=(WIJZIGEN_LERAAR.Fields.Item("achternaam").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Woonplaats:</td>
<td><input name="woonplaats" type="text" class="inputborder_normaal" id="woonplaats" value="<%=(WIJZIGEN_LERAAR.Fields.Item("woonplaats").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Geboortedatum:</td>
<td><input name="gebdatum" type="text" class="inputborder_normaal" id="gebdatum" value="<%=(WIJZIGEN_LERAAR.Fields.Item("geboortedatum").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Burgelijkestaat:</td>
<td><label>
<select name="burgelijkestaat" class="inputborder_klein" id="burgelijkestaat">
<option value="Selecteer" selected="Selecteer">Selecteer</option> <%
While (NOT SELECTEER_BURGSTAAT.EOF)
%>
<option value="<%=(SELECTEER_BURGSTAAT.Fields.Item("BURGSTAAT").Value)%>" <%If (Not isNull((WIJZIGEN_LERAAR.Fields.Item("burgelijkestaat").Value))) Then If (CStr(SELECTEER_BURGSTAAT.Fields.Item("BURGSTAAT").Value) = CStr((WIJZIGEN_LERAAR.Fields.Item("burgelijkestaat").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(SELECTEER_BURGSTAAT.Fields.Item("BURGSTAAT").Value)%></option>
<%
SELECTEER_BURGSTAAT.MoveNext()
Wend
If (SELECTEER_BURGSTAAT.CursorType > 0) Then
SELECTEER_BURGSTAAT.MoveFirst
Else
SELECTEER_BURGSTAAT.Requery
End If
%>
</select>
</label></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Kinderen:</td>
<td><label>
<select name="kinderen" class="inputborder_klein" id="kinderen">
<option value="Selecteer" selected="Selecteer">Selecteer</option><%
While (NOT SELECTEER_KINDEREN.EOF)
%>
<option value="<%=(SELECTEER_KINDEREN.Fields.Item("KINDEREN").Value)%>" <%If (Not isNull((WIJZIGEN_LERAAR.Fields.Item("kinderen").Value))) Then If (CStr(SELECTEER_KINDEREN.Fields.Item("KINDEREN").Value) = CStr((WIJZIGEN_LERAAR.Fields.Item("kinderen").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(SELECTEER_KINDEREN.Fields.Item("KINDEREN").Value)%></option>
<%
SELECTEER_KINDEREN.MoveNext()
Wend
If (SELECTEER_KINDEREN.CursorType > 0) Then
SELECTEER_KINDEREN.MoveFirst
Else
SELECTEER_KINDEREN.Requery
End If
%>
</select>
</label></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">E-mailadres:</td>
<td><input name="emailadres" type="text" class="inputborder_normaal" id="emailadres" value="<%=(WIJZIGEN_LERAAR.Fields.Item("emailadres").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Algemene-opleidingen:</td>
<td><input name="algemeneopleiding" type="text" class="inputborder_normaal" id="algemeneopleiding" value="<%=(WIJZIGEN_LERAAR.Fields.Item("algemeneopleiding").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Sneeuw-opleidingen:</td>
<td><input name="sneeuwopleiding" type="text" class="inputborder_normaal" id="sneeuwopleiding" value="<%=(WIJZIGEN_LERAAR.Fields.Item("sneeuwopleiding").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Sneeuw-ervaring:</td>
<td><input name="sneeuwervaring" type="text" class="inputborder_normaal" id="sneeuwervaring" value="<%=(WIJZIGEN_LERAAR.Fields.Item("sneeuwervaring").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Hobby's:</td>
<td><input name="hobbys" type="text" class="inputborder_normaal" id="hobbys" value="<%=(WIJZIGEN_LERAAR.Fields.Item("hobbys").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Favoriete Skigebied:</td>
<td><input name="favgebied" type="text" class="inputborder_normaal" id="favgebied" value="<%=(WIJZIGEN_LERAAR.Fields.Item("favgebied").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Mooiste ervaring:</td>
<td><input name="mooisteervaring" type="text" class="inputborder_normaal" id="mooisteervaring" value="<%=(WIJZIGEN_LERAAR.Fields.Item("mooisteervaring").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Ultime kick:</td>
<td><input name="ultimekick" type="text" class="inputborder_normaal" id="ultimekick" value="<%=(WIJZIGEN_LERAAR.Fields.Item("ultimekick").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Lijfspreuk:</td>
<td><input name="algemeen" type="text" class="inputborder_normaal" id="algemeen" value="<%=(WIJZIGEN_LERAAR.Fields.Item("algemeen").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Favorite website:</td>
<td><input name="eigensite" type="text" class="inputborder_normaal" id="eigensite" value="<%=(WIJZIGEN_LERAAR.Fields.Item("eigensite").Value)%>" /></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Skileraar:</td>
<td><label>
<input name="skileraar" type="checkbox" id="skileraar" value="1" <%If (CStr(Abs((WIJZIGEN_LERAAR.Fields.Item("skileraar").Value))) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> />
</label></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Snowboardleraar:</td>
<td><input name="boardleraar" type="checkbox" id="boardleraar" value="1" <%If (CStr(Abs((WIJZIGEN_LERAAR.Fields.Item("boardleraar").Value))) = CStr("1")) Then Response.Write("checked=""checked""") : Response.Write("")%> /></td>
</tr>
<tr>
<td> </td>
<td><br />
<label>
<input name="Submit" type="submit" class="form-button" value="Bijwerken" />
</label></td>
</tr>
</table>
<input type="hidden" name="MM_update" value="update-leraar">
<input type="hidden" name="MM_recordId" value="<%= WIJZIGEN_LERAAR.Fields.Item("id").Value %>">
</form>
</td>
</tr>
</table>
</body>
</html>
<%
WIJZIGEN_LERAAR.Close()
Set WIJZIGEN_LERAAR = Nothing
%>
<%
SELECTEER_KINDEREN.Close()
Set SELECTEER_KINDEREN = Nothing
%>
<%
SELECTEER_BURGSTAAT.Close()
Set SELECTEER_BURGSTAAT = Nothing
%>