---
title: "\"Användaren finns redan\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/120593-användaren-finns-redan"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hallmert"
published: "2005-01-20T12:03:55.000Z"
updated: "2005-01-20T12:14:43.000Z"
replies: 5
views: 304
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/120593-användaren-finns-redan"
---

# "Användaren finns redan"

## #1 — hallmert, 2005-01-20T12:03Z

Hej, följande kod skriver ut att användaren redan finns, VARFÖR? Jag förstår inte, för användaren finns verkligen inte, heh. Det är mycket märkligt. Kan någon hjälpa mig?

```
<!-- #include file="adovbs.inc" -->

<%
If Request.Form("pw1") <> Request.Form("pw2") Then

	Session("meddelande") = "<p>Båda lösenorden måste vara samma!! Försök igen."
	Response.Redirect "bli_medlem.asp?user="

End If
	

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select username From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

	IF connect.execute("select * from members where ucase(username)='" & ucase(request.form("username")) & "'").eof then 

		Session("meddelande") = "<p>Det användarnamnet var redan taget! Försök med något annat"
		RecSet.Close
		Response.Redirect "bli_medlem.asp?user="

	End IF

RecSet.MoveNext

Loop

RecSet.Close

%><%

Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew

	RecSet("fnamn") = Request.Form("fnamn")
	RecSet("enamn") = Request.Form("enamn")
	RecSet("username") = Request.Form("username")
	RecSet("losen") = Request.Form("pw1")
	RecSet("epost") = Request.Form("epost")
	RecSet("msn") = Request.Form("msn")
	RecSet("stad") = Request.Form("stad")
	RecSet("bild") = ""
	RecSet("datum") = Now()
	RecSet("status") = "Fffline"

	RecSet.Update
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

Session("meddelande") = "Du har nu blivit inlagd i registret! Testa att logga in."
Response.Redirect "bli_medlem.asp?user=reggad"

%>
```

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

## #2 — Josef, 2005-01-20T12:08Z

Gör så här när du kolla istället:

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb") & ";pwd=losen"

Set rs = Connect.Execute("SELECT count(*) FROM members WHERE ucase(username) = '" & ucase(Request.Form("username")) & "'")

If rs.fields(0) > 0 Then
	Session("meddelande") = "<p>Det här användarnamnet är redan taget! Försök med något annat</p>"
	Response.Redirect "bli_medlem.asp?user="
End IF

Set rs = Nothing
```

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

## #3 — Poffe, 2005-01-20T12:09Z

Det räcker med en tråd.. Se mitt svar i den andra...

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

## #4 — @nders, 2005-01-20T12:12Z

Där var det mycket som var konstigt på en och samma gång. Vi börjar så här:

Varför loopar du igenom hela medlemstabellen när du ska kolla om användarnamnet är upptaget? Strunta i loopen, och ställ kontrollfrågan direkt.

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

## #5 — Poffe, 2005-01-20T12:14Z

Haha, fy fan måste börja sova!
Tänkte inte en tanke på det, tur att vi har dig @!

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

## #6 — @nders, 2005-01-20T12:14Z

Men det är ju inte lätt att hänga med när det postas flera trådar om samma ämne...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/120593-användaren-finns-redan