File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/nesten.asp
<%
option explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
dim intId, strNaam, strSortOrder, strSort, strMsg, Rs, strClass, strDatum
If Request.QueryString("Mode") = "del" Then
intId = FormToInt(Request.Querystring("Id"))
strDatum = NestDatum(intId)
Call VerwijderNest(intId)
strMsg = "Nest """ & strDatum & """ verwijderd."
End If
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/onderhoud.css">
<base target="main">
<script language="JavaScript">
function doConfirm(oms){
if(confirm('Nest "'+ oms + '" verwijderen?')){
document.form1.submit();
return true;
}
else{
return false;
}
}
</script>
</head>
<body>
<%
If Request.QueryString("sort")<>"" Then strSort = Request.QueryString("sort") Else strSort = "dat_geboren" End If
If Request.QueryString("order")<>"" Then strSortOrder = Request.QueryString("order") Else strSortOrder = "DESC" End If
If Request.QueryString("msg")<>"" Then strMsg = Request.QueryString("msg") End If
%>
<h1>Nesten</h1>
<%
If strMsg<>"" Then Response.Write("<p>" & StrToHTML(strMsg) & "</p>") End If
%>
<form method="POST" id="form1" name="form1" action="nesten.asp">
<input type="button" value="Toevoegen" onclick="document.location.href='wijzig_nest.asp';" name="button1">
<input type="button" value="Geen nest tekst" onclick="document.location.href='geen_nest.asp';" name="button1"></p>
</p>
<table class="clsDefault" cellSpacing="1">
<tr>
<th width="25"> </th>
<th width="25"> </th>
<th width="200"><%WriteTableHead "Geboortedatum", "dat_geboren", strSort, strSortOrder, "nesten.asp", ""%></th>
<th width="150"><%WriteTableHead "Kleur", "kleur", strSort, strSortOrder, "nesten.asp", ""%></th>
<th width="80"><%WriteTableHead "Actief", "ind_actief", strSort, strSortOrder, "nesten.asp", ""%></th>
</tr>
<%
Set Rs = GetRS("SELECT * FROM DD_NESTEN ORDER BY " & strSort & " " & strSortOrder)
While Not Rs.EOF
strClass = "clsItemActive"
%>
<tr>
<td align="center" class="<%=strClass%>"><a href="wijzig_nest.asp?id=<%=Rs("id")%>"><img SRC="../images/icons/edit.gif" border="0" HEIGHT="12"></a></td>
<td align="center" class="<%=strClass%>"><a href="nesten.asp?id=<%=Rs("id")%>&mode=del"><img SRC="../images/icons/delete.gif" onClick="return doConfirm('<%=StrToJScript(FormatDateParam(Rs("dat_geboren"),"dd-mm-yyyy"))%>');" border="0" HEIGHT="12"></a></td>
<td class="<%=strClass%>"><%=FormatDateParam(Rs("dat_geboren"),"dd-mm-yyyy")%></td>
<td class="<%=strClass%>"><%=StrToHTML(Rs("kleur"))%></td>
<td align="center" class="<%=strClass%>"><%If SqlToBool(Rs("ind_actief")) Then Response.Write("<IMG SRC=""../images/icons/checked_icon.gif"">") Else Response.Write("<IMG SRC=""../images/icons/not_checked_icon.gif"">") End If%></td>
</tr>
<%
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
%>
<tr>
<td class="clsBottom" colSpan="5"> </td>
</tr>
</table>
</form>
</body>
</html>