Check om navn ER taget

Set rs = Conn.execute("select brugernavn from brugere where brugernavn = '" & newbruger & "'")
If rs.eof Then
  'Brugernavnet er ledigt
Else
  'Brugernavnet er optaget
End if
Set rs = nothing

Tak!

Ved godt at det er en Basal fejl!
Men kan ikke huske hvordan man retter den - da det der står ikke hjælper!

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: "

create.asp, linje 86


----------Hele min kode--------------

<% if s = "3" then %>
        <font face="Tahoma" size="1"><%
       
        newbruger = Request.form("username")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb") & ";UID=admin;PWD=;"

Set aa = Conn.execute("select username from users where username = '" & newbruger & "'")
If aa.eof Then
  Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From users"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("Username") = Request.form("username")
      rs("Password") = Request.form("password")
      rs("email") = Request.form("email")
      rs.Update
     
      reponse.write "The player, " & rs("Username") & " is created!<br><br><a href='login.asp'>Login here</a>"
Else
  Response.write "<b> [ The Username: " & Request.form("username") & " <br>... is already taken ]</b><br><br><a href='create.asp?s=2'>Back</a>"
End if
Set aa = nothing
   
%>
        </font>
<% rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing %>

<% end if %>

Du skal flytte Set "rs = nothing" inden for if-sætningen således at den kun bliver udført hvis "rs" åbnes.

Set aa = Conn.execute("select username from users where username = '" & newbruger & "'")
If aa.eof Then
  Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From users"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("Username") = Request.form("username")
      rs("Password") = Request.form("password")
      rs("email") = Request.form("email")
      rs.Update
     
      reponse.write "The player, " & rs("Username") & " is created!<br><br><a href='login.asp'>Login here</a>"
      rs.Close ' Må kun lukkes når den er åben
      Set rs = Nothing
Else
  Response.write "<b> [ The Username: " & Request.form("username") & " <br>... is already taken ]</b><br><br><a href='create.asp?s=2'>Back</a>"
End if
Set aa = nothing
   
%>
        </font>
<%

Tak Coltau!

Men nu er der en ny fejl i den hvor der bliver oprettet en bruger!!

Brugeren NÅR at blive oprettet og så kommer fejlen!!

-------------------

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: "
create.asp, linje 78

---------------------

Linje 78 er:

reponse.write "The player, " & rs("Username") & " is created!<br><br><a href=""login.asp"">Login here</a>"

please help!!

Ved godt at det er meget pinligt da dette normalt er det simpelste ASP der findes!! Men kan fandme ikke huske hvordan man retter fejlen!!

Det er ikke pinligt - men rs er jo lukke med rs.close når linie 78 udføres. Du kan lige før rs.close lave denne linie:

strUserName = rs("username")

og så ændre sidste linie til:

reponse.write "The player, " & strUsername & " is created!<br><br><a href=""login.asp"">Login here</a>"

TAK!

Den er der stadigvæk!!

-------------------------- Kode start -------------------------------

<%
       
        newbruger = Request.form("username")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXX.mdb") & ";UID=admin;PWD=;"

Set aa = Conn.execute("select username from users where username = '" & newbruger & "'")
If aa.eof Then
  Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From users"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("Username") = Request.form("username")
      rs("Password") = Request.form("password")
      rs("email") = Request.form("email")
      rs.Update
     
      strUserName = rs("username")
     
      rs.Close
      Set rs = Nothing
     
      reponse.write "The player, " & strUsername & " is created!<br><br><a href=""login.asp"">Login here</a>"
Else
  Response.write "<b> [ The Username: " & Request.form("username") & " <br>... is already taken ]</b><br><br><a href='create.asp?s=2'>Back</a>"
End if
Set aa = nothing
   
%>

-------------------------------- Kode slut ------------------------

Sorry - det er bare en stavefejl i denne linie:

reponse.write "The player, " & strUsername & " is created!<br><br><a href=""login.asp"">Login here</a>"

Det hedder ikke reponse.write - men response.write:

response.write "The player, " & strUsername & " is created!<br><br><a href=""login.asp"">Login here</a>"