Hente oplysning fra db!

havde du ikke fundet fejlen selv igår ?

Yep jeg fandt fejlen med at jeg havde et par % for meget ... men da jeg så checket det viste det sige at det stadig ikke virkede. Jeg havde først tid i dag til at checke det! Jeg havde brugt følgende:

  sValidEmailAddress = "<% =rs("Brugernavn")%>"
  sValidPassword = "<% =rs("Brugerkode")%>"

Hvis jeg gør det så er <% =rs("Brugernavn")%> den email man skal angive og <% =rs("Brugerkode")%>" er koden ... den hente det altså ikke fra databasen!

Hmm... sValidEmailAdress ... er det ikke selv en streng. Hvis det er det, er det så ikke galt at bruge <% %> INDE i ASP-dokumentet. Men det var måske også det du selv havde hittet ud? :-)

Jeg ville gøre således:

sValidEmailAddress = "''''" & rs("Brugernavn") & "''''"
sValidPassword = "''''" & rs("Brugerkode") & "''''"

Hvor de fire ' er det samme som " (Jeg mener det er sådan i ASP) Det er vel og mærke hvis SELVE strengen SKAL have dobbelt citationstegn. Ellers er det jo såre enkelt:

sValidEmailAddress = rs("Brugernavn")
sValidPassword = rs("Brugerkode")

Men så nemt er det vel næppe?

Kan du bruge det?

/Kotelet

hvad bruger du så denne til ?



        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
          'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Login.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Login.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
   
        SQL = "SELECT Brugernavn, Brugerkode FROM Bruger"
        rs.Open SQL, Conn

Det første du skrev virker ikke ... hvis jeg bruger det andet du skrev så virker det ... men kun som jeg har haft det til at virke før! Man kan kun bruge det første brugernavn og ikke alle i tabellen! Hvad skal jeg gøre for at rette det?

questis ... til at få forbindelse til databasen hvor den jo skal hente brugernavn og brugerkode fra som den så skal smide i følgende strenge:

  sValidEmailAddress = "(Her skal den så bruge brugernavnet fra databasen)"
  sValidPassword = "(Her skal den så bruge brugerkoden fra databasen)"

hmmm. hvad så med denne besked: den hente det altså ikke fra databasen

questis ... det jeg havde fået til at virke var kun at den brugete:
<% =rs("Brugernavn")%> som email og
<% =rs("Brugerkode")%> som kode!

Altså at man skulle skrive: "<% =rs("Brugerkode")%>"  .... forstår du det nu? Jeg ved godt det lyder lidt indviklet!

okay... hvis jeg forstår dig ret skal du hente disse to værdier ind i de to funktioner, og det ville jeg også sige skulle gøres som kotelet siger det

Det sidste som kotelet sagde:
sValidEmailAddress = rs("Brugernavn")
sValidPassword = rs("Brugerkode")
Virker også fint nok men den gør så man kun kan bruge det første brugernavn i tabellen og ikke dem alle! Hvordan kan jeg få det ordnet så man kan bruge alle brugerne?

kan du ikke forklare mig i hvilket sammenhæng dette skal bruges så er det lidt nemmer e&:-D er det ved login eller sådan noget ?

Yep det er til et login system!

så skal dette altså bruges til at tjeke om den bruger der logger ind er gyldig ?

yep ... både om brugernavnet og koden er gyldig!

ok.... kommer lige med et forslag... har selv lige lavet dette:

jeg bruger dette:

<%
' bruges til at tjekke om brugeren finde i db ved login
' Sender resultaterne fra tilføj links til databasen
' Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/koder/asp/forum/forum.mdb")

strUsername = Trim(Replace(Request.Form("navn"),"'",""))
strPassword = Trim(Replace(Request.Form("password"),"'",""))
strSQL ="SELECT * FROM bruger WHERE UCase(navn) = '" & UCase(strUsername) & "' AND UCase(Password) = '" & UCase(strPassword) & "'"
set rs = conn.execute(strSQL)
'først tjekke om brugeren findes ved at tjekke om recordsetet er tomt.
if not rs.EOF then
  if LCase(rs("navn")) = LCase(strUsername) then
    'LOGIN OK
    session("brugernavn") = LCase(strUsername)
    Response.Redirect("index.asp")
  else
    'INGEN BRUGER FUNDET
    'Eller en blev fundet men databasen bruger navn passer ikke med det
    'indtastede brugernavn
  end if
else
'Brugeren findes ikke

Hmmm ... Du må lige rette mig undervejs men en streng som sValidEmailAddress kan jo kun hedde éen ting, ikke sandt? ... Jeg forstår ikke hvordan du vil give den flere vlrdier på samme tid.

Hvis det er til login kunne du jo gøre således:

DO
IF request.form("brugernavn") = rs("brugernavn") THEN
IF request.form("brugerpass") = rs("brugerkode") THEN
session("login") = "true" ' BRugeren er nu logget på
EXIT DO
END IF
END IF
rs.Movenext
LOOP while not rs.EOF
IF NOT session("login") = "true" THEN
session("login") = "false" ' Brugeren er IKKE logget på

Hvis brugerens navn og adganskode passer til de tilsvarende i databasen hopper man UD af DO/LOOP og session("login") sættes til "true" for at indikere at man er logget på.

Kan du så bruge DET? :-)

/Kotelet

Der mangler liiiige et END IF til sidst :-)

strSQL = "SELECT * from TABEL"

kotelet>>

du er da nød til at lave en der tjekke om det fundne brugernavn og pssword passer sammen for at dobbelt tjekke din logins ?

jeg kan ikke bruge det i har skrevet ... jeg skal bruge hvor de 2 strenge brugers:
sValidEmailAddress = rs("Brugernavn")
sValidPassword = rs("Brugerkode")

hvorfor "skal" du bruge disse ?

DO
IF request.form("brugernavn") = rs("brugernavn") THEN
IF request.form("brugerpass") = rs("brugerkode") THEN
session("login") = "true" ' BRugeren er nu logget på
sValidEmailAddress = rs("Brugernavn")
sValidPassword = rs("Brugerkode")
EXIT DO
END IF
END IF
rs.Movenext
LOOP while not rs.EOF
IF NOT session("login") = "true" THEN
session("login") = "false" ' Brugeren er IKKE logget på

Den samme, men nu er dine to strenge defineret... Jeg går i mit script ud fra, at der ikke er to brugere der har samme navn.

Kotelet ... gør jeg som du skrev til sidst så sker skriver den standard fejlen ... siden kan ikke vises. Jeg kan altså ikke vise siden!

Lukket

Fik du selv løst problemet eller hva'? ... Hvorfor lukker du det pludseligt!?

Jeg har fundet ud af at der ikke er nogle der kan hjæpe, jeg har også haft fat i nogle top profies i asp! Så jeg har valgt at programere det hele om!