Avatar billede k-s-d Nybegynder
20. februar 2002 - 12:57 Der er 7 kommentarer og
1 løsning

hmm fatter nada

jeg har et problem
jeg har et login-script, men det virker sq ik som det skal, det som det skal er at naa en bestemt person i databasen logger ind saa kommer han derhen og naar en anden saa er det et andet sted, jeg har prøvet med lidt forsk. men det virker desværre ik men jeg laver lidt copy paste saa kan i jo se om I kan se hvad der er galt i kalder jo jer selv eksperter  ; )

<%
    strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("adgangskontrol.mdb")

    Set objRS = Server.CreateObject("ADODB.RecordSet")
   
'Den slår ens brugernavn og adgangskode op i databasen
    strQ = "SELECT * FROM Adgangskoder WHERE (Password='" & Request.Form("pw") & "')" & _
            " AND (Username = '" & Request.Form("login") & "');"
   
        objRS.Open strQ, strConn
   
'Kan den ikke finde en bliver man sendt tilbage med en fejlmeddelelse
    If objRS.EOF Then
   
    Response.Redirect("login.asp?valg=fejl")

'Kan den godt finde en bliver session("Adgang") sat til Godkendt
Else   

    Session("Adgang") = "Godkendt"

    Response.Cookies("oplysninger")("Username")=objRS("Username")
    Response.Cookies("oplysninger")("Password")=objRS("Password")
    Response.Cookies("oplysninger")("RealName")=objRS("RealName")

IF ("Username") = "bush" THEN
    Response.Redirect("http://www.jubii.dk")
    ELSE IF Username = "bush" THEN
    Response.Redirect("http://www.jubii.dk")
   
    End If

    objRS.Close
    Set objRS = Nothing
    END IF
%>
Avatar billede misbruger Nybegynder
20. februar 2002 - 13:02 #1
UserName = Request.Form("UserName")

IF Username = "bush" THEN
    Response.Redirect("http://www.bush-site.dk")
ELSEIF Username = "reagan" THEN
    Response.Redirect("http://www.reagan-site.dk") 
End If
Avatar billede misbruger Nybegynder
20. februar 2002 - 13:02 #2
....det er selvfølgelig svaret.....!
Avatar billede Slettet bruger
20. februar 2002 - 13:03 #3
I øvrigt må det da være federe at vælge If Username = " & din variabel for den session & " then ...
Avatar billede k-s-d Nybegynder
20. februar 2002 - 13:08 #4
sq ik hos mig, jeg er n00b saa jeg ved ik om det har noget at sige HVOR det staar i scriptet, men kan du ik prøve at sætte det ind saa du mener at det virker for nar jeg bare skifter det ud med det gamle saa åbner den bare kontrol.asp
Avatar billede Slettet bruger
20. februar 2002 - 13:17 #5
k-s-d > Hvem skriver du til?
Avatar billede k-s-d Nybegynder
20. februar 2002 - 13:24 #6
det er lige meget hvis du kan fikse  det er det fint men jeg tænkte lige på misbruger
Avatar billede misbruger Nybegynder
20. februar 2002 - 13:32 #7
<%
    strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("adgangskontrol.mdb")

    Set objRS = Server.CreateObject("ADODB.RecordSet")
   
'Den slår ens brugernavn og adgangskode op i databasen
    strQ = "SELECT * FROM Adgangskoder WHERE (Password='" & Request.Form("pw") & "')" & _
            " AND (Username = '" & Request.Form("login") & "');"
   
        objRS.Open strQ, strConn
   
'Kan den ikke finde en bliver man sendt tilbage med en fejlmeddelelse
    If objRS.EOF Then
   
    Response.Redirect("login.asp?valg=fejl")

'Kan den godt finde en bliver session("Adgang") sat til Godkendt
Else   

    Session("Adgang") = "Godkendt"

    Response.Cookies("oplysninger")("Username")=objRS("Username")
    Response.Cookies("oplysninger")("Password")=objRS("Password")
    Response.Cookies("oplysninger")("RealName")=objRS("RealName")

UserName = Request.Form("login")


IF Username = "bush" THEN
    Response.Redirect("http://www.bush-site.dk")
ELSEIF Username = "reagan" THEN
    Response.Redirect("http://www.reagan-site.dk") 
End If
    objRS.Close
    Set objRS = Nothing
END IF
%>
Avatar billede k-s-d Nybegynder
20. februar 2002 - 13:45 #8
Microsoft VBScript compilation error '800a0408'

Invalid character

/rabbit/kontrol.asp, line 27

IF Username = "bush" THEN Response.Redirect("http://www.bush-site.dk")
-------------------------^
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester