ADODB error - please help?

[Mark]

Hi - Can anyone please help with the error message below - server is XP
Pro, and the ASP code it is failing at is (set
MM_rsUser.Activ eConnection... as below):

<%
MM_valUsername= CStr(Request.Fo rm("username") )
If MM_valUsername <> "" Then
MM_redirectLogi nSuccess="fixit _ebase.asp"
MM_redirectLogi nFailed="fixit_ login.asp?faile d=yes"
MM_flag="ADODB. Recordset"
set MM_rsUser = Server.CreateOb ject(MM_flag)
MM_rsUser.Activ eConnection = conFixitCon
MM_rsUser.Sourc e = "SELECT username, userpassword,
email,edtick,ad fix,apfix,delfi x,sendap,amuser ,viewcom,viewst ,viewrev,vie
wstats,edstmts, qrydb,efstats,e dclient,canview ,browsol FROM tblaccess
WHERE username='" & Replace(MM_valU sername,"'","'' ") &"' AND
userpassword='" & Replace(Request .Form("userpass word"),"'","''" ) & "'"
..
..
Please try the following:

Click the Refresh button, or try again later.

Open the pc2 home page, and then look for links to the information you
want.

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

------------------------------------------------------------
Technical Information (for support personnel)

Error Type:
ADODB.Recordset (0x800A0E7A)
Unknown runtime error
/sitefiles/login.asp, line 56

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MyIE2; Alexa Toolbar;
..NET CLR 1.1.4322)

Page:
POST 46 bytes to /sitefiles/login.asp

POST Data:
username=admin& userpassword=ad min&Submit=Logi n

Time:
02 December 2003, 19:26:22

More information:
Microsoft Support

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Aaron Bertrand [MVP]]

See http://www.aspfaq.com/2340

Stop letting wysiwyg editors created such bloated code

<%
username = replace(Request .Form("username "), "'", "''")
password = Request.Form("u serpassword"), "'", "''")
if username <> "" and password <> "" then
sql = "SELECT COUNT(*) FROM tblaccess " & _
" WHERE username='" & username & "'" & _
" AND userpassword='" & password & "'"
set rs = conFixitCon.exe cute(sql)
if not rs.eof then
response.redire ct "fixit_ebase.as p"
else
response.redire ct "fixit_login.as p?failed=yes"
end if
....
--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/


"Mark" <an*******@devd ex.com> wrote in message
news:uL******** ******@TK2MSFTN GP09.phx.gbl...

Hi - Can anyone please help with the error message below - server is XP
Pro, and the ASP code it is failing at is (set
MM_rsUser.Activ eConnection... as below):

<%
MM_valUsername= CStr(Request.Fo rm("username") )
If MM_valUsername <> "" Then
MM_redirectLogi nSuccess="fixit _ebase.asp"
MM_redirectLogi nFailed="fixit_ login.asp?faile d=yes"
MM_flag="ADODB. Recordset"
set MM_rsUser = Server.CreateOb ject(MM_flag)
MM_rsUser.Activ eConnection = conFixitCon
MM_rsUser.Sourc e = "SELECT username, userpassword,
email,edtick,ad fix,apfix,delfi x,sendap,amuser ,viewcom,viewst ,viewrev,vie
wstats,edstmts, qrydb,efstats,e dclient,canview ,browsol FROM tblaccess
WHERE username='" & Replace(MM_valU sername,"'","'' ") &"' AND
userpassword='" & Replace(Request .Form("userpass word"),"'","''" ) & "'"
.
.
Please try the following:

Click the Refresh button, or try again later.

Open the pc2 home page, and then look for links to the information you
want.

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

------------------------------------------------------------
Technical Information (for support personnel)

Error Type:
ADODB.Recordset (0x800A0E7A)
Unknown runtime error
/sitefiles/login.asp, line 56

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MyIE2; Alexa Toolbar;
NET CLR 1.1.4322)

Page:
POST 46 bytes to /sitefiles/login.asp

POST Data:
username=admin& userpassword=ad min&Submit=Logi n

Time:
02 December 2003, 19:26:22

More information:
Microsoft Support

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!