We voegen aan de tabel inschrijvingen een veld e-mailadres toe. Oudleerlingen kunnen nu in de tabel hun e-mailadres invoeren ,wijzigen of wissen. Met de 'lijst met inschrijvingen en e-mailadressen'-knop bekomt men een overzicht van de tabelinhoud.
OEFEN6.ASP (veld toevoegen)
<html>
<body>
<%set db=server.createobject("ADODB.connection")
db.open("oudleerlingen via internet")
sql="alter table inschrijvingen add emailadres varchar(50)"
db.execute(sql)
db.close%>
Het veld <B>emailadres</b> werd toegevoegd
</body>
</html>
OEFEN7.ASP (naam en bewerking kiezen)
<html>
<body>
<%set db=server.createobject("ADODB.connection")
db.open("oudleerlingen via internet")
sql="select naam from inschrijvingen"
set lijst=db.execute(sql)%>
<form method="post" action="oefen81.asp">
Kies de naam van de oudleerling:<select name="wie" size="1" >
<% do until lijst.eof%>
<option><%=lijst("naam")%></option>
<%lijst.movenext
loop%>
</select>
<input type="submit" value="invoer-wijzigen van e-mailadressen">
</form>
<form method="post" action="oefen82.asp">
Kies de naam van de oudleerling:<select name="wie" size="1" >
<%lijst.movefirst%>
<% do until lijst.eof%>
<option><%=lijst("naam")%></option>
<%lijst.movenext
loop
db.close%>
</select>
<input type="submit" value="wissen van inschrijvingen">
</form>
<form method="post" action="oefen10.asp">
<input type="submit" value="lijst met inschrijvingen en e-mailadressen">
</form>
</body>
</html>
OEFEN81.ASP (emailadres invoeren )
<html>
<body>
<form method="post" action="oefen9.asp">
het emailadres van <input type="normal" name="zoeknaam" value="<%=request.form("wie")%>"> is
<input type="tekst" name="email" size="50">
<input type="submit" value="verstuur">
</form>
</body>
</html>
OEFEN82.ASP (wissen van inschrijvingen)
<html>
<body>
<%set db=server.createobject("ADODB.connection")
db.open("oudleerlingen via internet")
sql="delete * from inschrijvingen where naam = '" & request.form("wie") & "'"
db.execute(sql)
db.close%>
<%=request.form("wie")%> werd gewist.
</body>
</html>
OEFEN9.ASP (wijzigen in de tabel inschrijvingen)
<html>
<body>
<%a=request.form("zoeknaam")%>
<%b=request.form("email")%>
<%set db=server.createobject("ADODB.connection")
db.open("oudleerlingen via internet")
sql="update inschrijvingen set emailadres='" & b & "' where naam='" & a & "'"
db.execute(sql)
db.close%>
Het emailadres van <%=a%> werd in <%=b%>gewijzigd.
</body>
</html>
OEFEN10.ASP (en nu nog een lijst met naam en emailadres)
<html>
<body>
<%set db=server.createobject("ADODB.connection")
db.open("oudleerlingen via internet")
sql="select naam,emailadres from inschrijvingen"
set lijst=db.execute(sql)%>
<table border="2">
<% do until lijst.eof%>
<tr>
<td><%=lijst("naam")%></td>
<td><%=lijst("emailadres")%></td>
</tr>
<%lijst.movenext
loop
db.close%>
</table>
</body>
</html>