HJÆÆÆÆÆÆÆÆLP!!!!!!!

Session(\"varNavn\") = rs(\"mitFelt\")

kan du selv hente fra din DB???

/ZIRON

id = connection.execute(\"SELECT [id] FROM [bruger] WHERE [navn]=\'\" + bruger + \"\'\");

(Session(\"brugerid\") = id(0) + \"\");

/ZIRON

Ziron > ja

Krogstrup > Jeg for denne besked....

Typerne stemmer ikke overens

balzoo >> virker det ikke med det jeg smed???

/ZIRON

Hvad indeholder dit DB felt ?

krogstrup >> den inderholder et lille 6-tal...

Ziron >> Nej, jeg kan ikke få det til at virke....

hmmm det forstår jeg ikke helt...

kan du ikke lige prøve at smide det kode hvor du henter fra datebasen?

/ZIRON

Det er meningen at den skal hente indholdet af et felt ved navn STATUS.

---------Kode start--------

<%
        Dim objConn, strConn, connection
        Set objConn = Server.CreateObject(\"ADODB.Connection\")
        strConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"predacon.mdb\") & \";UID=sa;PWD=;\"
        objConn.Open strConn
%>

<%
    dim strPage
    strPage = Trim(Request.QueryString(\"Page\"))
    if strPage = \"\" Then
    strPage = \"default\"
    end if
%>


<%
    Select case StrPage
    Case \"default\"
%>

    <FORM ACTION=<%=Request.ServerVariables(\"SCRIPT_NAME\")%>?page=Login METHOD=\"POST\">
    <BR>
    <B class=\"tekst\">Bruger:</B>
    <input type=\"text\" name=\"bruger\"><BR>
    <B class=\"tekst\">Password:</B>
    <input type=\"password\" name=\"password\"><BR><BR>
    <input type=\"submit\" value=\"Login\"><BR>
    <input type=\"checkbox\"><B class=\"tekst\">Husk Password?</B><BR>
    <input type=\"checkbox\"><B class=\"tekst\">Automatisk logind</B><BR>
    </form>

    <A href=\"bruger.asp\">Opret ny bruger</A><BR>
    <A href=\"default2.html\">Glemt password?</A><BR>

<%
    Case \"Login\"
   
    Dim Bruger, Password, status

    Bruger = Trim(Request.Form(\"Bruger\"))
    Password = Trim(Request.Form(\"Password\"))
    Set objRS = Server.CreateObject(\"ADODB.Recordset\")
    objRS.CursorLocation = adUseClient
    objRS.CursorType = adOpenKeySet
    objRS.LockType = adLockOptimistic
    objRS.Open \"Bruger\", objConn, , , adCmdTable
        While Not objRS.EOF
    Session(\"Access\") = false
    if Bruger = objRS(\"Bruger\") Then
        If Password = objRS(\"Password\") Then
            Session(\"Access\") = true
            Session(\"Bruger\") = Bruger
            Response.Redirect \"default.asp?Page=success\"
           
           
        else
        response.redirect \"default.asp?page=password\"

        end if                       
    else
        errBruger = True               
    end if

    objRS.MoveNext
    Wend

        if errBruger = True then   
        response.redirect \"default.asp?page=bruger\"
        end if
    objRS.Close
%>
<%
    Case \"success\"
    if session(\"Access\") = false then
        response.write(\"FUCK OFF!!!!\")
    end if

    Session(\"BrugerOnline\") = Session(\"BrugerOnline\") + 1

    Status = 6
    Session(\"Status\") = status

%>
<% response.redirect \"default.asp\" %>

<%
Case \"password\"

response.write \"<P align=center><BR><BR><BR><BR><B class=tekst>Forkert Password!<BR><BR>Er Caps Lock slået fra?<BR><BR></B>\"
response.write \"<A href=default.asp>Prøv igen<BR><BR><BR></A>\"

%>

<%
Case \"bruger\"

response.write \"<P align=center><BR><BR><BR><BR><B class=tekst>Brugeren eksistere ikke!<BR><BR>Er Caps Lock slået fra?<BR><BR></B>\"
response.write \"<A href=default.asp>Prøv igen<BR><BR><BR></A>\"

%>

<%
Case \"logoff\"
session(\"bruger\") = FALSE
Session(\"BrugerOnline\") = Session(\"BrugerOnline\") - 1
Response.Redirect \"Default.asp\"
%>

<%end select%>


---------kode slut---------

Jeg ved ikke hvor det skal stå.....

ud af hvad jeg kan se er det enste du skal gøre (hvis det er jScript ved ikke om det virker i VBscript som du skriver) er at sætte \"\" efter det som din session er = med, altså eks.:

If Password = objRS(\"Password\") Then
            Session(\"Access\") = true + \"\"
            Session(\"Bruger\") = Bruger + \"\"
            Response.Redirect \"default.asp?Page=success\"

/ZIRON

Det virker!!!!

Kan du gribe dine point...

point til ZIRON

det var da godt, JUBIIIIII...

/ZIRON