MARTINEAU Immobilier / Real Estate Montreal

	Please enter your user ID and your password.

	User ID
	Password

	<% strScript = "../password.txt" fldName = Request.Form("name") fldPass = Request.Form("pass") blnPass = false if len(trim(fldName)) > 0 and len(trim(fldPass)) > 0 then set obj00 = CreateObject("Scripting.FileSystemObject") set objTXT = obj00.OpenTextFile(Server.MapPath(strScript), 1) do until objTXT.AtEndOfLine arrLine = split(objTXT.ReadLine, chr(9)) strName = arrLine(0) strPass = arrLine(1) if fldName = strName and fldPass = strPass then blnPass = true end if loop %> <% if blnPass then response.write "" %> <% else %> Your User ID or your password is not correct. Please try again. <% end if %> <% end if %>