The else from hell!

Din else i mitten där hänger inte ihop med någon if.

set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("restauranger.mdb")
if RequestCookies("lunchguiden")("uid") = "" Or RequestCookies("lunchguiden")("pwd") = "" then
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & request.Form("uid") & "' And rest_pwd = '" & request.Form("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="inloggning.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
if Request.Form("spara_losenord") = "ja" then
ResponseCookies("lunchguiden")("uid") = UID("rest_uid")
ResponseCookies("lunchguiden")("pwd") = UID("rest_pwd")
ResponseCookies("lunchguiden").Expires = Date + 365
end if
end if
[b]
if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then
uid.close
dbcon.close
 response.redirect("admin.asp")
end if
[/b]

set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & RequestCookies("lunchguiden")("uid") & "' And rest_pwd = '" & RequestCookies("lunchguiden")("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
end if
end if

%>

är det något sådant du är ute efter?

ett bra sätt att lära sig är att indentera sin kod, så problem som detta är lättare att hitta.

if blah=true then
     response.write "jamen!"
     if blah2=false then
          response.write "nämen!"
     else
          if blah3=true then
               response.write "jomenvisst!"
          end if
     end if
end if

ett bra sätt att lära sig är att indentera sin kod, så problem som detta är lättare att hitta.

Om forumet tillät flera mellanslag i rad ja (bortsett från tabb).

du skriver väl inte din egen kod i forumet?

använder man perl-taggar som jag gjort ovan så visas mina fem mellanslag jag använt för att indentera.

mvh,

... fast texten blir mindre då. Svårare att läsa.

ja.

men indenteringarna finns med, så för att demonstrera hur jag tycker att man borde skriva i sin editor när man utvecklar så använder jag perl-taggarna.

fast aldrig annars, eftersom man inte ser vad där står...

He he ... exakt!

Det borde man ju egentligen klaga på!

Pace, http://staff.webforum.nu/wf/Forum11/HTML/000038.html

Du är en ängel @nders!!

ÖÖhh, mmmm...hur som helst så fungerar det inte. Det verkar inte läsa av

if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then
uid.close
dbcon.close
response.redirect("admin.asp")
end if

Får fram "fel lösen" typ.

Liten tanke bara. Är det inte mer logiskt att använda den "admin" koden först och sedan om det inte stämmer läser den av id/pws från mdb:n?....kankse.

Vart har ni försvunnit?

Jo, det är väl lämpligt att kolla admin först.

Kan den misslyckade inloggningen bero på något problem med små kontra stora bokstäver?

vi har inte försvunnit, din tråd hade nog bara ramlat ner.

var får du "fel lösen typ"? vilken sida?

@nders, jaf får upp: Felaktigt lösenord Den funktionen finns med på rad 7 i skriptet.

LarsG, är det bara att trycka in:

if request.Form("uid") ="admin" And request.Form("pws") = "admin" Then
uid.close
dbcon.close
response.redirect("admin.asp")
end if

innan

set dbcon = Server.CreateObject etc.

ligger användaren admin/admin i db?

Nix.

Ja, om du lägger det först så får du ta bort koden som stänger databaskopplingen och recordsetet

if lcase(request.Form("uid")) ="admin" And lcase(request.Form("pws")) = "admin" Then
response.redirect("admin.asp")
end if

Du kan ju lägga in en debug-utskrift på värdena i request.Form("uid") och request.Form("pws") för att se att du får över värdena ordentligt.

Typ:

<%

if lcase(request.Form("uid")) ="admin" And lcase(request.Form("pws")) = "admin" Then
response.redirect("admin.asp")
end if
else
set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("restauranger.mdb")
if RequestCookies("lunchguiden")("uid") = "" Or RequestCookies("lunchguiden")("pwd") = "" then
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & request.Form("uid") & "' And rest_pwd = '" & request.Form("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="inloggning.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
if Request.Form("spara_losenord") = "ja" then
ResponseCookies("lunchguiden")("uid") = UID("rest_uid")
ResponseCookies("lunchguiden")("pwd") = UID("rest_pwd")
ResponseCookies("lunchguiden").Expires = Date + 365
end if
end if
else
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & RequestCookies("lunchguiden")("uid") & "' And rest_pwd = '" & RequestCookies("lunchguiden")("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
end if
end if

%>