---
title: "andvändarnamn i script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7867-andvändarnamn-i-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "snekkorr"
published: "2001-01-25T16:51:00.000Z"
updated: "2001-01-25T20:31:00.000Z"
replies: 3
views: 177
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/7867-andvändarnamn-i-script"
---

# andvändarnamn i script

## #1 — snekkorr, 2001-01-25T16:51Z

hur gör jag så att medlemar inte kan ha samma namn i mitt medlems script? nån som har en klurig?
så här ser koderna ut:

här skapas en ny medlem::

\<!-- #include virtual="/applications/adovbs.inc" --\>

\<html\>
\<body bgcolor="#2D4046" text="#009999" link="#009999" alink="#009999" vlink="#009999"\>
\<title\>Inloggning och användardatabas\</title\>
\<center\>
\<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=c:\\inetpub\\wwwroot\\applications\\data\\users.mdb"

	Set RecSet = Server.CreateObject("ADODB.Recordset") %\>

\<% 'skapa en ny andvändare %\>

\<%	If Request.QueryString("alt") = "createuser" Then %\>

	\<font size="1" face="verdana, arial"\>

	\<b\>Skapa ny användare\</b\>\<p\>

	\<form method="POST" action="admin.asp?alt=create"\>

	\<b\>Nytt användarnamn\</b\>\<br\>
	\<input type="text" size="30" name="username" style="font-size: 8pt; font-family: verdana, arial"\>\<p\>

	\<b\>Nytt lösenord\</b\>\<br\>
	\<input type="password" size="30" name="password"  style="font-size: 8pt; font-family: verdana, arial"\>\<p\>
        \<input type="hidden" name="access" value="B"\>
	\<b\>E-post\</b\>\<br\>
	\<input type="text" size="30" name="e-post" style="font-size: 8pt; font-family: verdana, arial"\>\<p\>

	

	\<input type="submit" value="regga medlem!" style="font-size: 8pt; font-family: verdana, arial""\>

	\</form\>
\<a href="default.asp"\>Oj, fel, ta mig hem igen\</a\>
	\<p\>

	

	\</font\>

\<%	ElseIf Request.QueryString("alt") = "create" Then %\>

	\<font size="1" face="verdana, arial"\>
\<body bgcolor="#2D4046" text="#009999" link="#009999" alink="#009999" vlink="#009999"\>
	\<b\>Ny användare skapad!\</b\>\<p\>
\</center\>
\<% Visa = "SELECT \* FROM users"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
	RecSet("Username") = Request.Form("username")
	RecSet("Password") = Request.Form("password")
	RecSet("E-post") = Request.Form("e-post")
	RecSet("Access") = Request.Form("access")
	RecSet.Update %\>

	\<p\>

	

	\</font\>

\<%	RecSet.Close
	End If %\>

\<% ' Lista användare %\>

\<%	If Request.QueryString("alt") = "viewusers" Then %\>

	\<font size="1" face="verdana, arial"\>

	\<b\>Listar användare!\</b\>\<p\>

\<% Visa = "SELECT \* FROM users"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %\>

	\<table border="0" cellpadding="0" cellspacing="0"\>

	\<tr\>
	\<td width="100"\>\<font size="1" face="verdana, arial"\>\<b\>Användare\</b\>\</font\>\</td\>
	\<td width="100"\>\<font size="1" face="verdana, arial"\>\<b\>Lösenord\</b\>\</font\>\</td\>
	\<td width="150"\>\<font size="1" face="verdana, arial"\>\<b\>E-post\</b\>\</font\>\</td\>
	\<td width="100"\>\<font size="1" face="verdana, arial"\>\<b\>Behörighet\</b\>\</font\>\</td\>
	\</tr\>

\<%	Do While Not RecSet.EOF %\>

	\<tr\>
	\<td\>\<font size="1" face="verdana, arial"\>\<% =RecSet("Username") %\>\</font\>\</td\>
	\<td\>\<font size="1" face="verdana, arial"\>\<% =RecSet("Password") %\>\</font\>\</td\>
	\<td\>\<font size="1" face="verdana, arial"\>\<a href="mailto:\<% =RecSet("E-post") %\>"\>\<% =RecSet("E-post") %\>\</a\>\</font\>\</td\>
	\<td\>\<font size="1" face="verdana, arial"\>\<% =RecSet("Access") %\>\</font\>\</td\>
	\</tr\>

\<%	RecSet.MoveNext
	Loop %\>

	\<p\>

	

	\</font\>

\<%	RecSet.Close
	End If %\>

där jag har kommenterat lista andvändare... det är asså där man kollar vilka som e medlemar

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

## #2 — elektron, 2001-01-25T17:08Z

Du kan kan göra nått sånt här när ny användare skapas

```
<%
X = false
Do until X = True OR rec.EOF
if rec("username") = username Then
X = true
exit do
end if
rec.movenext
loop
%>

MvH -e-
```

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

## #3 — emission, 2001-01-25T18:16Z

Men det är lite onödigt...

\<% Visa = "SELECT \* FROM users WHERE username='" & username & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic 
if recset.eof then
'användarnamnet är ledigt
else
'användarnamnet är upptaget
end if
%\>

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

## #4 — snekkorr, 2001-01-25T20:31Z

tackar så mycket

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7867-andvändarnamn-i-script
