File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/beheer/asp/algemeen/toevoegen-leraar.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/INDOORSKI_READER.asp"-->
<%
Dim toevoegen_leraar
Dim toevoegen_leraar_cmd
Dim toevoegen_leraar_numRows
Set toevoegen_leraar_cmd = Server.CreateObject ("ADODB.Command")
toevoegen_leraar_cmd.ActiveConnection = MM_INDOORSKI_READER_STRING
toevoegen_leraar_cmd.CommandText = "SELECT * FROM TABEL_LERAREN"
toevoegen_leraar_cmd.Prepared = true
Set toevoegen_leraar = toevoegen_leraar_cmd.Execute
toevoegen_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 SELCTEER_BURGSTAAT
Dim SELCTEER_BURGSTAAT_cmd
Dim SELCTEER_BURGSTAAT_numRows
Set SELCTEER_BURGSTAAT_cmd = Server.CreateObject ("ADODB.Command")
SELCTEER_BURGSTAAT_cmd.ActiveConnection = MM_INDOORSKI_READER_STRING
SELCTEER_BURGSTAAT_cmd.CommandText = "SELECT BURGSTAAT FROM TABEL_SELECTEER WHERE (BURGSTAAT <> N'Null')"
SELCTEER_BURGSTAAT_cmd.Prepared = true
Set SELCTEER_BURGSTAAT = SELCTEER_BURGSTAAT_cmd.Execute
SELCTEER_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 />
Toevoegen Leraar </td>
</tr>
<tr>
<td background="/image/container-lijn.PNG"><img src="/image/container-lijn.PNG" width="11" height="9" /></td>
</tr>
<tr>
<td>
<br />
<form action="/beheer/asp/upload/toevoegen_leraar.asp" method="post" ENCTYPE="multipart/form-data" name="form" id="form" onsubmit="YY_checkform('form','voornaam','#q','0','Invoerveld \'Voornaam\' is een verplicht veld','achternaam','#q','0','Invoerveld \'Achternaam\' is een verplicht veld','woonplaats','#q','0','Invoerveld \'Woonplaats\' is een verplicht veld','geboortedatum','#^\([0-9][0-9]\)\\-\([0-9][0-9]\)\\-\([0-9]{4}\)$#1#2#3','3','Invoerveld \'Geboortedatum\' is een verplicht veld','emailadres','#S','2','Invoerveld \'Emailadres\' is een verplicht veld','algemeneopleiding','#q','0','Invoerveld \'Alg. Opleiding\' is een verplicht veld','sneeuwopleiding','#q','0','Invoerveld \'Sneeuwopleiding\' is een verplicht veld','sneeuwervaring','#q','0','Invoerveld \'Sneeuwervaring\' is een verplicht veld','hobbys','#q','0','Invoerveld \'Hobby\'s\' is een verplicht veld','favgebied','#q','0','Invoerveld \'Fav. Gebied\' is een verplicht veld','burgelijkestaat','#q','1','Invoerveld \'Burg. Staat\' is een verplicht veld','kinderen','#q','1','Invoerveld \'Kinderen\' is een verplicht veld');return document.MM_returnValue">
<table width="100%" border="0">
<tr>
<td width="155" class="BEH-Style03">Foto:</td>
<td><label>
<input name="image" type="file" class="inputborder_normaal" id="image" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Voornaam:</td>
<td><label>
<input name="voornaam" type="text" class="inputborder_normaal" id="voornaam" />
<span class="BEH-Style05">(b.v. Stefan) </span></label></td>
</tr>
<tr>
<td class="BEH-Style03">Achternaam:</td>
<td><label>
<input name="achternaam" type="text" class="inputborder_normaal" id="achternaam" />
<span class="BEH-Style05">(b.v. van Rumpt) </span></label></td>
</tr>
<tr>
<td class="BEH-Style03">Woonplaats:</td>
<td><label>
<input name="woonplaats" type="text" class="inputborder_normaal" id="woonplaats" />
<span class="BEH-Style05">(b.v. Rosmalen) </span></label></td>
</tr>
<tr>
<td class="BEH-Style03">Geb. Datum: </td>
<td><label>
<input name="geboortedatum" type="text" class="inputborder_normaal" id="geboortedatum" />
<span class="BEH-Style05">(b.v. 05-11-1971) </span></label></td>
</tr>
<tr>
<td class="BEH-Style03">Burgelijkestaat:</td>
<td><label>
<select name="burgelijkestaat" class="inputborder_klein" id="burgelijkestaat">
<option value="Selecteer">Selecteer</option>
<%
While (NOT SELCTEER_BURGSTAAT.EOF)
%><option value="<%=(SELCTEER_BURGSTAAT.Fields.Item("BURGSTAAT").Value)%>"><%=(SELCTEER_BURGSTAAT.Fields.Item("BURGSTAAT").Value)%></option>
<%
SELCTEER_BURGSTAAT.MoveNext()
Wend
If (SELCTEER_BURGSTAAT.CursorType > 0) Then
SELCTEER_BURGSTAAT.MoveFirst
Else
SELCTEER_BURGSTAAT.Requery
End If
%>
</select>
<span class="BEH-Style05">(Selecteer) </span></label></td>
</tr>
<tr>
<td class="BEH-Style03">Kinderen:</td>
<td><label>
<select name="kinderen" class="inputborder_klein" id="kinderen">
<option value="Selecteer" selected="selected">Selecteer</option>
<%
While (NOT SELECTEER_KINDEREN.EOF)
%>
<option value="<%=(SELECTEER_KINDEREN.Fields.Item("KINDEREN").Value)%>"><%=(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>
<span class="BEH-Style05">(Selecteer) </span> </label></td>
</tr>
<tr>
<td class="BEH-Style03">E-mailadres:</td>
<td><label>
<input name="emailadres" type="text" class="inputborder_normaal" id="emailadres" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Algemene opleidingen:</td>
<td><label>
<input name="algemeneopleiding" type="text" class="inputborder_normaal" id="algemeneopleiding" />
<span class="BEH-Style05">(b.v. Havo, VWO) </span> </label></td>
</tr>
<tr>
<td class="BEH-Style03">Sneeuw opleidingen:</td>
<td><label>
<input name="sneeuwopleiding" type="text" class="inputborder_normaal" id="sneeuwopleiding" />
<span class="BEH-Style05">(b.v. Anwert, NSL) </span> </label></td>
</tr>
<tr>
<td class="BEH-Style03">Sneeuw ervaring:</td>
<td><label>
<input name="sneeuwervaring" type="text" class="inputborder_normaal" id="sneeuwervaring" />
<span class="BEH-Style05">(b.v. Skileraar Oostenrijk) </span></label></td>
</tr>
<tr>
<td class="BEH-Style03">Hobby's:</td>
<td><label>
<input name="hobbys" type="text" class="inputborder_normaal" id="hobbys" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Favoriete skigebied: </td>
<td><label>
<input name="favgebied" type="text" class="inputborder_normaal" id="favgebied" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Mooiste ervaring: </td>
<td><label>
<input name="mervaring" type="text" class="inputborder_normaal" id="mervaring" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Ultime wintersport kick: </td>
<td><label>
<input name="ultimekick" type="text" class="inputborder_normaal" id="ultimekick" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Lijfspreuk:</td>
<td><label>
<input name="algemeen" type="text" class="inputborder_normaal" id="algemeen" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Mooiste website: </td>
<td><label>
<input name="eigensite" type="text" class="inputborder_normaal" id="eigensite" value="http://" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Skileraar: </td>
<td><label>
<input name="skileraar" type="checkbox" id="skileraar" value="1" />
</label></td>
</tr>
<tr>
<td class="BEH-Style03">Snowboradleraar: </td>
<td><label>
<input name="boardleraar" type="checkbox" id="boardleraar" value="1" />
</label></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td><label>
<div align="center">
<input name="Submit" type="submit" class="form-button" value="Toevoegen" />
<label>
<input name="clear" type="reset" class="form-button" id="clear" value="Wissen" />
</label>
</div>
</label></td>
</tr>
</table>
<p> </p>
</form></td>
</tr>
</table>
</body>
</html>
<%
toevoegen_leraar.Close()
Set toevoegen_leraar = Nothing
%>
<%
SELECTEER_KINDEREN.Close()
Set SELECTEER_KINDEREN = Nothing
%>
<%
SELCTEER_BURGSTAAT.Close()
Set SELCTEER_BURGSTAAT = Nothing
%>