Tjek om bruger eksisterer

glemte lige at give jer disse linier:
strSQLUsers = "Select * from tbl_users"
Set rsUsers = Conn.Execute(strSQLUsers)

strSQLUsers = "Select * from tbl_users WHERE brugernavn = '"& Request.Form("struser")& "'"
Set rsUsers = Conn.Execute(strSQLUsers)

If not rsUsers.EOF then
    response.redirect "opret.asp?error=Brugernavnet eksisterer allerede!"
end if

Denne ku måske bruges....
username = Trim(Replace(Request.Form("Brugernavn"),"'",""))

Sql = "Select * From tbl_users where Username = '"&username&"'"
Set rsUsers = Conn.Execute(Sql)

If not rs.eof then
response.redirect "opret.asp?error=Brugernavnet eksisterer allerede!"
end if

Både for langsom og for kert ;o)

If not rsUsers.eof then
response.redirect "opret.asp?error=Brugernavnet eksisterer allerede!"
end if

/Anders

Hmm... mm12010 svarede godt, nok først...
men synes alligevel at det er retfærdigt at dele point'ne op...
Ok?

svar :o)

Accepter :o)

hov...
Prøver lige igen

Accepter :o)

Skal jeg egenglig stadig bruge loopet?

someone please

Den oprettet stadig brugeren selvom navnet er i brug...

her er koden:
<%

response.buffer = true

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("cgi-bin/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

username = Trim(Replace(Request.Form("Brugernavn"),"'",""))

Sql = "Select * From tbl_users where Username = '"&username&"'"
Set rsUsers = Conn.Execute(Sql)

If not rsUsers.eof then
response.redirect "opret.asp?error=Brugernavnet eksisterer allerede!"
end if

username = Request.Form("struser")
name = Request.Form("strname")
password = Request.Form("strpass")
email = Request.Form("stremail")
description = Request.Form("strdescription")

' KONTROLLERER USERNAME
If InStr(username,chr(34)) <> 0 or InStr(username,chr(39)) <> 0 then
    response.redirect "opret.asp?error=Du har brugt nogle ugyldige tegn i dit brugernavn"
end if
usernameLength = Len(username)
if usernameLength < 5 or usernameLength > 15 then
    response.redirect "opret.asp?error=Dit brugernavn skal være mellem 5-15 tegn"
end if


' KONTROLLERER PASSWORD
passwordLength = Len(password)
if passwordLength < 5 or passwordLength > 15 then
    response.redirect "opret.asp?error=Dit password skal være mellem 5-15 tegn"
end if
If InStr(password,chr(34)) <> 0 or InStr(password,chr(39)) <> 0 then
    response.redirect "opret.asp?error=Du har brugt nogle ugyldige tegn i dit password"
end if

if request.form("strpass") = "" OR request.form("strpass2") = "" OR request.form("struser") = "" OR request.form("stremail") = "" OR request.form("strdescription") = "" then
  response.redirect "opret.asp?error=Et eller flere felter blev ikke udfyldt!"
end if

if request.form("strpass") <> request.form("strpass2") then
  response.redirect "opret.asp?error=De 2 passwords var ikke ens!"
end if

sql = "Insert Into tbl_users(Username, Name, Password, Email, Description) Values('"
  sql = sql & Request.Form("struser") & "','"
  sql = sql & Request.Form("strname") & "','"
  sql = sql & Request.Form("strpass") & "','"
  sql = sql & Request.Form("stremail") & "','"
  sql = sql & Request.Form("strdescription") & "')"
Conn.Execute(sql)
Conn.Close
response.redirect "login.asp?error=Brugeren er nu oprettet!"

%>

Har fået det til at virke...