.asp website that shows the above error when you click on any navigation links.

<!--#INCLUDE FILE="incADO.asp"-->
 
<%
strReturn = request("Return")
 
if strReturn <> "" then
else
if Session("UserName") <> "" then 
Response.Redirect "menu.asp"
end if
end if 
 
 
 
'Set all form variable values equal to NULL
	strUserName = ""
	strPassword = ""
	strLogin = ""
	strSubmit = ""
	strEmailAddress = ""
 
'Retrieving form input and assigning to a variable
'txtUserName is the name of a text box on the form
	strUserName = Request.Form ("txtUserName")
	strPassword = Request.Form("txtPassword")
	strLogin = request("cmdLogin")
	strSubmit = request("cmdSubmit")
	strEmail = request("txtEmail")
	action = request("action")
		
'This code only runs if the submit button is clicked
if  strLogin <> "" then
	'Sets an error message if any required fields are left blank
	if strUserName = "" or strPassword = "" then
		WarningErrMsg = "<br> All fields are required."
	end if
 
	'If error message was not set, then all error checks were passed; Connect to the database
	if WarningErrMsg = "" then
		(not the complete page)

                                              

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:

<% 
 
'Database Connection String; 
'Server.MapPath = the location of the database on the server
'please change the path to the correct path on your server
Set objADO = Server.CreateObject("ADODB.Connection")
sDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\db\fsboREplus.mdb") & ";"	
objADO.Open sDSN
 
'Contact Variables; Used in contact.asp  and other pages that contain the contact info.
'These variables are pulled from the table TblConfig and these values can
'be edited through the site admin control panel. Do not edit the values in this page.
 
		' Create a recordset object to store specific table information
		Set objConfig = Server.CreateObject("ADODB.Recordset")
		
		'Establish what records you want selected for the SQL query string
		SQL = "Select * From TblConfig"
 
		'Set the recordset object equal to the SQL query string
		objConfig.Open SQL, objADO, 1, 3
 
strVarCompany = objConfig("Company")
strVarAddress = objConfig("CompanyAddress")
strVarCity = objConfig("CompanyCity")
strVarState = objConfig("CompanyState")
strVarZip = objConfig("CompanyZip")
strVarCountry = objConfig("CompanyCountry")
strVarEmail = objConfig("CompanyEmail")
strVarPhone = objConfig("CompanyPhone")
strVarFax = objConfig("CompanyFax")
strVarMainContact = objConfig("CompanyContact")
strVarWebsite = objConfig("CompanyWebsite")
 
 
THIS CODE FROM incADO.ASP
 
just remembered database was created for MS Access, and is hosted on MS SQL server 2003

                                              

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: