Format of the initialization string does not conform to the OLE DB specification.

<%
User_Custom1_Name=Custom1
User_Custom1_Used=False
User_Custom2_Name=Custom2
User_Custom2_Used=False
User_Custom3_Name=Custom3
User_Custom3_Used=False
User_Custom4_Name=Custom4
User_Custom4_Used=False
User_Custom5_Name=Custom5
User_Custom5_Used=False
User_Custom6_Name=Custom6
User_Custom6_Used=False
Log_Off_Page=http://localhost/aspbanner/goodbye.asp
BannerRedirectURL=http://localhost/aspbanner/banner_redirect.asp
Email_Component=CDOSYS
EmailNotification=test@test.com
Mail_RemoteHost=
UseSMTPAuth=False
SMTPUsername=
SMTPPassword=
BannerConnectionString=DBQ=c:\inetpub\wwwroot\aspbanner\data\database\aspbanner_access2002.mdb;Driver={Microsoft Access Driver (*.mdb)}
BannerDatabaseType=MSACCESS
App_Name=ASPBanner Unlimited Version 8.3
QueryBitValue=1
DelayedStatsWriting=False
EnableStoredProcedures=False
%>

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

<%
'***********************************************************************
'   System     :   ASPBanner Unlimited Version 8.3						
'   Author     :   Christopher Williams of CJWSoft www.CJWSoft.com		
'																		
'                         COPYRIGHT NOTICE								
'																		
'   See attached Software License Agreement								
'																		
'   (c) Copyright 2000 - 2006 by CJWSoft.			 All rights reserved
'***********************************************************************
%>
 
<!--#INCLUDE FILE="config_inc.asp"-->
<% CHECKFOR = "Admin" %>
<!--#INCLUDE FILE="check_user_inc.asp"-->
 
<%
If ConfigFileLocation = "" Then
	ConfigFileLocation = (Server.MapPath("data/config/aspbanner_unlimited_config.asp"))
End If
	
Set fsoconfig=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set fsoconfig_open=fsoconfig.OpenTextFile(ConfigFileLocation, 1)
	
If Err.Number <> 0 Then
	Err.Clear
Else
	ConfigStrIn = fsoconfig_open.ReadAll
End If
	
fsoconfig_open.Close
Set fsoconfig=Nothing
Set fsoconfig_open=Nothing
	
ConfigArray = Split(ConfigStrIn,vbCrLf)
	
	BannerRedirectURL = Request("BannerRedirectURL")
	QueryBitValue = Request("QueryBitValue")
	Log_Off_Page = Request("Log_Off_Page")
	App_Name = Request("App_Name")
	SMTPPassword = Request("SMTPPassword")
	Mail_RemoteHost = Request("Mail_RemoteHost")
	Email_Component = Request("Email_Component")
	UseSMTPAuth = Request("UseSMTPAuth")
	SMTPUsername = Request("SMTPUsername")
	EmailNotification = Request("EmailNotification")
	User_Custom1_Used = Request("User_Custom1_Used")
	User_Custom1_Name = Request("User_Custom1_Name")
	User_Custom2_Used = Request("User_Custom2_Used")
	User_Custom2_Name = Request("User_Custom2_Name")
	User_Custom3_Used = Request("User_Custom3_Used")
	User_Custom3_Name = Request("User_Custom3_Name")
	User_Custom4_Used = Request("User_Custom4_Used")
	User_Custom4_Name = Request("User_Custom4_Name")
	User_Custom5_Used = Request("User_Custom5_Used")
	User_Custom5_Name = Request("User_Custom5_Name")
	User_Custom6_Used = Request("User_Custom6_Used")
	User_Custom6_Name = Request("User_Custom6_Name")
	DelayedStatsWriting = Request("DelayedStatsWriting")
	EnableStoredProcedures = Request("EnableStoredProcedures")
	
Sub SaveConfigValue(ConfigVariableName,ConfigVariableValue)
	
	If InStr(ConfigArray(ConfigArray_Index),ConfigVariableName) Then
		ConfigArray(ConfigArray_Index) = Trim(ConfigVariableName) & "=" & Trim(Replace(ConfigVariableValue,"=",""))
	End If
	
End Sub
	
Set fsoconfig=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set fsoconfig_open=fsoconfig.OpenTextFile(ConfigFileLocation, 1)
	
If Err.Number <> 0 Then
	Err.Clear
Else
	ConfigStrIn = fsoconfig_open.ReadAll
End If
	
ConfigArray = Split(ConfigStrIn,vbCrLf)
	
' Loop through the config file line by line looking for variables we need to edit
For ConfigArray_Index = 0 To Ubound(ConfigArray)
	
	
	SaveConfigValue "Log_Off_Page" , Log_Off_Page
	SaveConfigValue "BannerRedirectURL" , BannerRedirectURL
	SaveConfigValue "App_Name" , App_Name
	SaveConfigValue "QueryBitValue" , QueryBitValue
	
	SaveConfigValue "User_Custom1_Name" , User_Custom1_Name
	SaveConfigValue "User_Custom2_Name" , User_Custom2_Name
	SaveConfigValue "User_Custom3_Name" , User_Custom3_Name
	SaveConfigValue "User_Custom4_Name" , User_Custom4_Name
	SaveConfigValue "User_Custom5_Name" , User_Custom5_Name
	SaveConfigValue "User_Custom6_Name" , User_Custom6_Name
	
	If User_Custom1_Used="" THEN
		SaveConfigValue "User_Custom1_Used" , "False"
	Else
		SaveConfigValue "User_Custom1_Used" , "True"
	End If
	
	
	If User_Custom2_Used="" THEN
		SaveConfigValue "User_Custom2_Used" , "False"
	Else
		SaveConfigValue "User_Custom2_Used" , "True"
	End If
	
	
	If User_Custom3_Used="" THEN
		SaveConfigValue "User_Custom3_Used" , "False"
	Else
		SaveConfigValue "User_Custom3_Used" , "True"
	End If
	
	
	If User_Custom4_Used="" THEN
		SaveConfigValue "User_Custom4_Used" , "False"
	Else
		SaveConfigValue "User_Custom4_Used" , "True"
	End If
	
	If User_Custom5_Used="" THEN
		SaveConfigValue "User_Custom5_Used" , "False"
	Else
		SaveConfigValue "User_Custom5_Used" , "True"
	End If
	
	
	If User_Custom6_Used="" THEN
		SaveConfigValue "User_Custom6_Used" , "False"
	Else
		SaveConfigValue "User_Custom6_Used" , "True"
	End If
	
	If DelayedStatsWriting="" THEN
		SaveConfigValue "DelayedStatsWriting" , "False"
	Else
		SaveConfigValue "DelayedStatsWriting" , "True"
	End If
	
	If EnableStoredProcedures="" THEN
		SaveConfigValue "EnableStoredProcedures" , "False"
	Else
		SaveConfigValue "EnableStoredProcedures" , "True"
	End If
	
	SaveConfigValue "Email_Component" , Email_Component
	
	SaveConfigValue "Mail_RemoteHost" , Mail_RemoteHost
	
	If UseSMTPAuth="" THEN
		SaveConfigValue "UseSMTPAuth" , "False"
	Else
		SaveConfigValue "UseSMTPAuth" , UseSMTPAuth
	End If
	
	SaveConfigValue "SMTPUsername" , SMTPUsername
	
	SaveConfigValue "SMTPPassword" , SMTPPassword
	
	SaveConfigValue "EmailNotification" , EmailNotification
	
	SaveConfigValue "QueryBitValue" , QueryBitValue
	
	SaveConfigValue "App_Name" , App_Name
%>
 
<%
Next
	
' Build the new configuration file
For ConfigArray_Index = 0 To Ubound(ConfigArray)
	ConfigStrOut = ConfigStrOut & ConfigArray(ConfigArray_Index)
	
	If ConfigArray_Index <> Ubound(ConfigArray) Then
		ConfigStrOut = ConfigStrOut & vbCrLf
	End if
Next
	
' Open the text file for writing
set fsoconfig_write=fsoconfig.CreateTextFile(ConfigFileLocation,true)
fsoconfig_write.Write(ConfigStrOut)
	
' Close objects and cleanup
fsoconfig_write.Close
fsoconfig_open.Close
Set fsoconfig=Nothing
	
Application.Lock
	Application("Banner_Config_Updated") = "False"
Application.Unlock
%>
 
<% Response.Redirect("settings.asp?Action=Saved") %>
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:

<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
 
<%
'***********************************************************************
'   System     :   ASPBanner Unlimited Version 8.3						
'   Author     :   Christopher Williams of CJWSoft www.CJWSoft.com		
'																		
'                         COPYRIGHT NOTICE								
'																		
'   See attached Software License Agreement								
'																		
'   (c) Copyright 2000 - 2004 by CJWSoft.			 All rights reserved
'***********************************************************************
%>
 
<!--#INCLUDE FILE="aspbanner_unlimited_key_password.asp"-->
 
 
<%
'**********************************************
'*** Start of call to configuration file to retrieve settings
	
FileLocation = (Server.MapPath("aspbanner_unlimited_config.asp"))
	
Set fsoconfig=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set fsoconfig_open=fsoconfig.OpenTextFile(FileLocation, 1)
	
If Err.Number <> 0 Then
	Err.Clear
Else
	ConfigStrIn = fsoconfig_open.ReadAll
End If
	
fsoconfig_open.Close
Set fsoconfig=Nothing
Set fsoconfig_open=Nothing
	
ConfigArray = Split(ConfigStrIn,vbCrLf)
	
BannerConnectionString = Replace(ConfigArray(21),("BannerConnectionString" & "="),"")
BannerDatabaseType = Replace(ConfigArray(22),("BannerDatabaseType" & "="),"")
	
'*** End of call to configuration file to retriev
%>
 
<HEAD>
<TITLE><% =Application("App_Name") %></TITLE>
 
</HEAD>
 
<body style="font-family: Arial; font-size: 8pt">
 
<%
Edit_Status = Request("Edit_Status")
Edit_DataConn_Password = Request("Edit_DataConn_Password")
	
If Edit_Status = "DataConnCheckEm" Then
If Edit_DataConn_Password = DataConn_Setup_Password THEN
	Session("DataConn_PasswordAccess") = "Yes"
End If
End If
	
If Session("DataConn_PasswordAccess") <> "Yes" Then
%>
 
<p align="center"><b><font ><i>Data Connection Setup Page</i></font></b></p>
<p align="center"><font  size="2">The password for this page is stored in the "aspbanner_unlimited_key_password.asp" file
<br>and should be changed from it's default value after getting the system setup.</font></p>
 
      <HTML>
      <BODY bgcolor="#FFFFFF">
      <form method="POST" action="aspbanner_unlimited.asp">
      <div align="center"><center><p><input type="Edit_DataConn_Password" name="Edit_DataConn_Password" size="10"><br>
      <input type="hidden" value="DataConnCheckEm" Name="Edit_Status" >
      <input type="submit" value="Login"></p>
      </center></div>
      </form>
      </BODY>
      </HTML>
<%
Response.End
End If
%>
 
<p align="center"><font  size="2">System Settings</font></p>
 
<% If Request("Action") = "Save" Then %>
<!--#INCLUDE FILE="includes/aspbanner_unlimited_save_inc.asp"-->
<%
Application.Lock
	Application("Banner_Config_Updated") = "False"
Application.Unlock
	
Response.Redirect aspbanner_unlimited.asp
End If
%>
 
<!--#INCLUDE FILE="includes/aspbanner_unlimited_form_inc.asp"-->
 
</BODY>
</HTML>
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103: