Bruger navnet er allerede taget?

køre du på en access database??

Ja! Acceses 2000

men hvis det er det så kan du gøre sådan her:
strSQL = \"SELECT * FROM tabel WHERE (felt LIKE \'%\" & request.form(\"felt\") & \"%\')\"
Set rs = myConn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
udskriv teksten her
end if

i udskriv teksten her skal du selvfølgelig skrive dette, men jeg gad ikke rigtig :):
response.write \"Tekst\"

SQL =\"select username from MyTable where username = \'\" & request.form(\"brugernavn\") & \"\'\"
set rs = MyConn.Execute(SQL)

if rs.EOF Then
  \' Ingen match der findes ingen andre username\'s med dette brugernavn
  \' gør det du skal gøre her
else
  response.write \"Brugernavn er optaget find på et nyt !!!\" & \"<br>\"
end if
rs.Close
set rs = nothing

arrrghhh shit to slow AGAIN

Det vil sige:

strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = myConn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Bruger navnet er allerede i brug!
end if


Ikk?

Hvis du har WildCards (%) med i din SQL så kan man jo ikke hedde per hvis der f.eks. skulle være en bruger der hed kasseper, så dem kan du godt fjerne

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%></p>
<html>

<head>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5;URL=default.asp\">

</style>
</head>

<BODY bgcolor=\"#008080\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
<%
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Response.Write (\"Bruger navnet er allerede taget.\")

Else
%>
<center><FONT FACE=\"Arial\" SIZE=\"+2\">Din bruger er nu oprettet,<br>
du bliver automatisk viderstillet til login op 5 sekunder.</FONT></center>
<%
end if
%>
</body>
</html>



%>

Skriver jeg... så siger den:


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

Et objekt er obligatorisk

/opret_data.asp, linje 38

  <%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing


%></p>
<html>

<head>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5;URL=default.asp\">

</style>
</head>

<BODY bgcolor=\"#008080\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
<%
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Response.Write (\"Bruger navnet er allerede taget.\")

Else
%>
<center><FONT FACE=\"Arial\" SIZE=\"+2\">Din bruger er nu oprettet,<br>
du bliver automatisk viderstillet til login op 5 sekunder.</FONT></center>
<%
end if
Conn.Close
set Conn = Nothing
%>
</body>
</html>

nej nej sådan her :


<html>

<head>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5;URL=default.asp\">

</style>
</head>

<BODY bgcolor=\"#008080\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
  <%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Response.Write (\"Bruger navnet er allerede taget.\")

Else


    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing



Else
%>
<center><FONT FACE=\"Arial\" SIZE=\"+2\">Din bruger er nu oprettet,<br>
du bliver automatisk viderstillet til login op 5 sekunder.</FONT></center>
<%
end if
Conn.Close
set Conn = Nothing
%>
</body>
</html>

Dooooooooh sådan her...


<html>

<head>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5;URL=default.asp\">

</style>
</head>

<BODY bgcolor=\"#008080\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
  <%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Response.Write (\"Bruger navnet er allerede taget.\")

Else


    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing




%>
<center><FONT FACE=\"Arial\" SIZE=\"+2\">Din bruger er nu oprettet,<br>
du bliver automatisk viderstillet til login op 5 sekunder.</FONT></center>
<%
end if
Conn.Close
set Conn = Nothing
%>
</body>
</html>

Nej..da....den her skulle gerne være rigtig :-)


  <%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Response.Write (\"Bruger navnet er allerede taget.\")

Else


    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing




%>
<html>

<head>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5;URL=default.asp\">

</style>
</head>

<BODY bgcolor=\"#008080\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
<center><FONT FACE=\"Arial\" SIZE=\"+2\">Din bruger er nu oprettet,<br>
du bliver automatisk viderstillet til login op 5 sekunder.</FONT></center>
<%
end if
Conn.Close
set Conn = Nothing
%>
</body>
</html>

>>Netsrac

så skriver den:

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03f6\'

\'End\' var ventet

/opret_data.asp, linje 42

Else
^

alizweb > ved det var lidt for hurtig, den sidste jeg har postet skulle gerne virke :-)

Nej det er den der skriver det!

Den nyeste!

Den nyeste skulle altså ikke fejle noget !

Den her skulle altså virke:

  <%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
Response.Write (\"Bruger navnet er allerede taget.\")

Else


    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing




%>
<html>

<head>
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5;URL=default.asp\">

</style>
</head>

<BODY bgcolor=\"#008080\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
<center><FONT FACE=\"Arial\" SIZE=\"+2\">Din bruger er nu oprettet,<br>
du bliver automatisk viderstillet til login op 5 sekunder.</FONT></center>
<%
end if
Conn.Close
set Conn = Nothing
%>
</body>
</html>

Ja nu virker det!
Takker du får dine point nu!

Det var så lidt :-)