conn.open fejl

hey

har lånt en lille stump kode problemet er at jeg ikke kan få det til og virke

felj i line 49.
ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/mysql/checklogin.asp, line 22

line 49 = conn.Open "SELECT password FROM brugere WHERE brugernavn = '" & strbrugernavn & "'",strConn


----------------hele filen-----------------
<%

strdologin = request.form("dologin")
if strdologin = "TRUE" then

strbrugernavn = request.form("brugernavn")
strPassword = request.form("password")

if (strbrugernavn="") then
  strbrugernavn = ""
  strpassword = ""
  strdologin = ""
  Response.Redirect "default.asp"

else

DB_FORBINDSTRENG = "DRIVER={MySQL ODBC 3.51 Driver};server=localhost;uid=g-lock;pwd=goldeneye;database=dennis"
strConn = DB_FORBINDSTRENG
set conn=server.createobject("adodb.connection")
conn.Open strConn

conn.Open "SELECT password FROM brugere WHERE brugernavn = '" & strbrugernavn & "'",strConn

if conn("password") = strpassword then
session("access") = "TRUE"

conn.close()
set conn = nothing
strbrugernavn = ""
strpassword = ""
strdologin = ""
resonse.redirect "hovedside.asp"

else

strpassword = ""
strbrugernavn = ""
response.redirect "default.asp"
end if
end if

else
response.redirect "default.asp"
end if
%>
-----------------fil slut------------------