<%

'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**

        
'**Start Encode**
%>
<!--#INCLUDE FILE=ocdFreeInit.asp-->
<%
dim strConnectReturn, strDisConnectReturn, strSourceContext,strAC, strAU, strAP, strCM, strConnectCaption

sub setConnectionInfo(strAction, strConnect, strUser, strPass, strCompatibility)
	Select Case UCase(strAction)
		Case "CONNECT"
			session("ocdSQLConnect") = strConnect
			session("ocdSQLUser") = strUser
			session("ocdSQLPass") = strPass
			response.clear
			response.redirect(strConnectReturn)
		Case "DISCONNECT"
			Session("ocdSQLConnect") = ""
			Session("ocdSQLUser") = ""
			Session("ocdSQLPass") = ""
			response.clear
			response.redirect strDisconnectReturn
	End Select
end sub
strConnectReturn = "Freeschema.asp"
strDisConnectReturn = "Freeconnect.asp?nocache=" & server.urlencode(Cstr(now))
if ocdADOConnection <> "" Then
	response.redirect strConnectReturn
End if
strAC = Session("ocdSQLConnect") 
strAU = Session("ocdSQLUser") 
strAP=  Session("ocdSQLPass")
select case UCASE(Request("Action"))
	Case "CONNECT"
		if request("connect") <> "" Then
			ndnscSQLConnect = request("connect")
		End if
		if ndnscSQLConnect <> "" Then
			ndnscSQLUser = request("user")
			ndnscSQLPass = request("pass")
			ndnscCompatibility = 0
			if request("nosession") <> "" Then
				ndnscCompatibility = ndnscCompatibility + ocdNoCookies
			End if
			if request("noframes") <> "" Then
				ndnscCompatibility = ndnscCompatibility + ocdNoFrames
			end if
			if request("nojavascript") <> "" Then
				ndnscCompatibility = ndnscCompatibility + ocdNoJavaScript
			End if
			
			if not CBOOL((ndnscCompatibility and ocdNoCookies)) Then
				call setConnectionInfo ("Connect",ndnscSQLConnect,ndnscSQLUser,ndnscSQLPass,ndnscCompatibility)
				
			End if
		End if
	Case "DISCONNECT"
			call setConnectionInfo ("Disconnect",ndnscSQLConnect,ndnscSQLUser,ndnscSQLPass,ndnscCompatibility)
End Select


Call writeheader("")


Response.Write ("<CENTER>")
strConnectCaption = strConnectCaption  & (" Connect To Database")
response.write DrawDialogBox("DIALOG_START",strConnectCaption, "")
Response.write ("<FORM method=post action=""")
Response.write (Request.ServerVariables("SCRIPT_NAME"))
Response.write ("?Datasource=")
Response.write (server.urlencode(request.querystring("datasource")))
Response.write (""">")
Response.write ("<TABLE CLASS=DIALOGBOXTABLE>")
Response.write("<TR CLASS=DialogBoxRow><TD VALIGN=TOP NOWRAP><SPAN CLASS=FieldName>Connect&nbsp;String:</SPAN><BR><SMALL>(Can Be DSN)</SMALL><P></TD><TD VALIGN=TOP><TEXTAREA NAME=connect rows=2 cols=35>")
if strAC <> "" Then
	Response.write (Server.HTMLEncode(strAC))
Else
End if
Response.write ("</TEXTAREA></td></tr>")
Response.write ("<TR CLASS=DialogBoxRow><TD VALIGN=TOP  ALIGN=LEFT><SPAN CLASS=FieldName>User Name:</SPAN></TD><TD VALIGN=BOTTOM ALIGN=LEFT><input type=text CLASS=ConnectInput name=user size=35 maxlength=255 VALUE=""")
if request("user") <> "" Then
	Response.write (server.htmlencode(request("user")))
Elseif request("datasource") = "" Then
	Response.write (server.htmlencode(strAU))
End if
Response.write ("""></TD></TR><TR CLASS=DialogBoxRow><TD ALIGN=LEFT VALIGN=TOP><SPAN CLASS=FieldName>Password:</SPAN></TD><TD ALIGN=LEFT VALIGN=BOTTOM><input CLASS=ConnectInput type=Password name=pass size=35 maxlength=255 VALUE=""")
If request("pass") <> "" then
	Response.write (server.htmlencode(Request("pass")))
Elseif request("datasource") = "" Then
	Response.write (server.htmlencode(strAP))
End if
Response.write ("""></TD></TR><TR CLASS=DialogBoxRow><TD colspan=2 VALIGN=TOP><P><INPUT TYPE=HIDDEN NAME=ocdCSSFix><input type=submit name=Action CLASS=Submit Value=""Connect"">")
if strAC <> "" and request("datasource") = "" Then
	Response.write ("<input type=submit  CLASS=Submit name=Action Value=""Disconnect"">")
end if
Response.write ("&nbsp;&nbsp;&nbsp;")
Response.write ("&nbsp;&nbsp;&nbsp;")
if strSourceContext = "" THen
	If UCASE(request.servervariables("HTTPS")) = "ON" Then
		Response.write ("<A CLASS=MENU HREF=""http://" )
		Response.write (request.servervariables("SERVER_NAME"))
		Response.write (request.servervariables("SCRIPT_NAME"))
		Response.write ("?") 
		Response.write (server.urlencode(request.querystring))
		Response.write ("""><IMG SRC=""appNoSSL.gif"" BORDER=0 ALT=""Enable SSL"">&nbsp;Disable&nbsp;SSL&nbsp;Now</a>")
	Else
		Response.write ("<A  CLASS=MENU HREF=""https://")
		Response.write (request.servervariables("SERVER_NAME"))
		Response.write (request.servervariables("SCRIPT_NAME"))
		Response.write ("?")
		Response.write (server.urlencode(request.querystring))
		Response.write ("""><IMG SRC=""appSSL.gif"" BORDER=0 ALT=""Enable SSL"">&nbsp;Enable&nbsp;SSL&nbsp;Now</a>")
	End if
End if
Response.write ("</TD></TR></TABLE>")
Response.write ("</FORM>")
response.write DrawDialogBox("DIALOG_END","","")
Response.write ("</CENTER>")
call writefooter("")
%>