Opret cookies, og tjek for dem....

Undskyld...forkert overskrift, det var til et andet spm :)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"din_Database.mdb\")
sql = \"select * from din_tabel where id = \" & Session(\"brugerens_id
Set rs = Server.CreateObject(\"ADODB.Recordste\")
rs.open sql, conn, 1, 3
  if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
  rs.update
  rs(\"felt\") = Request.form(\"felt\")
  rs.update
  end if

%>
<form method=post action=ret.asp>
Felt: <input type=text name=felt value=\"<%=rs(\"felt\")%>><br>
<input type=Submit value=opdater></form>


Det gør du jo så bare med alle dine felter

bjarke ->

Det skal jo passe med brugerens navn...
Han/hun skal logge ind, også skal han/hun klikke på \"ret brugerinfo\", også skal det eks. være ret.asp?id=22
Så hvis han/hun er logget ind med de rigtige informationer til ID 22 kan han/hun rette, hvis ikke, så skal han/hun sendes til login.asp.
Kan hu hitte ud af det ?

advokaten -> Ja, men hvordan identificerer du dine brugere ? Hvad er navnet på den session du bruger

hu = du :8)

hvad mener du ?

advokaten -> Må jeg lige se din login.asp ?

og så skal jeg også lige vide hvilke felter i din database der skal  opdateres

sessionen hedder username og password...var det det du mente ??

Ja, hvilke felter i din database skal de kunne opdatere ? og hvad hedder din database ? *****.mdb ??? og hvad hedder din tabel

den skal bare opdatere username og password
Min db hedder brugere, og tabellen hedder Users

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"brugere.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordste\")
rs.open sql, conn, 1, 3

if rs.eof or bof then Response.Redirect(\"login.asp\")
    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
    rs(\"username\") = Request.form(\"username\")
    rs(\"password\") = Request.form(\"password\")
    rs.update
      end if
%>
<form method=post action=ret.asp>
Brugernavn: <input type=text name=felt value=\"<%=rs(\"username\")%>><br>
Password: <input type=text name=felt value=\"<%=rs(\"password\")%>><br>
<input type=Submit value=opdater></form>



Gem det som ret.asp

Jeg får altså denne fejlmeddelelse:

Serverobjekt fejl \'ASP 0177 : 800401f3\'

Server.CreateObject blev ikke udført

/in/ret.asp, linje 5

800401f3

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"brugere.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3

if rs.eof or bof then Response.Redirect(\"login.asp\")
    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
    rs(\"username\") = Request.form(\"username\")
    rs(\"password\") = Request.form(\"password\")
    rs.update
      end if
%>
<form method=post action=ret.asp>
Brugernavn: <input type=text name=felt value=\"<%=rs(\"username\")%>><br>
Password: <input type=text name=felt value=\"<%=rs(\"password\")%>><br>
<input type=Submit value=opdater></form>


Upz, en mindre stavefejl

Det virker ikke :(
Når jeg er logget ind, og trykker på \"ret info\", redirecter den bare til login.asp, selvom jeg er logget ind :(

<%
if session(\"username\") = \"\" then
Response.Redirect(\"login.asp\")
end if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"brugere.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3

    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
    rs(\"username\") = Request.form(\"username\")
    rs(\"password\") = Request.form(\"password\")
    rs.update
      end if
%>
<form method=post action=ret.asp>
Brugernavn: <input type=text name=felt value=\"<%=rs(\"username\")%>><br>
Password: <input type=text name=felt value=\"<%=rs(\"password\")%>><br>
<input type=Submit value=opdater></form>

Det virker stadig ikke....

Er du der bjarke ?

prøv lige og skriv koden til dit login system ?

Det kan faktisk ikke betale sig (fylder over 700 linier), for der er kun de to sessions

Men her:
if session(\"username\") = \"\" then
Response.Redirect(\"login.asp\")

Siger du så ikke, hvis session username er der, så skal den redirecte ??

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"brugere.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3

    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
    rs(\"username\") = Request.form(\"username\")
    rs(\"password\") = Request.form(\"password\")
    rs.update
      end if
%>
<form method=post action=ret.asp>
Brugernavn: <input type=text name=felt value=\"<%=rs(\"username\")%>><br>
Password: <input type=text name=felt value=\"<%=rs(\"password\")%>><br>
<input type=Submit value=opdater></form>


og hvilken fejlmeddelse giver det ?

advokaten ->
<% if session(\"username\") = \"\" then
Response.Redirect(\"login.asp\")
end if %>

gør at den tjecker om session(\"username\") = ingen ting, og hvis den ikke indeholder noget bliver man smidt til login siden

Denne her:
ADODB.Field fejl \'80020009\'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

?

ok :=)

advokaten -> Ja, det er fordi posten ikke findes,

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"brugere.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3

    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
    rs(\"username\") = Request.form(\"username\")
    rs(\"password\") = Request.form(\"password\")
    rs.update
      end if
%>
<form method=post action=ret.asp>
Brugernavn: <input type=text name=felt value=\"<%=rs(\"username\")%>><br>
Password: <input type=text name=felt value=\"<%=rs(\"password\")%>><br>
<input type=Submit value=opdater></form>


er du sikker på at den session der indeholder brugerens navn hedder session(\"username\")

session\'en hed ikke username, men brugernavn..er rettet.
Nu virker det også...næsten. I ret.asp er der kun feltet username og password-feltet står i username-feltet???

advokaten -> Hvad ? Kan du ikke lige omformulere det ? *S*

Det var bare mig der var lidt dum *GG*
I stedet for at formularen var der stod der kun koden til formen :)

Liige en sidste ting...
Kan du ikke lige lave det sådan at, hvis man har trykket opdater, at der kommer en tekst hvor der står at dine informationer er opdateret ??

advokaten -> Så det virker ?

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"brugere.mdb\")
sql = \"select * from users where username = \'\" & Session(\"username\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3

    if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
    rs.update
    rs(\"username\") = Request.form(\"username\")
    rs(\"password\") = Request.form(\"password\")
    rs.update
      Response.Write(\"dine date er opdateret\")
      end if
%>
<form method=post action=ret.asp>
Brugernavn: <input type=text name=felt value=\"<%=rs(\"username\")%>><br>
Password: <input type=text name=felt value=\"<%=rs(\"password\")%>><br>
<input type=Submit value=opdater></form>

Jep det virker perfect :)

Bliver der snart accepteret ?

f*ck...>> folk får bare hjælp og går igen...!!...