Avatar billede sorenmt84 Juniormester
05. januar 2002 - 22:00 Der er 5 kommentarer og
1 løsning

Forskellige ting alt efter level

Jeg har et loginsystem hvor man har et level (1, 2, 3 eller 4)
På en side skal den hente enten alle poster fra en database, eller kun dem men selv har tilføjet alt efter hvilket level man er på...

Level 1 og 2 skal kunne se alle poster, mens 3 og 4 kun skal se dem de selv har tilføjet!

Jeg har prøvet følgende, men det virker ikke!

dim access_level
access_level = 2

if cint(session(\"refid\")) < access_level then
strSQL = \"select * from diviblad where refid = \'\" & refid & \"\' order by dato desc\"
else
strSQL = \"select * from diviblad order by dato desc\"
end if
Avatar billede dcasso Nybegynder
05. januar 2002 - 23:36 #1
Hej

Lige et par spm

For det første så kan jeg ikke helt følge ideen, hvad dækker refid over. For hvis det er brugerens id, hvordan vil du så kunne bruge den til at undersøge dens adgangsniveau.


To er redif i db\'en et tekstfelt siden du har \'\'-rundt om?
Avatar billede sorenmt84 Juniormester
06. januar 2002 - 00:24 #2
Der har jeg lige sovet lidt i timen...
cint(session(\"refid\")) skal være cint(Session(\"AccessLevel\") - \"AccessLevel\" er det level man står oprettet til i databasen...

Har lige prøvet det, virker fint hvis man er level 1 eller 2, men derover får man følgende:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/troldhoej2/interne/diviblad/oversigt.asp, line 27

line 27:
set rs = Conn.execute(strSQL)
Avatar billede dcasso Nybegynder
06. januar 2002 - 00:28 #3
Gider du poste linie 27?
Avatar billede cygnet Praktikant
06. januar 2002 - 10:13 #4
skal vist også have din strsql før du kan få hjælp...
Avatar billede sorenmt84 Juniormester
06. januar 2002 - 10:56 #5
<% refid = session(\"refid\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../inc/db/spejder.mdb\")

dim access_level
access_level = 2

if cint(session(\"AccessLevel\")) > access_level then
strSQL = \"select * from diviblad where refid = \'\" & refid & \"\' order by dato desc\"
else
strSQL = \"select * from diviblad order by dato desc\"
end if
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Du har ikke tilføjet nogen artikler\"
else
Do Until rs.EOF %>
Avatar billede cygnet Praktikant
06. januar 2002 - 11:08 #6
prøv
\" & refid & \" istedet for \'\" & refid & \"\'
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