Forums

This topic is locked

Error 80004005

Posted 01 Aug 2001 12:25:22
1
has voted
01 Aug 2001 12:25:22 Iain MacDonald posted:
I would really appreciate help for this problem its been driving me crazy for the last week. I have a page that has a username and password on an asp page with a login behaviour added.
The setup is
Cobalt RAQ4 server
Ultradev4
dBase database exported from microsoft access

Everytime i have tried to login it has an error message below although ive checked and double checked the code and it seems fine.

The whole site works perfectly fine on PWS with Windows98 but after its transferred over to the cobalt server, the error appears.

Any help would really be appreciated

zathrus

ADODB.Recordset.1 error '80004005'

SQLState: 37000
Native Error Code: 3900
[MERANT][ODBC dBase driver]Missing SQL Clause: OF.

/clientarea.asp, line 22

Heres the conenction script and code for the login page.

<%
// FileName="Connection_odbc_conn_dsn.htm"
// Type="ADO"
// HTTP="true"
// Catalog=""
// Schema=""
var MM_connDBF_STRING = "dsn=companydbf;"
%>

<%@LANGUAGE="JAVASCRIPT"%>
<!--#include file="Connections/connDBF.asp" -->
<%
// *** Validate request to log in to this site.
var MM_LoginAction = Request.ServerVariables("URL";
if (Request.QueryString!="" MM_LoginAction += "?" + Request.QueryString;
var MM_valUsername=String(Request.Form("username");
if (MM_valUsername != "undefined" {
var MM_fldUserAuthorization="ACCESSRIGH";
var MM_redirectLoginSuccess="tender.asp";
var MM_redirectLoginFailed="error.html";
var MM_flag="ADODB.Recordset.1";
var MM_rsUser = Server.CreateObject(MM_flag);
MM_rsUser.ActiveConnection = MM_connDBF_STRING;
MM_rsUser.Source = "SELECT USERNAME, PASSWORD";
if (MM_fldUserAuthorization != "" MM_rsUser.Source += "," + MM_fldUserAuthorization;
MM_rsUser.Source += " FROM USERDETA WHERE USERNAME='" + MM_valUsername + "' AND PASSWORD='" + String(Request.Form("password1") + "'";
MM_rsUser.CursorType = 0;
MM_rsUser.CursorLocation = 2;
MM_rsUser.LockType = 3;
MM_rsUser.Open();
if (!MM_rsUser.EOF || !MM_rsUser.BOF) {
// username and password match - this is a valid user
Session("MM_Username" = MM_valUsername;
if (MM_fldUserAuthorization != "" {
Session("MM_UserAuthorization" = String(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value);
} else {
Session("MM_UserAuthorization" = "";
}
if (String(Request.QueryString("accessdenied") != "undefined" && false) {
MM_redirectLoginSuccess = Request.QueryString("accessdenied";
}
MM_rsUser.Close();
Response.Redirect(MM_redirectLoginSuccess);
}
MM_rsUser.Close();
Response.Redirect(MM_redirectLoginFailed);
}
%>






Replies

Replied 02 Aug 2001 10:37:11
02 Aug 2001 10:37:11 Dark Psycho replied:
At this time i have the same "'ç!'( problem local everthing looks nice and it works but once online it give the same error 80004005
and after searching i think i know wath it its because of the server where the site is running on ,the odbc is not configured ok
so you have to ask them to set the odbc that all the people can wread your database or just look at your settings and ask them to change like yours are

I cannot say this is the good answer to your question because i have the same prob and me and my provider are solving it at the moment and i think this should do it if it is somthing else i will let yo know
Greets DarKPsyChO

The Power Is In The Code
Replied 03 Aug 2001 09:17:22
03 Aug 2001 09:17:22 Dark Psycho replied:
I know wath the answer of your prob is
If the site is running local well there is nothing wrong with your code but with the premissions of the provider or server where your site is host (the premissions of the dbase)

They changed it with me and know it works

Greets DarKPsyChO

The Power Is In The Code

Reply to this topic