Bestem teks til din DB hvis du adder fra opret_bruger.asp feks.

Hvordan opretter du en bruger idag???

typsik er det noget hvor man indsætter via en SQL:

INSERT INTO tabel (brugernav,password,rigtigtnavn) VALUES ('kk','dd','ad')

Så kan du jo tilføje kolonnen Acces_level til SQL for både user og admin..:

For user:
INSERT INTO tabel (brugernav,password,rigtigtnavn,Acces_level) VALUES ('kk','dd','ad','User')


For amin:
INSERT INTO tabel (brugernav,password,rigtigtnavn,Acces_level) VALUES ('kk','dd','ad','Administrator')

Okay, men jeg bruger den måde lige som her :
rs.AddNew
      rs("username") = Request.form("username")
      rs("password") = Request.form("password")
      rs("email") = Request.form("email")
rs.Update

Kan jeg så skrive:

rs("Acces_level") = "User"

eller hvordan skal jeg skrive det på den måde ?

Okay EagleEye nu har jeg den sådan her:

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../em.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From bruger"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
      <% end if %>
      <% if mode ="tilfojet" then
            if (Server.HTMLEncode(Request("username")) = "" OR Server.HTMLEncode(Request("password")) = ""  OR Server.HTMLEncode(Request("email")) = "" OR Server.HTMLEncode(Request("navn")) = "" OR Server.HTMLEncode(Request("alder")) = "" OR Server.HTMLEncode(Request("cpu")) = "" OR Server.HTMLEncode(Request("moniter")) = "" OR Server.HTMLEncode(Request("grafikkort")) = "" OR Server.HTMLEncode(Request("mus")) = "" OR Server.HTMLEncode(Request("oplosning")) = "" OR Server.HTMLEncode(Request("sensitivity")) = "") then
response.write ("<p><font face='Verdana' size='2'>Du mangler at Udfylde nogle af felter med <color='#FF0000'>*?</font>")
else
// strSQL = "Insert into bruger (Access_Level) values('user')"

      strUsername = Request.form("username")
      strPassword = Request.form("password")
      strEmail = Request.form("email")
      strNavn = Request.form("navn")
      strBy = Request.form("by")
      strBeskrivelse = Request.form("beskrivelse")
      strAlder = Request.form("alder")
      strCpu = Request.form("cpu")
      strMoniter = Request.form("moniter")
      strGrafikkort = Request.form("grafikkort")
      strMus = Request.form("mus")
      strMusematte = Request.form("musematte")
      strOplosning = Request.form("oplosning")
      strSensitivity = Request.form("sensitivity")
     
    strSQL = "Insert into bruger (Username, password, email, navn, by, beskrivelse, alder, cpu, moniter, mus, musematte, oplosning, sensitivity, access_level) values('"& strusername &"','"& strpassword &" ',' " & stremail &"','"& strnavn &"','" & strby &"',' "& strbeskrivelse &"','"& stralder &"','"& strcpu &"','"& strmoniter &"','"& strgrafikkort &"','"& strmus &"','"& strmusematte &"','"& stroplosning &"','"& strsensitivity &"','"& struser &"')"
Conn.Execute(strSQL)
   
%>
      <% //response.write "<font face='Verdana' size='2'>Du har nu oprettet din profil Tillykke med det</font>"
      response.redirect "testbruger.asp" %>
      <% end if %>
      <% end if %>

Men den skriver der er fejl ved linien med Conn.Execute(strSQL) og det fatter jeg ikke lige.. Og hvis jeg fjerne den bliver der slet ikke opdateret noget til min DB

Ja du kan tilføje rs("acces_level")


Okay, men jeg bruger den måde lige som her :
rs.AddNew
      rs("username") = Request.form("username")
      rs("password") = Request.form("password")
      rs("email") = Request.form("email")
      rs("Acces_level") = "User"                '<--- bare det er før rs.update
rs.Update

Den viser stadig forkert..

rs.AddNew
      rs("Username") = Request.form("username")
      rs("Password") = Request.form("password")
      rs("Email") = Request.form("email")
      rs("Navn") = Request.form("navn")
      rs("By") = Request.form("by")
      rs("Beskrivelse") = Request.form("beskrivelse")
      rs("Alder") = Request.form("alder")
      rs("Cpu") = Request.form("cpu")
      rs("Moniter") = Request.form("moniter")
      rs("Grafikkort") = Request.form("grafikkort")
      rs("Mus") = Request.form("mus")
      rs("Musematte") = Request.form("musematte")
      rs("Oplosning") = Request.form("oplosning")
      rs("Sensitivity") = Request.form("sensitivity")
      rs("Acces_level") = "User"
      rs.Update

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/test/em/bruger/opretbruger.asp, line 184

Og du har kolonnen  Acces_level  i tabellen ?
Fejlen "Item cannot be found in the collection corresponding to the requested name or ordinal." betyder man bruger et kolonnenavn som ikke finndes i recordsetet rs og dermed i tabellen. Det kan være det er med to s i tabellen i databasen: Accesss_level ?

Ud fra den anden SQL du har vist er det med to s'er så prøv:

rs("Access_level") = "User"

Hej igen.. Har lige været et smut i grenå så har ikke lige nået at sige at jeg har løst det.. Men ja du har ret det var fordi jeg glemte 2 'ss'er.. Du får pointene eagleeye :)