---
title: "The else from hell!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10752-the-else-from-hell"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hallgren"
published: "2001-07-20T14:41:00.000Z"
updated: "2001-07-24T13:25:00.000Z"
replies: 29
views: 295
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10752-the-else-from-hell"
---

# The else from hell!

_Sida 1 av 2._

## #1 — Hallgren, 2001-07-20T14:41Z

Mmm, har försökta att få in denna kod:

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

i denna:

```
<%
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

%>
```

genom att använde else sattsen men får alltid syntax. :( Vart skall jag lägga den!!??

PS. Jag vet att ResponseCookies är fel men var tvungen för att kunna göra detta inlägg DS.

Permalänk: https://www.webforum.nu/p/10752

## #2 — LarsG, 2001-07-20T15:10Z

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?

Permalänk: https://www.webforum.nu/p/278543

## #3 — @nders, 2001-07-20T15:56Z

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
```

Permalänk: https://www.webforum.nu/p/278544

## #4 — Pace, 2001-07-20T17:56Z

> 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).

Permalänk: https://www.webforum.nu/p/278545

## #5 — @nders, 2001-07-20T17:59Z

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,

Permalänk: https://www.webforum.nu/p/278546

## #6 — Pace, 2001-07-20T18:01Z

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

Permalänk: https://www.webforum.nu/p/278547

## #7 — @nders, 2001-07-20T18:05Z

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... ;)

Permalänk: https://www.webforum.nu/p/278548

## #8 — Pace, 2001-07-20T18:08Z

He he ... exakt! ;)

Permalänk: https://www.webforum.nu/p/278549

## #9 — Pace, 2001-07-20T18:09Z

Det borde man ju egentligen klaga på!

Permalänk: https://www.webforum.nu/p/278550

## #10 — @nders, 2001-07-20T18:30Z

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

Permalänk: https://www.webforum.nu/p/278551

## #11 — Pace, 2001-07-20T18:37Z

Du är en ängel @nders!!

Permalänk: https://www.webforum.nu/p/278552

## #12 — Hallgren, 2001-07-21T13:16Z

ÖÖ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. :l

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. :)

Permalänk: https://www.webforum.nu/p/278553

## #13 — Hallgren, 2001-07-23T11:23Z

Vart har ni försvunnit?

Permalänk: https://www.webforum.nu/p/278554

## #14 — LarsG, 2001-07-23T11:44Z

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?

Permalänk: https://www.webforum.nu/p/278555

## #15 — @nders, 2001-07-23T11:52Z

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

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

Permalänk: https://www.webforum.nu/p/278556

## #16 — Hallgren, 2001-07-23T12:13Z

@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.
```

Permalänk: https://www.webforum.nu/p/278557

## #17 — @nders, 2001-07-23T12:16Z

ligger användaren admin/admin i db?

Permalänk: https://www.webforum.nu/p/278558

## #18 — Hallgren, 2001-07-23T12:36Z

Nix.

Permalänk: https://www.webforum.nu/p/278559

## #19 — LarsG, 2001-07-23T12:51Z

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.

Permalänk: https://www.webforum.nu/p/278560

## #20 — Hallgren, 2001-07-23T12:58Z

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

%>
```

Permalänk: https://www.webforum.nu/p/278561

---

Tråden på webben: https://www.webforum.nu/amne/asp/10752-the-else-from-hell  
Nästa sida: https://www.webforum.nu/amne/asp/10752-the-else-from-hell/page2.md