Jobbigt fel =(

Vilken rad är det som genererar felet?

rs.Open SQL, conn, 3, 3

Du kopplar till databasen flera gånger.

set rs = server.CreateObject("adodb.recordset")

:)

Men det är ju skillnad på Recordset och connection...eller? vad menar du?

Är du säker på att Request.QueryString("page") har värdet login_check? Om det inte är det så skapas inte ditt connectionobjekt.

Japp...hundra % säker!!

Ah, glöm vad jag sa. Jag vet faktiskt inte vad jag snackade om. :r ;)

if Request.Form("pass") = "" then Response.Redirect("index.asp")
else
set rs = server.CreateObject("adodb.recordset")
SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"
 rs.Open SQL, conn, 3, 3
'..... resten av koden.... avsluta if-satsen langst ner

kanns mer ratt? ;)

Nu får jag :

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0400)
Programsats förväntas.
/suddens/70 - tals mat/index.asp, line 92
end if

Beror väl på att mina end if är placerade lite fel!?
Någon som kan checka upp det? =)

if Request.QueryString("page") = "login_check" then
 set conn = server.CreateObject("adodb.connection")
 conn.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=DatabaseMAT;Uid=root;Pwd=;" 
if Request.Form("pass") = "" then Response.Redirect("index.asp")
 else
set rs = server.CreateObject("adodb.recordset")
SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"

rs.Open SQL, conn, 3, 3
if rs.eof then
session("login") = false
  Response.Redirect("index.asp")
  
   else
 session("login") = True
 session("USERID") = rs("UserID")
'rätt lösen, skicka användaren till den skyddade sidan
 Response.Redirect("index.asp?page=main")
  end if 
  
set conn = nothing
 conn.Close
  set rs = nothing
end if
  end if

Nu kontrollerar du enbart att det finns ett lösenord som stämmer, du kontrollerar inte att det stämmer med userid också.

if Request.Form("pass") = "" then Response.Redirect("index.asp")
 [b][red]else 'ta bort detta else[/red][/b]

får samma fel...ska jag sätta ett end if där istället?

if Request.QueryString("page") = "login_check" then
    set conn = server.CreateObject("adodb.connection")
    conn.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;" & _
    "Stmt=;Database=DatabaseMAT;Uid=root;Pwd=;" 

    if Request.Form("pass") = "" then Response.Redirect("index.asp")

    set rs = server.CreateObject("adodb.recordset")
    SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"
    rs.Open SQL, conn, 3, 3

    if rs.eof then
        session("login") = false
        Response.Redirect("index.asp")
    else
        session("login") = True
        session("USERID") = rs("UserID")
        'rätt lösen, skicka användaren till den skyddade sidan
        Response.Redirect("index.asp?page=main")
    end if 

    set rs = nothing

    set conn = nothing
    conn.Close
end if

Men som LarsG säger, så är det här inget vidare logincheck. Du ska ju kolla om lösenordet stämmer för användaren och inte hämta ett användarnamn om det finns ett lösenord för det.

SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & _
"' and UserName = '" & request.form("username") & "'"

typ...