File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/login/default.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<%
Dim strMsg, Found, intMId, strEMail
Dim strLogin, strPassword, strOms, intId, strRemUser
Dim secPriv, blnViewPriv
strMsg = "Geef hieronder uw gebruikersnaam en wachtwoord in:"
Session("intUserId") = Null
Session("strUsername") = Null
session("intPageId") = Null
intId = Null
If Request.Form("cmdSubmit") <> "" Then
strLogin = FormToStr(LCase(Trim(Request.Form("txtLogin"))))
strPassword = FormToStr(LCase(Request.Form("txtPW")))
intId = GebrIdByLoginPass(strLogin,strPassword)
If Not IsNull(intId) Then
Session("intUserId") = intId
Session("strUsername") = GebrNaam(intId)
Session("Auth_Onderhoud") = True
If intId=3 Then
Response.Redirect("../default.asp?page_id=1")
Else
Response.Redirect("../")
End If
Response.End
Response.Flush
Else
strMsg = "<span class=""clsErr"">Ongeldige gebruikersnaam of wachtwoord ingevoerd.</span>"
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Login</title>
<link rel="stylesheet" type="text/css" href="../../css/onderhoud.css">
<script language="JavaScript">
function doCheck(){
if(!document.frmLogin.txtLogin.value){
alert('Voer een gebruikersnaam in!');
document.frmLogin.txtLogin.focus();
return false;
}
else if(!document.frmLogin.txtPW.value){
alert('Voer een wachtwoord in!');
document.frmLogin.txtPW.focus();
return false;
}
else {
return true;
}
}
</script>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" height="100%" width="100%">
<tr>
<td> </td>
</tr>
<tr height="25">
<td valign="middle" align="center"><h1>Onderhoudsmodule <br>Duitsedoggen kennel v/h Dennenbos</h1></td>
</tr>
<tr>
<td align="center" valign="top"><%=strMsg%></td>
</tr>
<tr>
<td align="center" valign="top">
<form name="frmLogin" action="default.asp" method="post" onsubmit="return doCheck();">
<table align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="120"><b><u>G</u>ebruikersnaam</b></td>
<td><input name="txtLogin" MaxLength="15" accesskey="G" value="<%=StrToForm(strLogin)%>"></td>
</tr>
<tr>
<td><b><u>W</u>achtwoord</b></td>
<td><input type="password" name="txtPW" MaxLength="15" accesskey="W"></td>
</tr>
<tr height="35">
<td colspan="2" align="middle">
<input type="submit" style="width:100" name="cmdSubmit" value="OK" class="clsBtn"></td>
</tr>
<!-- <tr> <td colspan="2">Wachtwoord vergeten, klik <A href="getPW.asp">hier</A>.</td> </tr> -->
</table>
</form>
</td>
</tr>
</table>
<script LANGUAGE="JavaScript">
document.frmLogin.txtLogin.focus();
<% If strLogin <> "" Then %>
document.frmLogin.txtPW.focus();
<% Else %>
document.frmLogin.txtLogin.focus();
<% End If %>
</script>
</body>
</html>