File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/herplaatsingen.asp
<%
option explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
dim intId, strNaam, strSortOrder, strSort, strMsg, Rs, strClass, strTitel
If Request.QueryString("Mode") = "del" Then
intId = FormToInt(Request.Querystring("Id"))
strTitel = HerplaatsingTitel(intId)
Call VerwijderHerplaatsing(intId)
strMsg = "Herplaatsing """ & strTitel & """ 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('Herplaatsing "'+ oms + '" verwijderen?')){
document.form1.submit();
return true;
}
else{
return false;
}
}
</script>
</head>
<body>
<%
If Request.QueryString("sort")<>"" Then strSort = Request.QueryString("sort") Else strSort = "id" End If
If Request.QueryString("order")<>"" Then strSortOrder = Request.QueryString("order") Else strSortOrder = "ASC" End If
If Request.QueryString("msg")<>"" Then strMsg = Request.QueryString("msg") End If
%>
<h2>Herplaatsingen</h2>
<%
If strMsg<>"" Then Response.Write("<p>" & StrToHTML(strMsg) & "</p>") End If
%>
<form method="POST" id="form1" name="form1" action="herplaatsingen.asp">
<input type="button" value="Toevoegen" onclick="document.location.href='wijzig_herplaatsing.asp';" name="button1"></p>
<table class="clsDefault" cellSpacing="1">
<tr>
<th width="15"> </th>
<th width="15"> </th>
<th width="150"><%WriteTableHead "Titel", "titel", strSort, strSortOrder, "herplaatsingen.asp", ""%></th>
<th width="100"><%WriteTableHead "Tekst", "tekst", strSort, strSortOrder, "herplaatsingen.asp", ""%></th>
<th width="60"><%WriteTableHead "Actief", "ind_actief", strSort, strSortOrder, "herplaatsingen.asp", ""%></th>
</tr>
<%
Set Rs = GetRS("SELECT * FROM DD_HERPLAATSINGEN ORDER BY " & strSort & " " & strSortOrder)
While Not Rs.EOF
strClass = "clsItemActive"
%>
<tr>
<td class="<%=strClass%>"><a href="wijzig_herplaatsing.asp?id=<%=Rs("id")%>"><img SRC="../images/icons/edit.gif" border="0" HEIGHT="12"></a></td>
<td class="<%=strClass%>"><a href="herplaatsingen.asp?id=<%=Rs("id")%>&mode=del"><img SRC="../images/icons/delete.gif" onClick="return doConfirm('<%=StrToJScript(Rs("titel"))%>');" border="0" HEIGHT="12"></a></td>
<td class="<%=strClass%>"><%=StrToHTML(Rs("titel"))%></td>
<td class="<%=strClass%>"><%=StrToHTML(Rs("tekst"))%></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>