Log-in

for at starte enkelt ud,hedder din database : dindatabase.mdb ?

Aller øverst oppe, så vil det første der sker være at den spørger efter en kode.

databasenavnet er selvfølgelig angivet!

no_doubt<--> Det kunne forklare hvorfor den ikke virker *GG*

tabelnavn = rigtig tabel navn?

Hvis jeg placerer scriptet øverst på en asp-side (før HTML\'tag\'et) springer siden automatisk til fejl-siden!

Tablenavnet er også rigtigt angivet!

Prøv:
<%

Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dindatabase.mdb\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.open Connection

Sql = \"SELECT * FROM tabelnavn WHERE brugernavn=\'\" & request.form(\"Brugernavn\") & \"\'\"
Set rs = Conn.execute( Sql )

if rs.bof then response.redirect(\"fejl.html\")

Password = rs(\"Password\")

Set rs = Nothing

if request.form(\"Password\") = Password then
Session(\"Inde\") = True
response.redirect \"ok.asp\"
else
response.redirect \"fejl.html\"
end if

Conn.close
Set Conn = Nothing
%>

<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dindatabase.mdb\")

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.open Connection

    Sql = \"SELECT * FROM tabelnavn WHERE brugernavn=\'\" & request.form(\"Brugernavn\") & \"\'\"
    Set rs = Conn.execute( Sql )

    if rs.bof then response.redirect(\"fejl.html\")

    Password = rs(\"Password\")

    Set rs = Nothing

    Conn.close
    Set Conn = Nothing

    if request.form(\"Password\") = Password then
    Session(\"Inde\") = True
    response.redirect \"ok.asp\"
    else
    response.redirect \"fejl.html\"
    end if    
%>
<form method=post action=\"login.asp\">
Navn: <input type=text name=Brugernavn><br>
Kode: <input type=text name=Password><br>
<input type=submit value=Login></form>

Det burde virke

Det er sat nogenlunde sådan her op i en default.asp:

<%

Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.open Connection

Sql = \"SELECT * FROM logind WHERE navn=\'\" & request.form(\"navn\") & \"\'\"
Set rs = Conn.execute( Sql )

if rs.bof then response.redirect(\"fejl.asp\")

kode = rs(\"kode\")

Set rs = Nothing

Conn.close
Set Conn = Nothing

if request.form(\"kode\") = kode then
Session(\"Inde\") = True
response.redirect \"indtast.asp\"
else
response.redirect \"fejl.asp\"
end if

%>

<HTML>
<HEAD>
<TITLE>Sidenavn</TITLE>
</HEAD>

<BODY>

<FORM NAME=\"login\" METHOD=\"get\" ACTION=\"default.asp\">

Vælg institution:<BR>
<INPUT TYPE=\"TEXT\" NAME=\"navn\"><BR>
<BR>
Kode:<BR>
<INPUT TYPE=\"TEXT\" NAME=\"kode\" SIZE=\"3\" MAXLENGTH=\"2\"><BR>
<BR>
<INPUT TYPE = \"submit\" VALUE = \"Log ind\">
<INPUT TYPE = \"reset\" VALUE = \"Slet alt\">
</FORM>

</BODY>
</HTML>

Prøv at sætte:
Set rs = Nothing

Conn.close
Set Conn = Nothing

nederst lige før %>

Bliver databasen ellers ikke lukket for tidligt?

Hvis Bjarke siger hans virker, så virker den nok også. Ignorer mit, et newbee forsøg på at hjælpe.

Du skal så lige gemme min fil som login.asp, hvis du gemmer den som andet skal du rette i denne linie:
<form method=post action=\"login.asp\">

Du skal rette login.asp til det du kalder din fil!

Bjarke: Dit script resulterer i følgende:

Microsoft VBScript compilation error \'800a03f6\'

Expected \'End\'

<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    Connection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dindatabase.mdb\")

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.open Connection

    Sql = \"SELECT * FROM tabelnavn WHERE brugernavn=\'\" & request.form(\"Brugernavn\") & \"\'\"
    Set rs = Conn.execute( Sql )

    if rs.bof then response.redirect(\"fejl.html\")

    Password = rs(\"Password\")

    Set rs = Nothing

    Conn.close
    Set Conn = Nothing

    if request.form(\"Password\") = Password then
    Session(\"Inde\") = True
    response.redirect \"ok.asp\"
    else
    response.redirect \"fejl.html\"
    end if 
end if 
%>
<form method=post action=\"login.asp\">
Navn: <input type=text name=Brugernavn><br>
Kode: <input type=text name=Password><br>
<input type=submit value=Login></form>

Sådan, havde lige glemt og afslutte min if sætning

Bjarke: Nu har jeg prøvet med dit script - men kan ikke få det til at virke! Hvad går der galt? Uanset hvad jeg taster ind, så går den til fejl.html !!!

www.bekhoj.dk/codes/login.zip

Tusind tak Bjarke. Nu har jeg fået det til at virke. Men jeg har lige et spørgsmål mere:

Hvordan får jeg Brugernavnet vist på siden, når brugeren har logget ind?

Jeg vil gerne skrive noget i stil med: \"Velkommen brugernavn\", når vedkommende har logget på!

Velkommen <%=Session(\"brugernavn\")%>

Perfekt - takker mange gange :)