Type mismatch

[manicleek]

I keep getting the error

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'editRS'
/clientedit/edit.asp, line 266

with the following code

Server.ScriptTimeout = 1000 
 
username = request.form("username")
password = request.form("password")

If Session("user") <> true then
loginSQL = "SELECT * FROM dataqfol WHERE username LIKE '" & username & "' AND password LIKE '" & password & "'"
Set loginRS = server.CreateObject("ADODB.recordset")
loginRS.open loginSQL, objConn

if loginRS.EOF then
		Response.Redirect("unknown.asp")
else
		Session("user") = true
end if

else

SQL = "SELECT * FROM dataqfol WHERE username LIKE '" & username & "' AND password LIKE '" & password & "'"
Set editRS = server.CreateObject("ADODB.recordset")
editRS.open SQL, objConn

if editRS.EOF then
		Response.Redirect("unknown.asp")

end if
end if

the line in question has this on it

<%= editRS("Company") %>

can anyone help with the problem?

 

[manicleek]

in addition to this, when I click refresh it works, its only when you try and initially log in that I am getting this error

 

[ignoreme]

Have you tried running the SQL script by itself (to make sure you are not getting errors)?

 

[BG12424]

Have you tried dimming editRs before setting it?

example:

Dim editRs

regards,
Brian

http://www.gainesconsulting.com

The problem with doing something right the first time is that nobody appreciates how difficult it was.

 

[ChrisHirst]

the problem looks to be your logic with the session variable because if it is false editRS never gets created.



Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.