---
title: "Registrering"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7554-registrering"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Andiee"
published: "2001-01-01T15:20:00.000Z"
updated: "2001-01-01T21:33:00.000Z"
replies: 3
views: 178
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/7554-registrering"
---

# Registrering

## #1 — Andiee, 2001-01-01T15:20Z

Gott Nytt År på er alla!!

Jag har fått ett litet problem som jag inte kan få ordning på. Jag har en registreringssida och när man fyllt i alla fält som ska fyllas i ska jag kolla om användarnamnet är upptaget. Så långt fungerar allt felfritt men sen...

```

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

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

Kolla = "SELECT * FROM login WHERE anvnamn = '" & Trim(Request.Form("anvnamn")) & "'"
RecSet.Open Kolla, Connect, adOpenStatic, adLockOptimistic

If RecSet.EOF = True then

RecSet.Close

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

Laggtill = "SELECT * FROM login"
RecSet2.Open Laggtill, Connect, adOpenStatic, adLockOptimistic

RecSet2.AddNew

RecSet2("anvnamn") = Request.Form("anvnamn")
RecSet2("losenord") = Request.Form("losenord")
RecSet2("fornamn") = Request.Form("fornamn")
RecSet2("efternamn") = Request.Form("efternamn")
RecSet2("hemort") = Request.Form("hemort")
RecSet2("epost") = Request.Form("epost")
RecSet2("foddatum") = Request.Form("ar") & "-" & Request.Form("manad") & "-" & Request.Form("dag")
RecSet2("kortinfo") = Request.Form("kortinfo")
RecSet2.Update
RecSet2.Close

Response.Redirect("default.asp")

Else

Response.Write "Användarnamnet som du angivit är upptaget! Välj ett annat<BR><BR><A HREF=""javascript:history.go(-1)""><B>Försök igen</B></A><BR>"

End If
```

Min försök. Jag har varit tillräckligt påhittig idag. Nu står det still...

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

## #2 — cyprys, 2001-01-01T16:49Z

Ser inte riktigt vad det är för fel du får men...
lite förenklat brukar jag skriva på ett liknande sätt

```
Set RecSet = connection.execute("SELECT user FROM users")

user = Request.Form("login_id")

X = FALSE

Do Until X = TRUE OR RecSet.EOF
If RecSet("user") = user Then
	X = TRUE
	Exit Do
End If
RecSet.MoveNext
Loop

if X = TRUE then
	'Användarnamnet är upptaget
else
	'Registrera användaren
end if
```

Hoppas det funkar..  ;)

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

## #3 — Andiee, 2001-01-01T18:25Z

Jag ska prova...

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

## #4 — Andiee, 2001-01-01T21:33Z

Fungerar bra!

Tackar och bockar!! ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7554-registrering