File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/beheer/asp/algemeen/wijzig-foto.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Session.LCID = 1043 'Dutch regional setttings %>
<!--#include virtual="/Connections/INDOORSKI_READER.asp"-->
<%
Dim SELECTEER_LERAAR
Dim SELECTEER_LERAAR_cmd
Dim SELECTEER_LERAAR_numRows
Set SELECTEER_LERAAR_cmd = Server.CreateObject ("ADODB.Command")
SELECTEER_LERAAR_cmd.ActiveConnection = MM_INDOORSKI_READER_STRING
SELECTEER_LERAAR_cmd.CommandText = "SELECT id, image, voornaam, achternaam FROM TABEL_LERAREN"
SELECTEER_LERAAR_cmd.Prepared = true
Set SELECTEER_LERAAR = SELECTEER_LERAAR_cmd.Execute
SELECTEER_LERAAR_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="/css/beheer.css" rel="stylesheet" type="text/css" />
<link href="/css/forms.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" class="BEH-Style01"><br />
Wijzigen Foto 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 ENCTYPE="multipart/form-data" METHOD="POST" ACTION="/beheer/asp/upload/wijzigen-foto.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="24%" height="25" class="BEH-Style03">Selecteer Leraar :</td>
<td width="76%"><label>
<select name="id" class="inputborder_normaal">
<%
While (NOT SELECTEER_LERAAR.EOF)
%><option value="<%=(SELECTEER_LERAAR.Fields.Item("id").Value)%>"><%=(SELECTEER_LERAAR.Fields.Item("voornaam").Value)%> <%=(SELECTEER_LERAAR.Fields.Item("achternaam").Value)%></option>
<%
SELECTEER_LERAAR.MoveNext()
Wend
If (SELECTEER_LERAAR.CursorType > 0) Then
SELECTEER_LERAAR.MoveFirst
Else
SELECTEER_LERAAR.Requery
End If
%>
</select>
</label></td>
</tr>
<tr>
<td height="25" class="BEH-Style03">Selecteer Foto :</td>
<td><input name="myfile" type="file" class="inputborder_normaal" id="myfile" /></td>
</tr>
<tr>
<td> </td>
<td><br />
<label>
<input name="Submit" type="submit" class="form-button" value="Bijwerken" />
</label></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
<%
SELECTEER_LERAAR.Close()
Set SELECTEER_LERAAR = Nothing
%>