Can anybody help me solve this problem..
The "Error message" are..
Provider error '80040e4d'
Authentication failed.
/Project1_Local/MPSkv/datates.ASP, line 25
************************************************
**Code**
<%@ Language=VBScript %>
<SCRIPT id=DebugDirectives runat=server language=javascript>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</SCRIPT>
<% ' VI 6.0 Scripting Object Model Enabled %>
<!--#include file="../_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<FORM name=thisForm METHOD=post>
<HTML>
<HEAD>
<%
KundeNr = Request.Form("KundeNr"
Passord = Request.Form("Passord"
'Get KundeNr and passord from previous page
SQL = "SELECT * FROM Purring Where KundeNr='" & KundeNr & "'"
set adoConn = Server.CreateObject ("ADODB.Connection"
set adoRS = Server.CreateObject ("ADODB.Recordset"
dbPath = Server.MapPath("MPS2000-Da.mdb"
adoConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=; " & dbPath
adoRS.Open SQL, adoConn
' OPen a DSN less connection to an access database and get the KundeNr and passord for the record where KundeNr=KundeNr
If adoRS.EOF Then
'The username doesn't exist, do an error.
Response.Write "Kundenr Doesn't Exist!"
Else
If Trim(Passord) = Trim(adoRS("Passord"
) Then 'If the passwords match
Session("LoggedIn"
="TRUE" 'Set a session variable to true
%>
<SCRIPT LANGUAGE=VBSCRIPT>
window.navigate "kva.asp"
</SCRIPT>
<%
'Forward user to next page
Else
'Passwords don't match
Response.Write "Passord is incorrect"
End If
End IF
set adoRS = Nothing
set adoConn = Nothing
%>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:9CF5D7C2-EC10-11D0-9862-0000F8027CA0" id=Recordset1 style="LEFT: 0px; TOP: 0px">
<PARAM NAME="ExtentX" VALUE="12197">
<PARAM NAME="ExtentY" VALUE="2090">
<PARAM NAME="State" VALUE="(TCConn=\qConnection2\q,TCDBObject=\qTables\q,TCDBObjectName=\qPurring\q,TCControlID_Unmatched=\qRecordset1\q,TCPPConn=\qConnection2\q,RCDBObject=\qRCDBObject\q,TCPPDBObject=\qTables\q,TCPPDBObjectName=\qPurring\q,TCCursorType=\q3\s-\sStatic\q,TCCursorLocation=\q3\s-\sUse\sclient-side\scursors\q,TCLockType=\q3\s-\sOptimistic\q,TCCacheSize_Unmatched=\q10\q,TCCommTimeout_Unmatched=\q10\q,CCPrepared=0,CCAllRecords=1,TCNRecords_Unmatched=\q10\q,TCODBCSyntax_Unmatched=\q\q,TCHTargetPlatform=\q\q,TCHTargetBrowser_Unmatched=\qServer\s(ASP)\q,TCTargetPlatform=\qInherit\sfrom\spage\q,RCCache=\qRCBookPage\q,CCOpen=1,GCParameters=(Rows=0))">
<PARAM NAME="LocalPath" VALUE="../"></OBJECT>
-->
<!--#INCLUDE FILE="../_ScriptLibrary/Recordset.ASP"-->
<SCRIPT LANGUAGE="JavaScript" RUNAT="server">
function _initRecordset1()
{
var DBConn = Server.CreateObject('ADODB.Connection');
DBConn.ConnectionTimeout = Application('Connection2_ConnectionTimeout');
DBConn.CommandTimeout = Application('Connection2_CommandTimeout');
DBConn.CursorLocation = Application('Connection2_CursorLocation');
DBConn.Open(Application('Connection2_ConnectionString'), Application('Connection2_RuntimeUserName'), Application('Connection2_RuntimePassword'));
var cmdTmp = Server.CreateObject('ADODB.Command');
var rsTmp = Server.CreateObject('ADODB.Recordset');
cmdTmp.ActiveConnection = DBConn;
rsTmp.Source = cmdTmp;