Login system fejl

Du skal måske requeste dine variabler.

Du mangler at hente form data ind i dine to variable så prøve at tilføjde to linjer før if sætningen    If Len(bruger) > 0 And Len(kode) > 0 Then

bruger=Request.form("brugerfeltnavn")
kode=Request.form("kodefeltnavn")

Hvis du vil have lidt yderligere vinden om loginfunktioner, så kig her:

http://activedeveloper.dk/artikler/default.asp?articleid=88

eller

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=659

Eageleye, forstår det ikke helt 100% ved ikke om du kan sætte ind i min kode?

Jo men jeg kender jo ikke navne på dine to input fleter hvor man taster brugernavn og kodeordet ind men disse linjer:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database.mdb")

 
 
    If Len(bruger) > 0 And Len(kode) > 0 Then



Skal blive til dette:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database.mdb")

bruger=Request.form("XXX")  'udskift XXX men navnet på input feltet som indeholder brugernavnet
kode=Request.form("YYY")    'udskift YYY men navnet på input feltet som indeholder kodeordet
 
    If Len(bruger) > 0 And Len(kode) > 0 Then

min kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database.mdb")

bruger=Request.form("bruger") 
kode=Request.form("kode")   

    If Len(bruger) > 0 And Len(kode) > 0 Then
       
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

        Set Rs = Server.CreateObject("ADODB.RecordSet")
        Rs.Open sSQL, Conn, 3,3

        If Not (rs.BOF Or rs.EOF) Then
           
                        session("tillad")="ja"
                        session("bruger")=rs("bruger")
            response.redirect "startside.asp"
        Else
            Response.Write "Koden eller brugernavnet var forkert."
        End If

        Rs.Close
        Set Rs = Nothing
    Else
        response.redirect "login.asp"
   
End If

Conn.Close
Set Conn = Nothing
%>

min database:
id
bruger
kode
navn
info

virker ikke samme fejl.

prøv at udskrive din sql sætning istedet for at afvikle den.
brug Response.Write(sSQL)

ellers prøv med det her:

'Åbner en dns-less forbindelse til databasen
set Database= Server.CreateObject("ADODB.Connection")
Database.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/xware.mdb") & "; UID=; PWD=;"



'eksekvere de 2 sql sætninger
Set rs= database.Execute (sSQL)

ved at udskrive sql sætningen kan du se om den indeholder det data du forventer .
Ved ikke hvordan din connection string ser ud.

dr Chaos ved ikke om du kan sætte ind i min kode..

har du overhovedet noget som executer din sql sætning?
du åbner så viddt jeg kan se bare en forbindelse til databasen

Dr Chaos. ved ikke om du så kan rette det til, dette er mit første login script.

prøv med
<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")   
    bruger=Request.form("bruger") 
kode=Request.form("kode")   


    If Len(bruger) > 0 And Len(kode) > 0 Then


       
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
           
                        session("tillad")="ja"
                        session("bruger")=rs("bruger")
            response.redirect "startside.asp"
        Else
            Response.Write "Koden eller brugernavnet var forkert."
        End If

        Rs.Close
        Set Rs = Nothing
    Else
        response.redirect "login.asp"
   
End If

Conn.Close
Set Conn = Nothing
%>

sker intet.

Erstat
If Len(bruger) > 0 And Len(kode) > 0 Then

med

If bruger <> "" and kode <> "" Then

hvad hedder de 2 felter på selve log ind siden ?

<input type="text" name="bruger" size="20">brugernavn<br>
<input type="password" name="kode" size="20">Kodeord<br>

if not rs1.EOF then

prøv med
<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")   
    bruger=Request.form("bruger") 
kode=Request.form("kode")   


    If Len(bruger) > 0 And Len(kode) > 0 Then


       
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
           
                        session("tillad")="ja"
                        session("bruger")=rs("bruger")
            response.redirect "startside.asp"
        Else
            Response.Write "Koden eller brugernavnet var forkert."
        End If

        Rs.Close
        Set Rs = Nothing
    Else
        response.redirect "login.asp"
   
End If

Conn.Close
Set Conn = Nothing
%>

ups kom til at trykke forkert

kan du ikke lige vise os hele din login form

if not rs1.EOF then

prøv med
<%

'set Conn= Server.CreateObject("ADODB.Connection")
'Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
'bruger=Request.form("bruger") 
'kode=Request.form("kode")   


    If bruger <> "" and kode <> "" Then


       
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
End IF
'Set rs= database.Execute (sSQL)



'        If Not (rs.BOF Or rs.EOF) Then
           
'                      session("tillad")="ja"
  '                      session("bruger")=rs("bruger")
  '        response.redirect "startside.asp"
    '    Else
'            Response.Write "Koden eller brugernavnet var forkert."
'      End If

  '      Rs.Close
  '    Set Rs = Nothing
    'Else
'        response.redirect "login.asp"
   
'End If

'Conn.Close
'Set Conn = Nothing
%>

nu skulle din login side vise indholdet af din sql sætning.
Prøv at kopierer det her ind.

sker stadig intet med den kode med alle de 'er men urlen siger sådan her:
http://frip.dk/leader/test/loginok.asp?bruger=123&kode=123

lol ved hvad fejlen er 2 sec

erstat:

bruger=Request.form("bruger") 
kode=Request.form("kode")   

med

bruger = Request.QueryString("bruger")
kode  = Request.QueryString("kode")

det skal være med lille s i Querystring ikke stort sorry

hvis du skal bruger request.form så skal du bruger method="post" i din <form> tag på den side hvor du skriver brugernavn og password

prøv i stdet at kigge på det her:

http://activedeveloper.dk/artikler/default.asp?articleid=88

det er noget mere sikkert end at sende user og pass i din Qstring, hvor den vil blive gemt i din browser så alle kan se den.

hjalp det ?
grundet til at det ikke virkede var at du skal bruge requestquery string når du sender password og brugernavn via urlen.
Med ved at bruger method="post" i din login form så står der ikke noget i urlen.

ser bedere ud nu
får denne fejl:
Microsoft VBScript compilation  error '800a03ea'

Syntax error

/leader/test/loginok.asp, line 33

Else
^

kode:
<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
End IF
'Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."
    End If

        Rs.Close
      Set Rs = Nothing
    Else
        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

prøv med

<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."
    End If

        Rs.Close
      Set Rs = Nothing
    Else
        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

Prøv dette

<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
End IF
'Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."
    End If

    If  Rs.Close
      Set Rs = Nothing
    Else
        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

chaos skete intet ved din måde.

lars bachmann
din får jeg denne fejl:
Microsoft VBScript compilation  error '800a03f9'

Expected 'Then'

/leader/test/loginok.asp, line 32

If  Rs.Close
------------^

<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
End IF
'Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."
    End If

    If  Rs.Close Then
      Set Rs = Nothing
    Else
        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

bachmann der er fejl i din kode.
du skal fjerne ' udfre Set rs= Database osv.
der er et end if for meget.
rigtig kode er:

<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
Set rs= Conn.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."
    End If

        Rs.Close
      Set Rs = Nothing
    Else
        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

lars:
Microsoft VBScript runtime  error '800a01a8'

Object required: 'rs'

/leader/test/loginok.asp, line 22

chaos kommer intet på din kode.

<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (brugere = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
End IF
'Set rs= database.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."


      Rs.Close
      Set Rs = Nothing

        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

hedder feltet brugere i brugere tabellen ?

Microsoft VBScript runtime  error '800a01a8'

Object required: 'rs'

/leader/test/loginok.asp, line 22

min database:

- brugere -
id - auto
bruger - text
kode - text
navn - text
info - text

prøv med:
<%

set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

bruger = Request.Querystring("bruger")
kode  = Request.Querystring("kode")


    If bruger <> "" and kode <> "" Then


     
        sSQL = "SELECT * FROM brugere WHERE (bruger = '" & bruger & "') AND (kode = '" & kode & "')"

Response.Write(sSQL)
Set rs= Conn.Execute (sSQL)



        If Not (rs.BOF Or rs.EOF) Then
         
                    session("tillad")="ja"
                    session("bruger")=rs("bruger")
        response.redirect "startside.asp"
    Else
            Response.Write "Koden eller brugernavnet var forkert."
    End If

        Rs.Close
      Set Rs = Nothing
    Else
        response.redirect "login.asp"
 
End If

Conn.Close
Set Conn = Nothing
%>

hmm siger intet.

hvis den er umulig findes der så ikke et andet login system der er færdig lavet?

http://activedeveloper.dk/artikler/default.asp?articleid=88

Her er en god tutorial

som jeg har forsøgt at skrive heletiden ;-)

http://activedeveloper.dk/artikler/default.asp?articleid=88

eller

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=659

jo den som moejensen nævner.
http://activedeveloper.dk/artikler/default.asp?articleid=88

har selv brugt den i tidernes morgen

allesammen, har kigget på den men kan ikke få den tilpasset til mit system nogen der kan hjælpe ;)??

jeg kan hjælpe dig imorgen tidlig men skal til og i seng nu.

ok ;)

<%
    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
   
    bruger = Request.Querystring("bruger")
    kode  = Request.Querystring("kode")
   
    sSQL = "SELECT * FROM brugere WHERE bruger = '" & bruger & "' AND kode = '" & kode & "'"
    Set rs = Conn.Execute(sSQL)
   
    If Not rs.EOF Then
        Session.Timeout = 5
        Session("tillad") = "ja"
        Session("bruger") = rs("bruger")
    End If
   
    Rs.Close
    Set Rs = Nothing

    Conn.Close
    Set Conn = Nothing
   
    if Session("tillad") = "ja" then
        response.Redirect "startside.asp"
    else
        response.Redirect "LogonErr.asp"
    end if
%>

Du skal selvfølgelig have filerne startside.asp og LogonErr.asp til at håndtere korrekt og fejlagtigt login.

Kinderaeg, dit virker ikke når jeg trykker ok til pass og brugernavn sker der intet..

Prøv at vise din login form

<html>
<head>
<title>Login</title>
</head>
<body>
<form method="post" action="loginok.asp">
<input type="text" name="bruger" size="20">brugernavn<br>
<input type="password" name="kode" size="20">Kodeord<br>
<input type="submit" value="Log ind !">
</form>
</body>
</html>

så skal du bruge

<%
    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
   
    bruger = Request.Form("bruger")
    kode  = Request.Form("kode")
   
    sSQL = "SELECT * FROM brugere WHERE bruger = '" & bruger & "' AND kode = '" & kode & "'"
    Set rs = Conn.Execute(sSQL)
   
    If Not rs.EOF Then
        Session.Timeout = 5
        Session("tillad") = "ja"
        Session("bruger") = rs("bruger")
    End If
   
    Rs.Close
    Set Rs = Nothing

    Conn.Close
    Set Conn = Nothing
   
    if Session("tillad") = "ja" then
        response.Redirect "startside.asp"
    else
        response.Redirect "LogonErr.asp"
    end if
%>

moejensen, virker ikke sker slet ikke noget..

jeg kan ikke helt se hvad du gør galt, for det virker fint her.

Jeg har en fil der hedder default.asp, hvor jeg har dette:

<html>
<head>
<title>Login</title>
</head>
<body>
<form method="post" action="loginok.asp">
<input type="text" name="bruger" size="20">brugernavn<br>
<input type="password" name="kode" size="20">Kodeord<br>
<input type="submit" value="Log ind !">
</form>
</body>
</html>

i loginok.asp har jeg det her:

<%
    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
   
    bruger = Request.Form("bruger")
    kode  = Request.Form("kode")
   
    sSQL = "SELECT * FROM brugere WHERE bruger = '" & bruger & "' AND kode = '" & kode & "'"
    Set rs = Conn.Execute(sSQL)
   
    If Not rs.EOF Then
        Session.Timeout = 5
        Session("tillad") = "ja"
        Session("bruger") = rs("bruger")
    End If
   
    Rs.Close
    Set Rs = Nothing

    Conn.Close
    Set Conn = Nothing
   
    if Session("tillad") = "ja" then
        response.Redirect "startside.asp"
    else
        response.Redirect "LogonErr.asp"
    end if
%>

i basen har jeg en tabel brugere der indeholder følgende
id (af typen autonum)
bruger (af typen tekst)
kode (af typen tekst)

jeg har indsat en testbruger der hedder test/test, og det hele virker som det skal

hmm bruger helt den samme kode, kan det være frip der ikke understøtter en del af det eller noget ??

du får ingen fejl?

er det muligt at få et link ti lder hvor du tester koden?

Hvad mener du med at der intet sker? Det er ikke bare fordi den side du redirecter til (startside.asp) ikke har noget indhold? Får du nogen fejlmeddelelse eller bare en blank side?

www.frip.dk/leader/test/login.asp

når man trykker ok sker der bare intet, blir ikke sendt videre nogle steder eller fejl meddelseser..

har du oprettet en bruger vi kan prøve med, for ellers er det jo lidt et problem at teste det :-)

123 -123 :P

Du kan evt sætte nogle Response.Write's ind, så du kan se, om du overhovedet kommer ind på siden, og hvor langt den kommer.

http://tla-dk.dk/test/
Her har jeg lagt præcis samme kode op, og det virker jo, som du kan se, ganske glimrende. Der ligger også en rar-fil (http://tla-dk.dk/test/Test.rar) som du kan hente. Så kan du se hvordan min kode ser ud.

hvor har du fået hostet dine sider, for jeg tror mere det er der problemet ligger gemt.

frip.

Hmm kan se noget i din kode som ikke er så godt, du har sat den til at kun brugeren 123 kan logge ind. skulle meget gerne være sådan at alle brugere der var i databasen skulle kunne logge ind.

Hovsa, havde ikke lige fået smidt den seneste kildekode ud. Den skulle være der nu.

hehe ser rigtig godt ud, vil teste det lige så snart frip er oppe igen :/ hader det webhotel findes der ikke andre gratis med asp / access ??

virkede stadig ik, og ingen svarede tilbage. lukker