File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/wijzig_nest.asp
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
Const uploadsDirVar = "D:\HostingSpaces\RImmers\duitsedog.tk\wwwroot\fotos\nest"
Dim Rs, strSql, intId, strMsg, strActie, i, intMode, blnNew, strThispage, strNextPage,_
datGeboren, strKleur, blnActief, strVader, strMoeder, intAantReuen, intAantTeven, dblPrijs, strPrijsOms, _
strBestandsnaamFoto1, intAantalBytesFoto1, strBestandsnaamFoto2, intAantalBytesFoto2, _
strBestandsnaamFoto3, intAantalBytesFoto3, strBestandsnaamFoto4, intAantalBytesFoto4, _
strBestandsnaamFoto5, intAantalBytesFoto5, strBestandsnaamFoto6, intAantalBytesFoto6, _
strBestandsnaamVader, intAantalBytesVader,strBestandsnaamMoeder, intAantalBytesMoeder,_
objFSO, Upload, ks, fileKey, imgFullSize
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
intId = FormToInt(Upload.Form("txtId"))
blnActief = Upload.Form("cbActief") <> ""
datGeboren = DateSerial(FormToInt(Upload.Form("txtJaar")),FormToInt(Upload.Form("txtMaand")),FormToInt(Upload.Form("txtDag")))
strKleur = FormToStr(Upload.Form("txtKleur"))
strVader = FormToStr(Upload.Form("txtVader"))
strMoeder = FormToStr(Upload.Form("txtMoeder"))
intAantReuen = FormToInt(Upload.Form("txtReuen"))
intAantTeven = FormToInt(Upload.Form("txtTeven"))
dblPrijs = FormToInt(Upload.Form("txtPrijs"))
strPrijsOms = FormToStr(Upload.Form("txtPrijsOms"))
If FormToBool(Upload.Form("txtDeleteFotoVader")) Then
strBestandsnaamVader = Null
strBestandsnaamVader = Null
Else
strBestandsnaamVader = FormToStr(Upload.Form("txtBestandsnaamVader"))
intAantalBytesVader = FormToInt(Upload.Form("txtAantalBytesVader"))
End If
If FormToBool(Upload.Form("txtDeleteFotoMoeder")) Then
strBestandsnaamMoeder = Null
strBestandsnaamMoeder = Null
Else
strBestandsnaamMoeder = FormToStr(Upload.Form("txtBestandsnaamMoeder"))
intAantalBytesMoeder = FormToInt(Upload.Form("txtAantalBytesMoeder"))
End If
If FormToBool(Upload.Form("txtDeleteFoto1")) Then
strBestandsnaamFoto1 = Null
intAantalBytesFoto1 = Null
Else
strBestandsnaamFoto1 = FormToStr(Upload.Form("txtBestandsnaamFoto1"))
intAantalBytesFoto1 = FormToInt(Upload.Form("txtAantalBytesFoto1"))
End If
If FormToBool(Upload.Form("txtDeleteFoto2")) Then
strBestandsnaamFoto2 = Null
intAantalBytesFoto2 = Null
Else
strBestandsnaamFoto2 = FormToStr(Upload.Form("txtBestandsnaamFoto2"))
intAantalBytesFoto2 = FormToInt(Upload.Form("txtAantalBytesFoto2"))
End If
If FormToBool(Upload.Form("txtDeleteFoto3")) Then
strBestandsnaamFoto3 = Null
intAantalBytesFoto3 = Null
Else
strBestandsnaamFoto3 = FormToStr(Upload.Form("txtBestandsnaamFoto3"))
intAantalBytesFoto3 = FormToInt(Upload.Form("txtAantalBytesFoto3"))
End If
If FormToBool(Upload.Form("txtDeleteFoto4")) Then
strBestandsnaamFoto4 = Null
intAantalBytesFoto4 = Null
Else
strBestandsnaamFoto4 = FormToStr(Upload.Form("txtBestandsnaamFoto4"))
intAantalBytesFoto4 = FormToInt(Upload.Form("txtAantalBytesFoto4"))
End If
If FormToBool(Upload.Form("txtDeleteFoto5")) Then
strBestandsnaamFoto5 = Null
intAantalBytesFoto5 = Null
Else
strBestandsnaamFoto5 = FormToStr(Upload.Form("txtBestandsnaamFoto5"))
intAantalBytesFoto5 = FormToInt(Upload.Form("txtAantalBytesFoto5"))
End If
If FormToBool(Upload.Form("txtDeleteFoto6")) Then
strBestandsnaamFoto6 = Null
intAantalBytesFoto6 = Null
Else
strBestandsnaamFoto6 = FormToStr(Upload.Form("txtBestandsnaamFoto6"))
intAantalBytesFoto6 = FormToInt(Upload.Form("txtAantalBytesFoto6"))
End If
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
for each fileKey in Upload.UploadedFiles.keys
Response.Write("Filekey: " & fileKey & "<br/>")
If fileKey = "txtfotovader" Then
strBestandsnaamVader = Upload.UploadedFiles(fileKey).FileName
intAantalBytesVader = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfotomoeder" Then
strBestandsnaamMoeder = Upload.UploadedFiles(fileKey).FileName
intAantalBytesMoeder = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfoto1" Then
strBestandsnaamFoto1 = Upload.UploadedFiles(fileKey).FileName
intAantalBytesFoto1 = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfoto2" Then
strBestandsnaamFoto2 = Upload.UploadedFiles(fileKey).FileName
intAantalBytesFoto2 = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfoto3" Then
strBestandsnaamFoto3 = Upload.UploadedFiles(fileKey).FileName
intAantalBytesFoto3 = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfoto4" Then
strBestandsnaamFoto4 = Upload.UploadedFiles(fileKey).FileName
intAantalBytesFoto4 = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfoto5" Then
strBestandsnaamFoto5 = Upload.UploadedFiles(fileKey).FileName
intAantalBytesFoto5 = Upload.UploadedFiles(fileKey).Length
ElseIf fileKey = "txtfoto6" Then
strBestandsnaamFoto6 = Upload.UploadedFiles(fileKey).FileName
intAantalBytesFoto6 = Upload.UploadedFiles(fileKey).Length
End If
next
End If
'Response.Write(blnActief & "," & datGeboren & "," & strKleur & "," & strVader & "," & strMoeder & "," & intAantReuen & "," & intAantTeven & "," & dblPrijs & ")")
blnNew = Upload.Form("txtId") = "" And Request.QueryString("id") = ""
If blnNew Then
intId = VoegNestToe(blnActief, datGeboren, strKleur, intAantReuen, intAantTeven, dblPrijs, strPrijsOms, strBestandsnaamFoto1, intAantalBytesFoto1, strBestandsnaamFoto2, intAantalBytesFoto2, strBestandsnaamFoto3, intAantalBytesFoto3, strBestandsnaamFoto4, intAantalBytesFoto4, strBestandsnaamFoto5, intAantalBytesFoto5, strBestandsnaamFoto6, intAantalBytesFoto6, strVader, strBestandsnaamVader, intAantalBytesVader, strMoeder, strBestandsnaamMoeder, intAantalBytesMoeder)
strMsg = "Nest " & FormatDateParam(datGeboren,"dd-mm-yyyy") & " toegevoegd."
Else
Call WijzigNest(intId, blnActief, datGeboren, strKleur, intAantReuen, intAantTeven, dblPrijs, strPrijsOms, strBestandsnaamFoto1, intAantalBytesFoto1, strBestandsnaamFoto2, intAantalBytesFoto2, strBestandsnaamFoto3, intAantalBytesFoto3, strBestandsnaamFoto4, intAantalBytesFoto4, strBestandsnaamFoto5, intAantalBytesFoto5, strBestandsnaamFoto6, intAantalBytesFoto6, strVader, strBestandsnaamVader, intAantalBytesVader, strMoeder, strBestandsnaamMoeder, intAantalBytesMoeder)
strMsg = "Nest " & FormatDateParam(datGeboren,"dd-mm-yyyy") & " gewijzigd."
End If
Response.Redirect("nesten.asp?msg=" & strMsg)
Response.Flush
Response.End
Else
If Request.QueryString("id") <> "" Then
intId = FormToInt(Request.QueryString("id"))
strSQL = "SELECT DD_NESTEN.*, DD_FOTOS.bestandsnaam AS bestandsnaamVader, DD_FOTOS.grootte AS bestandsgrootteVader, DD_FOTOS_1.bestandsnaam AS bestandsnaamMoeder, DD_FOTOS_1.grootte AS bestandsgrootteMoeder, DD_FOTOS_2.bestandsnaam AS bestandsnaamFoto1, DD_FOTOS_2.grootte AS bestandsgrootteFoto1, DD_FOTOS_3.bestandsnaam AS bestandsnaamFoto2, DD_FOTOS_3.grootte AS bestandsgrootteFoto2, DD_FOTOS_4.bestandsnaam AS bestandsnaamFoto3, DD_FOTOS_4.grootte AS bestandsgrootteFoto3,DD_FOTOS_5.bestandsnaam AS bestandsnaamFoto4, DD_FOTOS_5.grootte AS bestandsgrootteFoto4,DD_FOTOS_6.bestandsnaam AS bestandsnaamFoto5, DD_FOTOS_6.grootte AS bestandsgrootteFoto5,DD_FOTOS_7.bestandsnaam AS bestandsnaamFoto6, DD_FOTOS_7.grootte AS bestandsgrootteFoto6 FROM ((((((((DD_NESTEN LEFT JOIN DD_FOTOS ON DD_NESTEN.foto_id_vader = DD_FOTOS.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_1 ON DD_NESTEN.foto_id_moeder = DD_FOTOS_1.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_2 ON DD_NESTEN.foto_id = DD_FOTOS_2.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_3 ON DD_NESTEN.foto2_id = DD_FOTOS_3.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_4 ON DD_NESTEN.foto3_id = DD_FOTOS_4.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_5 ON DD_NESTEN.foto4_id = DD_FOTOS_5.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_6 ON DD_NESTEN.foto5_id = DD_FOTOS_6.id) LEFT JOIN DD_FOTOS AS DD_FOTOS_7 ON DD_NESTEN.foto6_id = DD_FOTOS_7.id) WHERE DD_NESTEN.ID = " & IntToSQL(intId)
'Response.Write(strSql)
Set Rs = GetRs(strSql)
If Not Rs.EOF Then
blnActief = SqlToBool(Rs("ind_actief"))
datGeboren = SqlToDate(Rs("dat_geboren"))
strKleur = SqlToStr(Rs("kleur"))
strVader = SqlToStr(Rs("vader"))
strMoeder = SqlToStr(Rs("moeder"))
intAantReuen = SqlToInt(Rs("aant_reuen"))
intAantTeven = SqlToInt(Rs("aant_teven"))
dblPrijs = SqlToDbl(Rs("prijs"))
strPrijsOms = SqlToStr(Rs("prijs_oms"))
strBestandsnaamVader = SqlToStr(Rs("bestandsnaamVader"))
intAantalBytesVader = SqlToInt(Rs("bestandsgrootteVader"))
strBestandsnaamMoeder = SqlToStr(Rs("bestandsnaamMoeder"))
intAantalBytesMoeder = SqlToInt(Rs("bestandsgrootteMoeder"))
strBestandsnaamFoto1 = SqlToStr(Rs("bestandsnaamFoto1"))
intAantalBytesFoto1 = SqlToInt(Rs("bestandsgrootteFoto1"))
strBestandsnaamFoto2 = SqlToStr(Rs("bestandsnaamFoto2"))
intAantalBytesFoto2 = SqlToInt(Rs("bestandsgrootteFoto2"))
strBestandsnaamFoto3 = SqlToStr(Rs("bestandsnaamFoto3"))
intAantalBytesFoto3 = SqlToInt(Rs("bestandsgrootteFoto3"))
strBestandsnaamFoto4 = SqlToStr(Rs("bestandsnaamFoto4"))
intAantalBytesFoto4 = SqlToInt(Rs("bestandsgrootteFoto4"))
strBestandsnaamFoto5 = SqlToStr(Rs("bestandsnaamFoto5"))
intAantalBytesFoto5 = SqlToInt(Rs("bestandsgrootteFoto5"))
strBestandsnaamFoto6 = SqlToStr(Rs("bestandsnaamFoto6"))
intAantalBytesFoto6 = SqlToInt(Rs("bestandsgrootteFoto6"))
End If
Rs.Close
Else
blnActief = True
datGeboren = Date
strKleur = Null
strVader = Null
strMoeder = Null
intAantReuen = Null
intAantTeven = Null
dblPrijs = Null
strBestandsnaamVader= Null
intAantalBytesVader = Null
strBestandsnaamMoeder= Null
intAantalBytesMoeder= Null
strBestandsnaamFoto1= Null
intAantalBytesFoto1 = Null
strBestandsnaamFoto2= Null
intAantalBytesFoto2 = Null
strBestandsnaamFoto3= Null
intAantalBytesFoto3 = Null
strBestandsnaamFoto4= Null
intAantalBytesFoto4 = Null
strBestandsnaamFoto5= Null
intAantalBytesFoto5 = Null
strBestandsnaamFoto6= Null
intAantalBytesFoto6 = Null
End If
End If
If blnNew Then
strActie = "Nest toevoegen"
Else
strActie = "Nest """ & FormatDateParam(datGeboren,"dd-mm-yyyy") & """ wijzigen"
End If
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/onderhoud.css">
<base target="main">
<!-- #INCLUDE VIRTUAL="includes/scripts/inc_validdate.asp" -->
<script language="JavaScript">
function doCheck(){
if(isNaN(document.form1.txtDag.value)){
alert('Voer een geldige einddatum in (dag)!');
document.form1.txtDag.focus();
return false;
}
else if(!((document.form1.txtDag.value>=1)&&(document.form1.txtDag.value<=31))&&(document.form1.txtDag.value)){
alert('Voer een geldige einddatum in (dag)!');
document.form1.txtDag.focus();
return false;
}
else if(isNaN(document.form1.txtJaar.value)){
alert('Voer een geldige einddatum in (jaar)!');
document.form1.txtJaar.focus();
return false;
}
else if(!((document.form1.txtJaar.value>=1900)&&(document.form1.txtJaar.value<=2100))&&(document.form1.txtJaar.value)){
alert('Voer een geldige einddatum in (jaar)!');
document.form1.txtJaar.focus();
return false;
}
else if(isDate(document.form1.txtMaand.value + '/' + document.form1.txtDag.value + '/' + document.form1.txtJaar.value)==false){
alert('Voer een geldige einddatum in!');
document.form1.txtDag.focus();
return false
}
else if(!(document.form1.txtKleur.value)){
alert('Selecteer een kleur!');
document.form1.txtKleur.focus();
return false;
}
else if(!document.form1.txtReuen.value){
alert('Voer het aantal reutjes in!');
document.form1.txtReuen.focus();
return false;
}
else if(isNaN(document.form1.txtReuen.value)){
alert('Voer een geldig aantal reutjes in!');
document.form1.txtReuen.focus();
return false;
}
else if(!document.form1.txtTeven.value){
alert('Voer het aantal teefjes in!');
document.form1.txtTeven.focus();
return false;
}
else if(isNaN(document.form1.txtTeven.value)){
alert('Voer een geldig aantal teefjes in!');
document.form1.txtTeven.focus();
return false;
}
else {
return true;
}
}
</script>
</head>
<body>
<h2><%=StrToHTML(strActie)%></h2>
<%
If strMsg<>"" Then Response.Write("<p>" & strMsg & "</p>") End If
%>
<form id="form1" name="form1" action="wijzig_nest.asp" enctype="multipart/form-data" method="post" onsubmit="document.form1.cmdSave.disabled=true;">
<input type="hidden" name="txtId" size="5" value="<%=intId%>">
<input type="hidden" name="txtBestandsnaamVader" value="<%=strBestandsnaamVader%>">
<input type="hidden" name="txtAantalBytesVader" value="<%=intAantalBytesVader%>">
<input type="hidden" name="txtBestandsnaamMoeder" value="<%=strBestandsnaamMoeder%>">
<input type="hidden" name="txtAantalBytesMoeder" value="<%=intAantalBytesMoeder%>">
<input type="hidden" name="txtBestandsnaamFoto1" value="<%=strBestandsnaamFoto1%>">
<input type="hidden" name="txtAantalBytesFoto1" value="<%=intAantalBytesFoto1%>">
<input type="hidden" name="txtBestandsnaamFoto2" value="<%=strBestandsnaamFoto2%>">
<input type="hidden" name="txtAantalBytesFoto2" value="<%=intAantalBytesFoto2%>">
<input type="hidden" name="txtBestandsnaamFoto3" value="<%=strBestandsnaamFoto3%>">
<input type="hidden" name="txtAantalBytesFoto3" value="<%=intAantalBytesFoto3%>">
<input type="hidden" name="txtBestandsnaamFoto4" value="<%=strBestandsnaamFoto4%>">
<input type="hidden" name="txtAantalBytesFoto4" value="<%=intAantalBytesFoto4%>">
<input type="hidden" name="txtBestandsnaamFoto5" value="<%=strBestandsnaamFoto5%>">
<input type="hidden" name="txtAantalBytesFoto5" value="<%=intAantalBytesFoto5%>">
<input type="hidden" name="txtBestandsnaamFoto6" value="<%=strBestandsnaamFoto6%>">
<input type="hidden" name="txtAantalBytesFoto6" value="<%=intAantalBytesFoto6%>">
<table class="clsBorder" cellspacing="2" cellpadding="1" width="600">
<tr>
<td><b>Actief</b></td>
<td><input type="checkbox" name="cbActief" <%If blnActief Then %>checked<%End If%>></td>
</tr>
<tr>
<td><b>Geboortedatum<IMG SRC="../../images/icons/requiredfield.gif" height="5" width="5" align="textTop"></b></td>
<td>
<input type="text" name="txtDag" maxLength="2" size="2" value="<%=Day(datGeboren)%>">
<select name="txtMaand">
<%
For i = 1 to 12
%>
<option <% If i=Month(datGeboren) Then Response.Write("selected") End If%> value="<%=i%>"><%=IntToMonth(i)%></option>
<%
Next
%>
</select>
<input type="text" name="txtJaar" maxLength="4" size="4"value="<%=Year(datGeboren)%>">
</td>
</tr>
<tr>
<td><b>Kleur<IMG SRC="../../images/icons/requiredfield.gif" height="5" width="5" align="textTop"></b></td>
<td>
<select name="txtKleur">
<option value="">- Selecteer -</option>
<option <%If strKleur="Blauw" Then Response.Write("selected") End If%> value="Blauw">Blauw</option>
<option <%If strKleur="Zwart" Then Response.Write("selected") End If%> value="Zwart">Zwart</option>
<option <%If strKleur="Gevlekt" Then Response.Write("selected") End If%> value="Gevlekt">Gevlekt</option>
<option <%If strKleur="Geel" Then Response.Write("selected") End If%> value="Geel">Geel</option>
<option <%If strKleur="Zwart/Gevlekt" Then Response.Write("selected") End If%> value="Zwart/Gevlekt">Zwart/Gevlekt</option>
</select>
</td>
</tr>
<tr>
<td><b>Reutjes<IMG SRC="../images/icons/requiredfield.gif" height="5" width="5" align="textTop"></b></td>
<td>
<input type="text" name="txtReuen" maxLength="10" size="4" value="<%=intAantReuen%>">
<b>Teefjes<IMG SRC="../images/icons/requiredfield.gif" height="5" width="5" align="textTop"></b>
<input type="text" name="txtTeven" maxLength="10" size="4" value="<%=intAantTeven%>">
</td>
</tr>
<tr>
<td valign="top"><b>Prijs</b></td>
<td valign="top">€ <input type="text" name="txtPrijs" maxLength="10" size="10" value="<%=dblPrijs%>"></td></td>
</tr>
<tr>
<td valign="top"><b>Prijs oms</b></td>
<td><TEXTAREA rows="5" cols="40" name="txtPrijsOms"><%=StrToForm(strPrijsOms)%></TEXTAREA></td></td>
</tr>
<tr>
<td valign="top"><b>Foto 1</b></td>
<td>
<%
If Not IsNull(strBestandsnaamFoto1) Then
%>
<div><img border="0" src="Resize_Image.aspx?ImgWd=400&CrpYN=Y&IptFl=/fotos/nest/<%=strBestandsnaamFoto1%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFoto1" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFoto1">
</td>
<tr>
<tr>
<td valign="top"><b>Foto 2</b></td>
<td>
<%
If Not IsNull(strBestandsnaamFoto2) Then
%>
<div><img border="0" src="Resize_Image.aspx?ImgWd=400&CrpYN=Y&IptFl=/fotos/nest/<%=strBestandsnaamFoto2%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFoto2" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFoto2">
</td>
<tr>
<tr>
<td valign="top"><b>Foto 3</b></td>
<td>
<%
If Not IsNull(strBestandsnaamFoto3) Then
%>
<div><img border="0" src="Resize_Image.aspx?ImgWd=400&CrpYN=Y&IptFl=/fotos/nest/<%=strBestandsnaamFoto3%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFoto3" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFoto3">
</td>
<tr>
<tr>
<td valign="top"><b>Foto 4</b></td>
<td>
<%
If Not IsNull(strBestandsnaamFoto4) Then
%>
<div><img border="0" src="Resize_Image.aspx?ImgWd=400&CrpYN=Y&IptFl=/fotos/nest/<%=strBestandsnaamFoto4%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFoto4" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFoto4">
</td>
<tr>
<tr>
<td valign="top"><b>Foto 5</b></td>
<td>
<%
If Not IsNull(strBestandsnaamFoto5) Then
%>
<div><img border="0" src="Resize_Image.aspx?ImgWd=400&CrpYN=Y&IptFl=/fotos/nest/<%=strBestandsnaamFoto5%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFoto5" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFoto5">
</td>
<tr>
<tr>
<td valign="top"><b>Foto 6</b></td>
<td>
<%
If Not IsNull(strBestandsnaamFoto6) Then
%>
<div><img border="0" src="Resize_Image.aspx?ImgWd=400&CrpYN=Y&IptFl=/fotos/nest/<%=strBestandsnaamFoto6%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFoto6" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFoto6">
</td>
<tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td><b>Naam vader</b></td>
<td><input type="text" name="txtVader" maxLength="50" size="50" value="<%=strVader%>"></td>
</tr>
<tr>
<td valign="top"><b>Foto Vader</b></td>
<td>
<%
If Not IsNull(strBestandsnaamVader) Then
%>
<div><img border="0" width="400" src="/fotos/nest/<%=strBestandsnaamVader%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFotoVader" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFotoVader">
</td>
</tr>
<tr>
<td><b>Naam moeder</b></td>
<td><input type="text" name="txtMoeder" maxLength="50" size="50" value="<%=strMoeder%>"></td>
</tr>
<tr>
<td valign="top"><b>Foto Moeder</b></td>
<td>
<%
If Not IsNull(strBestandsnaamMoeder) Then
%>
<div><img border="0" width="400" src="/fotos/nest/<%=strBestandsnaamMoeder%>"/></div>
<%
End If
%>
<br/>
<input type="file" style="height=20" name="txtFotoMoeder" size="50" value="">
Verwijder foto <input type="checkbox" name="txtDeleteFotoMoeder">
</td>
</tr>
</table>
<p>
<input type="submit" style="width:100" name="cmdSave" value="Opslaan" class="clsBtn" onclick="return doCheck();">
<input type="button" style="width:100" value="Annuleren" class="clsBtn" onclick="document.location.href='nesten.asp';" name="button1">
</p>
</form>
<%
Set Rs = Nothing
%>
</body>
</html>