File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/geen_nest.asp
<%
option explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
Dim Rs, strSql, intId, strMsg, strActie, i, intMode, blnNew, strThispage, strNextPage, strTekst, blnAltijdTonen
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
blnAltijdTonen = Request.Form("cbAltijdTonen") <> ""
strTekst = FormToStr(Request.Form("txtTekst"))
Call WijzigGeenNestTekst(blnAltijdTonen, strTekst)
strMsg = "Tekst gewijzigd."
Response.Redirect("nesten.asp?msg=" & strMsg)
Response.Flush
Response.End
Else
strSql = "SELECT pups_tekst FROM DD_INSTELLINGEN"
Set Rs = GetRs(strSql)
strTekst = SqlToStr(Rs("pups_tekst"))
blnAltijdTonen = SqlToBool(Rs("ind_pups_tekst_altijd_tonen"))
Rs.Close
strActie = "Tekst ""extra nest info"" 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(!document.form1.txtTekst.value){
alert('Voer een tekst in!');
document.form1.txtTekst.focus();
return false;
}
else {
return true;
}
}
</script>
</head>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-1172494-1");
pageTracker._trackPageview();
} catch(err) {}</script>
<body>
<h2><%=StrToHTML(strActie)%></h2>
<%
If strMsg<>"" Then Response.Write("<p>" & strMsg & "</p>") End If
%>
<form id="form1" name="form1" action="geen_nest.asp" method="post" onsubmit="document.form1.cmdSave.disabled=true;">
<table class="clsBorder" cellspacing="2" cellpadding="1" width="700">
<tr>
<td><b>Altijd tonen </b></td>
<td><input type="checkbox" name="cbAltijdTonen" <%If blnAltijdTonen Then %>checked<%End If%> ID="Checkbox1"></td>
</tr>
<tr>
<td valign="top"><b>Tekst</b></td>
<td><TEXTAREA rows="10" cols="100" name="txtTekst"><%=StrToForm(strTekst)%></TEXTAREA></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>