HEX

File: D:/HostingSpaces/TWijnstra/wijnstra.com/wwwroot/volleybal/old/index.asp
<% Dim Foutmelding, naam, pass, strQuery, objNode, strQuery2, objNode2

If Request("invoer") = 1 Then
	If Request("naam") = "" Then 
		Foutmelding = "Sorry, je moet wel een loginnaam invullen."
	ElseIf Request("pass") = "" Then
		Foutmelding = "Sorry, je moet wel een paswoord invullen."
	Else
		' check of het naam en pass kloppen
		naam = Request("naam")
		pass = Request("pass")

		Dim objXMLDOMVolleybal
		Set objXMLDOMVolleybal = Server.CreateObject("MSXML.DOMDocument")
		objXMLDOMVolleybal.async = false
		objXMLDOMVolleybal.load Server.MapPath("volleybaladressen.xml")
		if (objXMLDOMVolleybal.parseError<>0) Then
			Response.Write (objXMLDOMVolleybal.parseError.reason)
		Else
			strQuery = "//persoon[voornaam='" & naam & "']"
			
			Set objNode = objXMLDOMVolleybal.selectSingleNode(strQuery)
			
			If (objNode is Nothing) Then
				Foutmelding = "Je loginnaam is niet juist."
			Else
				'Response.Write "Object gevonden"
				'Response.Write "<TEXTAREA>" & objNode.xml & "</TEXTAREA>"
				
				strQuery2 = "//persoon[achternaam='" & pass & "']"
				
				Set objNode2 = objXMLDOMVolleybal.selectSingleNode(strQuery2)
				
				If (objNode2 is Nothing) Then
					Foutmelding = "Je paswoord is niet juist."
				Else %>
					<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
						open('volleybaladressen.xml?invoer=1', '_self');
					</SCRIPT>
					<% 'Response.Write "pass gevonden"
						'Response.Write objNode2.selectSingleNode("achternaam").text
				End If
			End if
		End if
	End If
End If %>
<html>
<head>
<title>Be Fair H2</title>
<style>
	BODY {
		background-image : url("../images/achtergrond.gif");
		Font-family: Arial;
		Font-size:13px;
	}
	TH {
		Font-family: Arial;
		Font-size:13px;
	}
	TD {
		Font-family: Arial;
		Font-size:13px;
	}
</style>
</head>
<body>
Welkom op de website van Keukencentrum Be Fair Heren 2.<p>

<form action="index.asp" method="POST">
<input type="hidden" name="invoer" value="1">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#CCCCCC">
	<thead>
		<th colspan="2" align="center">Voor teamleden<br>
		(IE 5 vereist)<br>
		<%= Foutmelding %></th>
	</thead>
	<tr>
		<td align="right">Login:</td>
		<td><input type="text" value="<%= Request("naam") %>" name="naam" id="naam" size="20" maxlength="100"></td>
	</tr>
	<tr>
		<td align="right">Paswoord:</td>
		<td><input type="password" name="pass" id="pass" size="20" maxlength="100"></td>
	</tr>
	<tr>
		<td colspan="2" align="center"><input type="submit" value="Log in"></td>
</table>
</form>
<a href="http://zoekmachine.nevobo.nl/mid-west/index.html?%2Fmid-west%2Fws.php3%3Fverid%3DBEFA%26tp%3DH%26nr%3D2" target="_blank">Ons wedstrijdschema</a><p>
<a href="http://zoekmachine.nevobo.nl/mid-west/index.html?%2Fmid-west%2Fst.php3%3Fkl%3DH3D" target="_blank">Stand in onze klasse (H3D)</a>
</body>
</html>