Microsoft JET Database Engine error '80040e14'
Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.
/fcrore/asp/admin.asp, line 27
codice:
<%
'Apre il database
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/base.mdb")
objConn.Open strConn
Dim objRS, bolFound, strUser
strUser = Request.form("username")
If strUser = "" Then
objConn.Close
set objConn = Nothing
Response.Write "Inserire username!"
Response.End
End If
If Request("password") = "" Then
objConn.Close
set objConn = Nothing
Response.Write "Inserire password!"
Response.End
End If
Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.Open "user", objConn, , , adCmdTable
bolFound = False <------------- riga 27
Do While Not (objrs.EOF OR bolFound)
If (StrComp(objrs("user"), strUser, vbTextCompare) = 0) Then
bolFound = True
Else
objrs.MoveNext
End If
Loop
If Not bolFound Then
objrs.Close
set objrs = Nothing
objConn.Close
set objConn = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>CONSOL DI COMANDO</title>
</head>
<body bgcolor="#9CAE46">
<style type="text/css">
BODY {
SCROLLBAR-BASE-COLOR: #768834;
SCROLLBAR-ARROW-COLOR: #9CAE46;
overflow-x:hidden;
}
</style>
<font face="Arial Narrow" size="7" color="#FFFFFF">Invalid username</font></p>
<%
Response.End
End If
If Not (StrComp(objrs("pass"), Request.form("password"), vbBinaryCompare) = 0) Then
objrs.Close
set objrs = Nothing
objConn.Close
set objConn = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>CONSOL DI COMANDO</title>
</head>
<body bgcolor="#9CAE46">
<style type="text/css">
BODY {
SCROLLBAR-BASE-COLOR: #768834;
SCROLLBAR-ARROW-COLOR: #9CAE46;
overflow-x:hidden;
}
</style>
<font face="Arial Narrow" size="7" color="#FFFFFF">Invalid password</font></p>
<%
Response.End
End If
response.redirect("consol.asp")
%>
Non so che fare prima funzionava perfettamente