Avatar billede gatez Nybegynder
07. maj 2003 - 21:28 Der er 2 kommentarer og
1 løsning

Siden kan ikke vises.... Asp Fejl

Hejsa,

Jeg har lavet en kode til min hjemmeside som tejkker om en person er logget ind og hvis han er det så skal den vise at personen er logget ind, og hvilke rigtiheder personen har. Men med denne kode skriver den Siden kan ikke vises.... Men hvis man er logget ind virker det fint... Hvordan laver man dette sådan at siden også virker selv om personen ikke er logget ind ? Se min kode herunder:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
intBrugerID = RS("ID")
strBrugernavn = RS("Brugernavn")
strFornavn = RS("Fornavn")
strEfternavn = RS("Efternavn")
stremail = RS("email")
strwebsite = RS("website")
strbrugerbillede = RS("brugerbillede")
strVIP = RS("VIP")
strAdminStatus = RS("AdminStatus")
rs.Close
%>

<%
if strAdminStatus = "A" then
Response.write "<font face='Verdana' size='2'><br><br>"
Response.write "<b>-------------------------------</b><br>"
Response.write "<b>Administrator Funktioner:</b><br>"
Response.write "Opret Bilmærke<br>"
Response.write "Rediger Bilmærke<br>"
Response.write "Slet Bilmærke<br>"
Response.write "<b>-------------------------------</b>"
Response.write "</font>"
else
end if

if strAdminStatus = "B" then
Response.write "<font face='Verdana' size='2'><br><br>"
Response.write "<b>-------------------------------</b><br>"
Response.write "<b>Administrator Funktioner:</b><br>"
Response.write "Opret Bilmærke<br>"
Response.write "Rediger Bilmærke<br>"
Response.write "Slet Bilmærke<br>"
Response.write "<b>-------------------------------</b>"
Response.write "</font>"
else
end if
%>
Avatar billede erikjacobsen Ekspert
07. maj 2003 - 21:31 #1
Overvej 2 ting
1) Test for rs.EOF
2) Få din browser indstillet til at vise dig de rigtige fejl fra ASP
Avatar billede gatez Nybegynder
07. maj 2003 - 21:33 #2
Tak for svaret... Jeg fik det til at virke sådan:

if session("brugernavn") = "" then
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
strAdminStatus = RS("AdminStatus")
rs.Close
end if
Avatar billede gatez Nybegynder
07. maj 2003 - 21:34 #3
Svar :-)
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