<%

'1 Click DB copyright 1997-2002 David Kawliche, AccessHelp.net

'1 Click DB technology is protected by national and international
'laws and treaties.  Never use, distribute, or redistribute
'any software and/or source code in violation of its licensing.

'Use of this software and/or source code is strictly at your own risk.
'All warranties are specifically disclaimed except as required by law.

'IMPORTANT : THIS CODE USES PASS-THROUGH SECURITY !
'
'To enforce application security, set logins and permissions
'for all web server and database users as appropriate.

'For more information see : http://1ClickDB.com
        
'**Start Encode**
%>
<!--#INCLUDE FILE=ocdFreeInit.asp-->
<%

if ocdAdminPassword = ""  Then
	response.clear
	response.redirect ocdConnectURL
Else
End if
dim arrPasswords
dim elePassword
arrPasswords = split(ocdAdminPassword,",")

select case UCASE(Request("Action"))
	Case "LOGON"

		for each elePassword in arrPasswords
		if request.Form("AdminPassword") = elePassword then
			Session("ocdAdminAuthorized") = "True"
			response.redirect "FreeSchema.asp"
		end if
		next
	Case "LOGOUT"
		Session("ocdAdminAuthorized") = ""
		Session("ocdSQLConnect") = ""
		Session("ocdSQLUser") = ""
		Session("ocdSQLPass") = ""
		Session("ocdCompatibility") = ""
		response.redirect(ocdPageName)
End Select
call writeheader("")
Session("ocdAppInit") = True
Response.Write ("<CENTER><FORM method=post action=""")
Response.write (Request.ServerVariables("SCRIPT_NAME"))
Response.write ("?")
Response.write (server.urlencode(request.querystring("datasource")))
Response.write (""" target=_top>")
Response.write DrawDIalogBox("DIALOG_START","Please Logon","")

Response.write ("<TABLE CELLSPACING=3 CELLPADDING=3>")
if request.form <> "" THen
Response.write ("<TR><TD COLSPAN=2><P><SPAN CLASS=Warning><IMG SRC=appWarningSmall.gif ALT=Warning> Incorrect Password</SPAN></P></TD></TR>")
end if
Response.write ("<TR><TD>")


REsponse.write ("<SPAN CLASS=FieldName>Authorization:</TD><TD>")
Response.write "Admin"
Response.write ("</TD></TR>")
Response.write ("<TR><TD ALIGN=LEFT VALIGN=TOP><b>Password:</b></TD><TD ALIGN=LEFT VALIGN=BOTTOM><input type=Password name=adminpassword size=35 maxlength=255 VALUE=""")
If request("pass") <> "" then
	Response.write (server.htmlencode(Request("pass")))
End if
Response.write ("""></TD></TR>")

REsponse.write ("<TR><TD colspan=2 VALIGN=TOP><P><input type=submit name=Action CLASS=Submit Value=""Logon"">")
if Session("ocdAdminAuthorized") = "True" Then
	Response.write ("<input type=submit  CLASS=Submit name=Action Value=""Logout"">")
end if
Response.write ("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
If UCASE(request.servervariables("HTTPS")) = "ON" Then
	Response.write ("<A HREF=""http://" )
	Response.write (request.servervariables("SERVER_NAME"))
	Response.write (request.servervariables("SCRIPT_NAME"))
	Response.write ("?") 
	Response.write (server.urlencode(request.querystring))
	Response.write (""">Exit https secure</a>")
Else
	Response.write ("<A HREF=""https://")
	Response.write (request.servervariables("SERVER_NAME"))
	Response.write (request.servervariables("SCRIPT_NAME"))
	Response.write ("?")
	Response.write (server.urlencode(request.querystring))
	Response.write (""">Make https secure</a>")
End if
Response.write ("</td></tr></table></TD></TR></TABLE></form></CENTER>")
call writefooter("")
%>