if qq = xx then PROBLEM

Hvad er fejlen??

<%

Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb") & ";UID=admin;PWD=;"
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"

rs.Open strDSN
if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("login.asp")
end if

set rs = Conn.Execute(SQL)
%>
<% qq = rs("er") %>
<% if qq = "Ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
        <% end if %>
        <% if qq = "gammel" then %>
        GOOOD
        <% end if %>

<%
Response.Buffer = True

IF NOT Session("password-session") = "" Then
Set rs = Server.CreateObject("ADODB.Connection")
strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb") & ";UID=admin;PWD=;"
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"
rs.Open strDSN
Else
Response.Redirect("login.asp")
end if


if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if

set rs = rs.Execute(SQL)
%>
<% qq = rs("er") %>
<% if qq = "Ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
        <% elseif qq = "gammel" then %>
        GOOOD
        <% end if %>

<%

Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb")
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("login.asp")
end if

set rs = rs.Execute(SQL)
%>
<% qq = rs("er") %>
<% if qq = "Ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
        <% end if %>
        <% if qq = "gammel" then %>
        GOOOD
        <% end if %>

//>Rune

Kunne man få at vide hvad fejlen er??!

<%

Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb")
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("login.asp")
end if

set rs = Conn.Execute(SQL)
%>
<% qq = rs("er") %>
<% if qq = "Ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
        <% end if %>
        <% if qq = "gammel" then %>
        GOOOD
        <% end if %>

Ups undskyld... der manglede lige noget... ;-)

//>Rune

<%

Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb")
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"

if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("login.asp")
end if

set rs = Conn.Execute(SQL)
%>
<% qq = rs("er") %>
<% if qq = "Ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
        <% end if %>
        <% if qq = "gammel" then %>
        GOOOD
        <% end if %>

hold da helt ferie hvor det dog bare ikke køre for mig idag.. *s*

Kikker med!
nu er jeg ikke en haj - men manger der ikke nogle ELSE eller kan det gøres uden ?

Det kan sagtens gøres uden! :)

swing> *G* det kan sagtens gøres uden :-D

Du behøver ikke at bruge else... -else begyder jo ellers... og hvis du ikke har brug for mere end én validering så er der jo ikke brug for noget ellers.. ;-) - i princippet kunne man bare skrive:

If Request.Form("felt") <> "" Then Response.Write("Feltet felt er = med et eller andet")

Og der findes oxo noget der hedder ElseIf

Det bruges sådan her:

If Request.Form("felt") <> "" Then
  Response.Write("hej")
ElseIf Len(Request.Form("felt")) < 4 Then
  Response.Write("der er mere end 4 tegn i feltet felt")
End If

swing - håber du kan bruge det til noget.. -ellers prøv at tage et kig forbi www.html.dk
//>Rune

Din kode fejler ikke noget (Jeg har prøvet den.) - men hvis koden fejler omkring qq = xx så er det sandsynligvis pga. store og små bogstaver. Dette her kan løse det problem:

<% qq = LCase(rs("er")) %>
<% if qq = "ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
<% end if %>
<% if qq = "gammel" then %>
  GOOOD
<% end if %>

For fuldstændighedens skyld kan jeg gøre opmærksom på at din SQL-sætning også skelner mellem store/små bogstaver.

Fejlen er(var) at det ikke virkede!

Altså hvis rs("er") VAR = NY  - så stod der slet ikke noget - men der skulle faktisk stå, <b>Dette sted er ikke tilladt for Nye!</b>!!

Og ligeså hvis rs("er") VAR = gammel - så stod der heller ikke noget!!

Jeg vil selv regne med at fejlen ligger i koden:

<% qq = rs("er") %>
<% if qq = "Ny" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
        <% end if %>
        <% if qq = "gammel" then %>
        GOOOD
        <% end if %>

Men....jeg checker lige alle jeres svar!!

arggh...jeg bliver sindsyg!! Det virker ikke! Ikken engang på internettet (har lavet det på PWS) - please hjælp - ellers....

YEES - problemet er løst!!
Men det var fordi at i ikke kunne se at den øverste del af koden (inden qq = rs(er") var i en included fil!

Løsningen er her (til dem der skulle have samme problem)

Databaseadgangs-koden skal lille i samme fil - why? - ved jeg ikke!

Her er den kode som nu virker:

<%

Response.Buffer = True
Set rs = Server.CreateObject("ADODB.Connection")
strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb") & ";UID=admin;PWD=;"
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"

rs.Open strDSN
if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if

IF Session("password-session") = "" Then
Response.Redirect("login.asp")
end if

set rs = rs.Execute(SQL)
%>
<% qq = rs("er")  %>
<% if qq = "Elev" then %>
        <b>Dette sted er ikke tilladt for Nye!</b>
<% end if %>
<% if qq = "Lærer" then %>
  GOOOD
<% end if %>

Regnings-status:

10 points til: Medions: Bare fordi....
10 points til: Coltau: Bare fordi....
10 points til: Cool_casper: Bare fordi....
170 points til: Dumbledore: Da jeg selv ordende problemet!

Håber ikke at nogle finder dette snyd!!

Not at all....