Logonproblemer ved skift fra access til MYSQL

Typisk vil man lave login sådan her, ved at lave en SELECT med en WHERE på, er recordsetet ikke tomt findes brugeren, er det tomt findes brugere ikke sådan her:


<%

Bnavn = Request.form ("Navn")
Pass = Request.form ("pass")

StrQ = "Select Navn, password, Bnavn, type from data where Bnavn = '" & Replace(Bnavn,"'","''") & " AND password = '" & Replace(pass,"'","''") & "'"
Objrs.open StrQ
If not Objrs.EOF Then
  Session("navn") = objrs("Bnavn")
  if objrs("type") = "A" Then
    Response.Redirect "bover.asp"
  Else
    Response.Redirect "hover.asp"
  End if
End if
Session("logon") = 1
Response.Redirect "login.asp"
%>

Har lige prøvet - kommer nu med denne fejl:

Technical Information (for support personnel)

Error Type:
Sun ONE ASP VBScript runtime (0x800A01A8)
Object required: 'Objrs'
/vallog.asp, line 12

Har du en linje i koden som denne?

Set Objrs=Server.CreateObject("ADODB.Recordset")

Samt en connection til din database?

sådan det hele bliver i stil med dette:


<%
Set Objrs=Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
Conn.Open "din connection string"


Bnavn = Request.form ("Navn")
Pass = Request.form ("pass")

StrQ = "Select Navn, password, Bnavn, type from data where Bnavn = '" & Replace(Bnavn,"'","''") & " AND password = '" & Replace(pass,"'","''") & "'"

set Objrs = Conn.Execute(StrQ)
If not Objrs.EOF Then
  Session("navn") = objrs("Bnavn")
  if objrs("type") = "A" Then
    Response.Redirect "bover.asp"
  Else
    Response.Redirect "hover.asp"
  End if
End if
Session("logon") = 1
Response.Redirect "login.asp"
%>

Jeg har en fil, som finder til databasen og includeres på alle sider. Jeg har dog i stedet prøvet at skrive det hele på side. Koden ser herefter således ud:

<%

Set Objrs=Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")

Conn.Open "driver={mysql};server=localhost;Database=mitdomæne;uid=mitdomæne;pwd=password"

Bnavn = Request.form ("Navn")
Pass = Request.form ("pass")

StrQ = "Select Navn, password, Bnavn, type from data where Bnavn = '" & Replace(Bnavn,"'","''") & " AND password = '" & Replace(pass,"'","''") & "'"
Objrs.open StrQ
If not Objrs.EOF Then
Session("navn") = objrs("Bnavn")
if objrs("type") = "A" Then
Response.Redirect "bover.asp"
Else
Response.Redirect "hover.asp"
End if
End if

Session("logon") = 1
Response.Redirect "login.asp"
%>

Herefter kommer der følgende fejl:

Technical Information (for support personnel)

Error Type:
ADODB.Recordset.1 (0x800A0E7D)
Invalid connection.
/vallog.asp, line 14


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 28 bytes to /vallog.asp

POST Data:
Navn=test&pass=test&B1=Login

Linie 14 er: Objrs.open StrQ

Jeg kan umiddelbart ikke se, hvor det går galt?

Lukker spg. :-)