DeRashond.nl, uw kynologische website

<%@LANGUAGE="VBSCRIPT"%> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> DeRashond.nl, uw kynologische website <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %>

Om in te loggen of inloggegevens te verkrijgen, klik hier

Clubnieuws

Rascorrespondent Drentsche Patrijshond

Rascorrespondent Finse Spits

Rascorrespondent Dashonden

Rascorrespondent Field Spaniel

Vergelijking Finse Lappenhond en Zweedse Lappenhond

Het loszittende heupgewricht - een teken van HD?

Vergelijking Australian Cattle Dog en Australian Kelpie

Rascorrespondent Drentsche Patrijshond

Huidklachten bij de hond

Newfoundlander door de tijd heen

Teckelverlamming

Rascorrespondent Drentsche Patrijshond

Is uw hond sportief? Herkent Ge (de voorvader van ) uw hond in deze wolven-reportage

Sigmund Freud en de eerste Therapiehond

Rascorrespondent Field Spaniel

Lapinkoira vs Lapinporokoira, een vergelijking van 2 rassen met eenzelfde geschiedenis

40 jaar Nederlandse Newfoundlander Club in 1957!

Nieuwe rascorrespondent Laplandse Herdershond

Rascorrespondent Finse Spits

Van Wolf tot Rashond, sporen uit de steentijd

Het blauwe Dobermann Syndroom deel 2

De nierfunctie van de hond

Rascorrespondent Drentsche Patrijshond

Rascorrespondent Finse Spits

De Labrador Retriever door de tijd heen

Rascorrespondent Field Spaniel

Blauwe Dobermann Syndroom

Rascorrespondent Finse Spits

Rascorrespondent Field Spaniel

Rascorrespondent Weimaraner

Rascorrespondent Dashonden

Rascorrespondent Drentsche Patrijshonden

24-12-2009: Rascorrespondent Weimaraner

22-10-2009: Keurmeestersdag 2009, Ladies First

22-10-2009: Rascorrespondent Perro de Agua Espanol

21-10-2009: Rascorrespondent Parson Russell Terrier

21-10-2009: Rascorrespondent Finse Spits

20-10-2009: Rascorrespondent Perro de Agua Espanol

21-09-2009: Rascorrespondent Dashonden

21-09-2009: Rascorrespondent Parson Russell Terrier

15-08-2009: Overpeinzingen bij de rasstandaard van de Flatcoated Retriever

15-08-2009: Aandoeningen bij de hond: Cryptorchidie

14-08-2009: Rascorrespondent Drentsche Patrijshond

31-07-2009: Rascorrespondent Weimaraner

20-07-2009: Rascorrespondent Perro de Agua Espanol

23-06-2009: Alles over Huidflaptechniek in theorie en praktijk

23-06-2009: Vergelijking Pyreneese Berghond en Mastin de los Pirineos

22-06-2009: rascorrespondent Weimaraner

22-06-2009: Rascorrespondent Parson Russell Terrier

22-06-2009: Rascorrespondent van de Drentsche Patrijshond

28-05-2009: Rascorrespondent Field Spaniel

28-05-2009: Rascorrespondent Weimaraner

28-05-2009: Rascorrespondent Norwich Terrier

23-04-2009: Rascorrespondent van de Dashonden met alle kampioenen van 2008 met foto's

23-04-2009: Rascorrespondent van de Dashonden met de Winner en Wijchen

04-04-2009: Rascorrespondent Welsh Springer Spaniel

31-03-009: Vergelijking Beauceron en Dobermann

31-03-2009: Patella Luxatie in theorie en praktijk

31-03-2009: Rascorrespondent Perro de Agua Espanol

31-03-2009: Rascorrespondent Weimaraner

30-03-2009: Rascorrespondent Finse Spits over Crufts

30-03-2009: Rascorrespondent Dashonden over Bleiswijk 2008

30-03-2009: Rascorrespondent Dashonden over Utrecht 2008

09-03-2009: V ergelijking American Akita en Akita

08-03-2009: Rascorrespondent Drentsche Patrijshond over de Hond van het Jaar 2008 Show

16-02-2009: Allergietest voor honden

16-02-2009: Vergelijking Newfoundlander zwart-wit en Landseer ECT

14-02-2009: Rascorrespondent Perro de Agua Espanol

14-02-2009: Rascorrespondent Drentsche Patrijshond

14-02-2009: Rascorrespondent Norwich Terrier

02-02-2009: Voeding en verzorging van fokteef en pups

02-02-2009: Rascorrespondent Dashonden over Zwolle 2008

02-02-2009: Rascorrespondent Dashonden over Maastricht 2008

02-02-2009: Rascorrespondent Field Spaniel

12-01-2009: Vruchtbaarheid bij de teef

12-01-2009: Lhasa Apso versus Shih Tzu

12-01-2009: Rascorrespondent Drentsche Patrijshond

12-01-2009: Rascorrespondent Weimaraner over Winner en Wijchen

12-01-2009: Rascorrespondent Dashonden over Rotterdam 2008

12-01-2009: Rascorrespondent Dashonden over regionale clubmatch te Veldhoek

20-12-2008: De koopovereenkomst bezien (deel 3)

20-12-2008: De koopovereenkomst bezien (deel 2)

20-12-2008: Rascorrespondent Norwich Terrier

20-12-2008: Rascorrespondent Field Spaniel

08-12-2008: De koopovereenkomst bezien, deel 1

08-12-2008: Een hernia bij de hond

08-12-2008: Rascorrespondent van de Norwich Terrier

22-11-2008: De verschillen in hondenogen

22-11-2008: Achterhandproblemen bij de hond

22-11-2008: Rascorrespondent Perro de Agua Español

22-11-2008: Rascorrespondent Weimaraner

22-11-2008: Rascorrespondent Field Spaniel

22-11-2008: Rascorrespondent Norwich Terrier

10-11-2008: Waarom zijn grote honden groot en kleine honden klein?

10-11-2008: Vergelijking Bull Mastiff en Mastiff

10-11-2008: Rascorrespondent Welsh Springer Spaniel

31-10-2008: De Cesky Fousek in Tsjechië

31-10-2008: Longontsteking bij de hond

31-10-2008: Rascorrespondent van de Weimaraner met nieuws van de jongehondendag en de laatste proeven

31-10-2008: Rascorrespondent van de Norwich Terrier

31-10-2008: Rascorrespondent van de Parson Russell Terrier

31-10-2008: Rascorrespondent van de Drentsche Patrijshond met het laatste nieuws

31-10-2008: Rascorrespondent van de Dashonden over Uden

13-10-2008: De keurmeestersdag 2008 gaat over de Nederlandse rassen

13-10-2008: Wat u moet weten over een maagtorsie

13-10-2008: Rascorrespondent van de Weimaraner over Rotterdam, Zwolle, Maastricht en KNJV-proeven

13-10-2008: Rascorrespondent van de Welsh Springer Spaniel over special in Denemarken, Zwolle en Maastricht

27-09-2008: Vergelijking tussen Cesky Fousek en Duitse Staande Hond draadhaar

27-09-2008: De Silken Windhound in Nederland

27-09-2008: Ervaringen met de Europabokaal Dashonden

27-09-2008: Rascorrespondent Finse Spits

27-09-2008: Ervaringen met Dashonden in Stockholm

27-09-2008: Buitenlandse successen van de Dashonden

27-09-2008: Rascorrespondent Dashonden over Hulten

14-09-2008: Een tumoroperatie dmv lasertechniek

14-09-2008: Uitgebreid rasportret van de Schnauzers

13-09-2008: Rascorrespondent Drentsche Patrijshond

13-09-2008: Rascorrespondent Perro de Agua Espanol

13-09-2008: Rascorrespondent Dashonden

13-09-2008: Rascorrespondent Welsh Springer Spaniel

30-08-2008: Dwerghonden, de oudste begeleiders van de mens

30-08-2008: Erkenningsregeling asielen

29-08-2008: Rascorrespondent Field Spaniel over de zomeractiviteiten

29-08-2008: Rascorrespondent Dashonden over Pinkstershow Arnhem

08-08-2008: Coronavirus - Diarrhee, hoe te handelen

08-08-2008: Vergelijking Boston Terrier met Franse Bulldog

08-08-2008: Rascorrespondent van de Parson Russell Terrier over evenementen van de afgelopen 2 maanden

08-08-2008: Rascorrespondent van de Welsh Springer Spaniel over de laatste shows

08-08-2008: Nieuwe rascorrespondent van de Franse Bulldog over de Worlddogshow 2008

03-08-2008: Rascorrespondent van de Weimaraner

03-08-2008: Rascorrespondent van de Drentsche Patrijshond

03-08-2008: Rascorrespondent van de Barsoi

<% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("Gebruikersnaam")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "Club Nieuwspagina.asp" MM_redirectLoginFailed = "Club log in niet correct.html" MM_loginSQL = "SELECT Gebruikersnaam, Wachtwoord" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM Websitegegevens WHERE Gebruikersnaam = ? AND Wachtwoord = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_Leden12_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("Wachtwoord")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %>