---
title: "Kolla användarnamn"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9046-kolla-användarnamn"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2001-04-16T21:01:00.000Z"
updated: "2001-04-17T13:43:00.000Z"
replies: 5
views: 190
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/9046-kolla-användarnamn"
---

# Kolla användarnamn

## #1 — crisse6, 2001-04-16T21:01Z

hur får jag detta skript att ta en koll om det användarnamn man valt finns redan? (som du nog ser har jag försökt med ett litet skript men det vill sig inte)

```
<% 
if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("namn"))<>"" and trim(Request.Form("efternamn"))<>"" and trim(Request.Form("bor"))<>"") then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/wwwroot/db/users.mdb" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users"
if RecSet.Eof then
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta") 
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")

else
Response.write request.form("Username") & " är upptaget, välj ett annat "
end if

RecSet.Update
RecSet.Close
Connect.Close
%>
```

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

## #2 — LarsG, 2001-04-16T21:19Z

```
Addera = "SELECT * FROM users " & _
" where username = '" & Request.Form("username") & "'"
```

Resten som det är

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

## #3 — crisse6, 2001-04-17T12:14Z

vet ej om jag har gjort rätt nu, men det funkar ju inte.... det är inga felmeddelanden utan man bara blir medlem även om personen redan finns.... jobbigt, kolla koden:

```
<% 
if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("namn"))<>"" and trim(Request.Form("efternamn"))<>"" and trim(Request.Form("bor"))<>"") then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/wwwroot/crisse6/db/users.mdb" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users " & _
" where username = '" & Request.Form("username") & "'"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta") 
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")

RecSet.Update
RecSet.Close
Connect.Close
%>
```

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

## #4 — LarsG, 2001-04-17T13:21Z

```
Addera = "SELECT * FROM users " & _
" where username = '" & Request.Form("username") & "'"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

[b]
if  recset.eof then
[/b]
RecSet.AddNew

RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta") 
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")

RecSet.Update
[b]
else
   response.write "Namnet upptaget <br>"
end if
[/b]
```

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

## #5 — Bendro, 2001-04-17T13:34Z

Fråga...
Tillhör inte WHERE SQL-strängen? Varför konkatineras den? Jag trodde det skulle se ut så här:

```
Addera = "SELECT * FROM users WHERE username = '" & Request.Form("username") & "'"
```

Hmm..såg själv när jag fick igång hjärnan lite. Det är väl för radbrytningen antar jag?

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

## #6 — crisse6, 2001-04-17T13:43Z

tack LarsG, det fungerar....

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9046-kolla-användarnamn