---
title: "kan någon kolla denna koden?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38561-kan-någon-kolla-denna-koden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nybörjare"
published: "2002-02-27T14:25:34.000Z"
updated: "2002-02-27T14:45:09.000Z"
replies: 3
views: 181
page: 1
pages: 1
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/38561-kan-någon-kolla-denna-koden"
---

# kan någon kolla denna koden?

## #1 — nybörjare, 2002-02-27T14:25Z

Hejsan alla... 

ja sitter här men en liten kod jag undrar om någon kan kolla så den stämer? ja har ingen server att testa på just nu och ja måste bara veta om ja har gjort rätt...

```
[COLOR=#660000]
<% 
namn = Request.Form("namn") 
los  = Request.Form("los") 
databas = Server.MapPath("forum.mdb") 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas 

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT * FROM FORUM WHERE Anv LIKE '"& namn &"' and los LIKE '"& los"'" 

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 
Do until RecSet.EOF

If RecSet.EOF then
response.write "Fel Användar namn lr Lösenord, försök igen"
Else 
Session("anv")       = RecSet("namn")
Session("inloggad")  = "ja"

RecSet.movenext
Loop
Recset.close
Set RecSet = nothing 
%>[/COLOR]
```

 :birp

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

## #2 — LarsG, 2002-02-27T14:36Z

```
SQL = "SELECT * FROM FORUM WHERE Anv = '"& namn &"' and los = '" & los & "'"
```

 

```
response.write "Fel användarnamn eller lösenord, försök igen"
```

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

## #3 — nybörjare, 2002-02-27T14:40Z

thx larsG

Tack larsG...

Allt annat så rätt ut eller? Är lite osäker på Sessions det är därför ja frågar nämligen...

Mvh   :birp

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

## #4 — PatrikB, 2002-02-27T14:45Z

Frågan är om du behöver ha en loop.
Namn borde vara indexerat och ej tillåta dubletter.
Då behöver du endast kolla om RecSet.EOF

Om det är EOF så finns inte användaren, annars finns den.
Sparar en massa "overhead" på det viset. Frågan är om du ska skapa recordsetet genom ADODB.Recordset överhuvudtaget eller endast genom connection objectet vilket i detta fall är det enda som behövs.

Kod typ:

```
<% 
namn = Request.Form("namn") 
los  = Request.Form("los") 
databas = Server.MapPath("forum.mdb") 

SQL = "SELECT * FROM FORUM WHERE Anv = '"& namn &"' and los = '"& los"'" 

Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& databas 

	Set RecSet = Connect.Execute(SQL)

	If RecSet.EOF then
		response.write "Fel Användar namn lr Lösenord, försök igen"
	Else 
		Session("anv") = RecSet("namn")
		Session("inloggad")  = "ja"
	End If

	Set RecSet = nothing 
	
	Connect.Close
Set Connect = Nothing
%>
```

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38561-kan-någon-kolla-denna-koden