Avatar billede plato Juniormester
20. maj 2007 - 10:55 Der er 1 kommentar og
1 løsning

Skal bruge session fra andet felt.

Hejsa Eks.

Nedenfor er vist koden som bruges når en bruger logger ind på hjemmesiden. Problemet er nu, at jeg gerne vil have noget session med fra et andet felt i databasen. Så når brugeren er logget ind udfyldes der automatisk nogle oplysnings-felter.

Jeg har prøvet mange ting, ved at flette noget mere kode ind, men jeg kan ikke få det til at virke.

Det jeg skal bruge er fra database-feltet "UserAddOn".
Der skal jeg bruge:
session("navn")
session("adresse")
session("bypost")


Her kommer koden:
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" THEN
  fhuskmig = Request.Form("huskmig")
  if fhuskmig <> "" then
    Response.Cookies("login")("huskmig") = "yes"
  else
    Response.Cookies("login")("huskmig") = "no"
  end if
  Response.Cookies("login").Expires = date() + 365
' Logon
  Sql = "SELECT user, id, lastlogon, email, aktiv, acode, tekst FROM users WHERE user = '"& CleanText(Request.Form("username")) &"' AND password = '"& CleanText(Request.Form("password")) &"'"
  Set Rs = Server.CreateObject("ADODB.RecordSet")
  Rs.Open Sql, Conn, 1,1

  If Rs.RecordCount = 1 THEN
    if fhuskmig <> "" then
      Response.Cookies("login")("brugernavn") = Request.Form("username")
      Response.Cookies("login")("password") = Request.Form("password")
      Response.Cookies("login").Expires = date() + 365
    end if

    Session("login") = True
    Session("user") = Rs("User")
    Session("id") = Rs("id")
    Session("lastlogon") = Rs("lastlogon")
    session("email") = Rs("email")
    session("aktiv") = Rs("aktiv")
    session("acode") = Rs("acode")
    Session("tekst") = Rs("tekst")


    Sql = "UPDATE users SET lastlogon = #"& NOW &"# WHERE id = " & Rs("id")
    Conn.Execute(Sql)
    Rs.Close
    Response.redirect(Request.ServerVariables("HTTP_REFERER"))
  End If




  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
End If
%>

Nogen der kan hjælpe med mig?
Avatar billede plato Juniormester
20. maj 2007 - 11:11 #1
Jeg har nu fået det til næsten at lykkes. Dog giver det fejl hvis brugeren endnu ikke har udfyldt sine kontakt oplysninger. Men skulle:
"If NOT rsUser.EOF or rsUser.BOF Then"
ikke løse dette?

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" THEN
  fhuskmig = Request.Form("huskmig")
  if fhuskmig <> "" then
    Response.Cookies("login")("huskmig") = "yes"
  else
    Response.Cookies("login")("huskmig") = "no"
  end if
  Response.Cookies("login").Expires = date() + 365
' Logon
  Sql = "SELECT user, id, lastlogon, email, aktiv, acode, tekst FROM users WHERE user = '"& CleanText(Request.Form("username")) &"' AND password = '"& CleanText(Request.Form("password")) &"'"
  Set Rs = Server.CreateObject("ADODB.RecordSet")
  Rs.Open Sql, Conn, 1,1
  idUser = rs("id")

strSQL2 = "SELECT id, UserId, navn, adresse, bypost FROM UserAddOn WHERE id LIKE '"&idUser&"'"
Set rsUser = objConn.Execute(strSQL2)
If NOT rsUser.EOF or rsUser.Bof Then
session("navn") = rsUser("navn")
session("adresse") = rsUser("adresse")
session("bypost") = rsUser("bypost")
end if

  If Rs.RecordCount = 1 THEN
    if fhuskmig <> "" then
      Response.Cookies("login")("brugernavn") = Request.Form("username")
      Response.Cookies("login")("password") = Request.Form("password")
      Response.Cookies("login").Expires = date() + 365
    end if

    Session("login") = True
    Session("user") = Rs("User")
    Session("id") = Rs("id")
    Session("lastlogon") = Rs("lastlogon")
    session("email") = Rs("email")
    session("aktiv") = Rs("aktiv")
    session("acode") = Rs("acode")
    Session("tekst") = Rs("tekst")
   


    Sql = "UPDATE users SET lastlogon = #"& NOW &"# WHERE id = " & Rs("id")
    Conn.Execute(Sql)
    Rs.Close
    Response.redirect(Request.ServerVariables("HTTP_REFERER"))
  End If




  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
End If
%>
Avatar billede plato Juniormester
20. maj 2007 - 11:14 #2
Fik det løst selv.

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" THEN
  fhuskmig = Request.Form("huskmig")
  if fhuskmig <> "" then
    Response.Cookies("login")("huskmig") = "yes"
  else
    Response.Cookies("login")("huskmig") = "no"
  end if
  Response.Cookies("login").Expires = date() + 365
' Logon
  Sql = "SELECT user, id, lastlogon, email, aktiv, acode, tekst FROM users WHERE user = '"& CleanText(Request.Form("username")) &"' AND password = '"& CleanText(Request.Form("password")) &"'"
  Set Rs = Server.CreateObject("ADODB.RecordSet")
  Rs.Open Sql, Conn, 1,1
  idUser = rs("id")

strSQL2 = "SELECT id, UserId, navn, adresse, bypost FROM UserAddOn WHERE id LIKE '"&idUser&"'"
Set rsUser = objConn.Execute(strSQL2)
If rsUser.EOF or rsUser.BOF Then

else
session("navn") = rsUser("navn")
session("adresse") = rsUser("adresse")
session("bypost") = rsUser("bypost")
end if

  If Rs.RecordCount = 1 THEN
    if fhuskmig <> "" then
      Response.Cookies("login")("brugernavn") = Request.Form("username")
      Response.Cookies("login")("password") = Request.Form("password")
      Response.Cookies("login").Expires = date() + 365
    end if

    Session("login") = True
    Session("user") = Rs("User")
    Session("id") = Rs("id")
    Session("lastlogon") = Rs("lastlogon")
    session("email") = Rs("email")
    session("aktiv") = Rs("aktiv")
    session("acode") = Rs("acode")
    Session("tekst") = Rs("tekst")
   


    Sql = "UPDATE users SET lastlogon = #"& NOW &"# WHERE id = " & Rs("id")
    Conn.Execute(Sql)
    Rs.Close
    Response.redirect(Request.ServerVariables("HTTP_REFERER"))
  End If




  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
End If
%>
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