Huh? Hvad sker der man!?

Sådan her skal det være :-)

  <%

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 = \'\" & 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>

Så siger den:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e2f\'

[Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

/ftk/opretdata.asp, line 25

Hvad er din primary key ?
Den er vel id ikke ? Du har et felt der er autonummerering og hedder id ikke ?

Jo!

Så er det sikkert noget med at et af felterne ikke tillader dubletter ? Måske email eller ?

*S* tjekker lige!

Hvordan finder jeg ud af det og retter det??

Åben din database i Acces og vælg design visning for tabellen, marker et felt, nede i bunden kan du så se om en af felterne ikke tillader dubletter.

Hvad betyder det \"Ja ingen dubletter\" entlig?
Og hvad gør det?

Hvis der står ja ingen dubletter betyder det f.eks. at feltet email ikke kan indeholde 2 poster med den samme email.

Provider error \'80020005\'

Type mismatch.

/FTK/opretdata.asp, line 25


Skriver den så!

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users WHERE username = \'\" & 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(\"SidstPå\") = \"Kl.\" & TimeNow & \"D.\" & DateNow
      rs(\"BrugerStatus\") = \"CoAdmin\"
      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>

Brug aldrig tegnene æ ø å til navne på felter og varabler, det er fordi du har brugt å

      rs(\"SidstPå\") = \"Kl.\" & TimeNow & \"D.\" & DateNow

NopeZ..
Jeg fandt selv ud af det! TimeNow og dateNow dur ikke!
Men jeg kan sagtens bruge sidstPÅ
MEn du skal da nok få dine points alligevel!

HVIS du lige ka sige mig hvordan jeg kan lave det sådan så man skriver løkke der viser alle brugere i databasen og man ved et tryk på et navn sletter navnet og brugeren!?

vis.asp
--------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users\"
Set rs = Conn.Execute(strSQL)
if rs.eof then
response.write \"Der er ingen brugere i databasen\"
else
do until rs.eof
response.write \"<a href=\'delete.asp?id=\" & rs(\"id\") & \"\'>\" & rs(\"username\") & \"</a><br>\"
rs.movenext
loop
end if
%>
-------------------------
delete.asp
------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"DELETE FROM users where id=\" & request.querystring(\"id\")
Conn.Execute(strSQL)
%>

OKay takker

np :-)