Vis brugernavn

du skal hente hans navn fra databse med et SQL kald.. når han logger ind og du checker om brugernavnet og password findes i databsen, skal du samtidig trække hans fulde navn ud

derefter sætter du Session("fuldeNavn") = hansFuldeNavn

kom med din login kode skal vi se hvordan det sættes op

Når folk logger ind, kan du skrive deres brugernavn i en Sessions som du selv siger. Når du så skal skrive deres brugernavn skriver du: <% response.write Session ("navn")%>

hvis det kun er på én side, behøver du ikke at lave en session variable, men hvis det skal stå på alle sider eller bare flere sider er det nemmest at lave en session variable

Her re koden.

Hvordan trækker jeg navnet og laver en session ?

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("xxxxxxxx.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Response.Redirect "xxxxxx"
    EZ.Close
    RS.Close
    Conn.Close


Guldklumpen

du hiver alt ud af database tabellen i forevejen kan jeg se:
strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"

Så koden skal så se sådan ud:

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("xxxxxxxx.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"

'--- her oprettes en session variable
Session("fuldeNavn") = ez("fulde_navn ")

    Response.Redirect "xxxxxx"
    EZ.Close
    RS.Close
    Conn.Close


for at udskrive brugerens fulde navn skal du så skrive:
response.write Session("fuldeNavn")

eller

<%=Session("fuldeNavn")%>

Du er en skat.

Tak for hjælpen.


Guldklumpen

så lidt ;)

du bør i øvrigt lave noget validering af brugernavn og password...

f.eks. sådan noget her:
(har ikke lige checket det igennem, men jeg tror det virker ok...)

' fjerner ' i teksten, da det kan misbruges
username = Trim(Replace(Request.Form("username"),"'",""))
password = Trim(Replace(Request.Form("password"),"'",""))

'checker om der overhovedet er noget i username og password, hvis der er fortsætter vi med login
If Len(username) > 0 And Len(password) > 0 then

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("xxxxxxxx.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)

' hvis brugernavnet ikke fandtes eller password passede ikke til brugernavnet, så giver vi en brugeren en fejlmeddelelse
loginfejl=""
  IF (ez.BOF OR ez.EOF) THEN
  loginfejl= "Der er fejl i username eller password. Prøv venligst igen"
response.write loginfejl
response.end

' hvis brugernavn og password var god nok, laver vi nogle session variabler, som kan bruges på alle sider 
ELSE
  Session("fuldeNavn") = ez("fulde_navn ")
  Session("username") = ez("username")
  Session("login") = "Authed"
  END IF
end if

-- xs