File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/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, strTekstUK, blnAltijdTonen
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
blnAltijdTonen = Request.Form("cbAltijdTonen") <> ""
strTekst = FormToStr(Request.Form("txtTekst"))
strTekstUK = FormToStr(Request.Form("txtTekstUk"))
Call WijzigGeenNestTekst(blnAltijdTonen, strTekst, strTekstUK)
strMsg = "Geen nest tekst gewijzigd."
Response.Redirect("nesten.asp?msg=" & strMsg)
Response.Flush
Response.End
Else
strSql = "SELECT ind_pups_tekst_altijd_tonen,pups_tekst, pups_tekst_uk FROM DD_INSTELLINGEN"
Set Rs = GetRs(strSql)
strTekst = SqlToStr(Rs("pups_tekst"))
strTekstUK = SqlToStr(Rs("pups_tekst_uk"))
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>
<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 NLD</b></td>
<td><TEXTAREA rows="10" cols="100" name="txtTekst"><%=StrToForm(strTekst)%></TEXTAREA></td>
</tr>
<tr>
<td valign="top"><b>Tekst ENG</b></td>
<td><TEXTAREA rows="10" cols="100" name="txtTekstUk" ID="Textarea1"><%=StrToForm(strTekstUK)%></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>