Vad händer här nu då?

Ojoj, snart bryter jag ihop! Det är så att jag började ordna till mitt inlogg idag och ända fram till nu så har allt fungerat perfekt men säg den glädje som varar!! Nu har allting börjat strula utan att jag gjort något!

På varje sida som kräver lite behörighet kollar jag vilket nummer sessionen innehåller och detta bestämmer om användaren har rätt att se en sida:

If Session("MyLoginIndividualAccess") >= 4 Then

Ovan betyder att enbart den som har en session med 4 har behörighet.

If Session("MyLoginIndividualAccess") >= 3 Then

Ovan betyder att admin(4) fortfarande har behörighet men oxå den med session 3!

Problemet är att nu tjatar den om att nummerna måste in emellan "3" (dubbelfjuttar)! Men använder jag dubbelfjuttar så kommer ingen in oavsett nummer! Detta gör mig väldigt aggresiv eftersom det fungerade hela förmiddan utan problem! Finns det någon lösning?

If CInt(Session("MyLoginIndividualAccess")) >= 3 Then

:q

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Felmeddelande:

Type mismatch: 'CInt'

kan det inte vara så enkelt att sessionen tappat sitt värde?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Hur kan man kolla detta då? Det jag tycker är märkligt är att det fungerade fint under hela förmiddagen!

Ovan betyder att enbart den som har en session med 4 har behörighet.

If Session("MyLoginIndividualAccess") >= 4 Then

borde det inte vara bara ett = om enbart den som har en 4 i sin session ska ha behörighet?

------------------
// David - Probably the best guy in the world

Hur kan man kolla detta då?

response.write session("sessionensnamn")

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Okej, har nu gjort en sida som ska kolla detta och den skriver inte ut någonting alls! Då har värdet med andra ord trollats bort, eller?

om du loggar in på din sajt igen så borde värdet vara korrekt igen.

sessioner timeoutar per default efter 20 min.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Okej, nu har jag kommit fram till att det är detta script jag inkluderar på inloggningssidan som spökar, för om jag kör en "response.write session" direkt efter detta script så finns det ingen session! Alltså faller den tydligen bort här någonstans:

If Request.Form("rectype") = "Validate" Then
If Len(Request.Form("UserCode")) <1 or Len(Request.Form("Password")) < 1 Then
Session("MyLoginUserValidated") = "No"
Else
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "PROVIDER=MSDASQL;" & "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & MyLoginDB
MySQL="Select * from UserData Where UserCode = '" & Request.Form("UserCode") & "' and Password = '" & Request.Form("Password") & "'"
Set MyRs=MyConn.Execute(MySQL)
If MyRs.BOF or MyRs.EOF Then
Session("MyLoginUserValidated") = "No"
Else
If MyLoginGroup = "None" Then
If MyRs("IndividualAccess") = MyLoginIndividualAccess Then
theDate = MyRs("ExpirationDate")
DateCheck = DateDiff("d", Now, theDate)
If DateCheck < 1 Then
Session("MyLoginUserValidated") = "Expired"
Session("MyLoginGroup") = "None"
Session("MyLoginIndividualAccess") = ""
Session("MyLoginUserName") = ""
Session("MyLoginNickName") = ""
Else
Session("MyLoginUserValidated") = "Yes"
Session("MyLoginGroup") = "None"
Session("MyLoginIndividualAccess") = MyRs("IndividualAccess")
Session("MyLoginName") = MyRs("Name")
Session("MyLoginNickName") = MyRs("NickName")
End If
Else
Session("MyLoginUserValidated") = "Almost"
Session("MyLoginGroup") = "None"
Session("MyLoginIndividualAccess") = ""
Session("MyLoginUserName") = ""
Session("MyLoginNickName") = ""
End If
Else
If MyRs("Group") = MyLoginGroup Then
Session("MyLoginUserValidated") = "Yes"
Session("MyLoginGroup") = MyRs("Group")
Session("MyLoginIndividualAccess") = ""
Session("MyLoginUserName") = ""
Session("MyLoginNickName") = ""
Else
Session("MyLoginUserValidated") = "Yes"
Session("MyLoginGroup") = MyRs("Group")
Session("MyLoginIndividualAccess") = MyRs("IndividualAccess")
Session("MyLoginUserName") = MyRs("Name")
Session("MyLoginNickName") = MyRs("NickName")
'Session("MyLoginUserValidated") = "Almost"
'Session("MyLoginGroup") = "None"
'Session("MyLoginIndividualAccess") = ""
'Session("MyLoginUserName") = ""
'Session("MyLoginNickName") = ""
End If
End If
End If
Session.Timeout = 60
MyRs.close
Set MyRs= Nothing
MyConn.Close
set MyConn=nothing
End If
End If

Jag använder "MyLoginIndividualAccess" som session och inte "MyLoginGroupAccess". Om någon orkar att ta en snabb titt på detta o ge lite tips så är jag ytterst tacksam!

om du skriver ut dim sql-fråga med response.write, ser den då korrekt ut?

MySQL="Select * from UserData Where UserCode = '" & Request.Form("UserCode") & "' and Password = '" & Request.Form("Password") & "'"´
response.write MySQL

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Ja, den fungerar som den ska.