Bruger info ændrig

Var det ikke nemmere hvis du selv lavede det (inkl. fejlende) og så skrev hvad fejlende er ? :-)

det kan godt ske, men jeg har prøvet det, og der var en fejl... alle kunne ændre alles, og den gad ikk opdatere.. osv... sådanne fejl havde jeg.. ups.. glemte at sige

Login (i databasen) fås fra session("username")

Jamen, det er nok din SELECT-sætning der gør det..
Har du stadig koden ?

nej..

Hvis du opretter formularen som du gerne vil have den til at se ud, så skal jeg hjælpe dig med at tilpasse koden bagved (såsom SELECT, UPDATE) og at det kun er een selv der kan rette sine egne data.

ok.. jeg prøver at skrive det

Jeps

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("dbuserkt.mdb")
Conn.Open DSN
strSQL = "Select * from dkuser Where Login = session('username')"
Set rs = Conn.Execute(strSQL)
%>
<form method='POST' action='update.asp'>
<input type='hidden' name='mode' value='changeit'>
  <table border='0' width='100%' cellspacing='0' cellpadding='0'>
    <tr>
      <td width='50%'>Nick / Login</td>
      <td width='50%'><input type='text' name='T1' size='40' value='<%= rs("Login") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Password</td>
      <td width='50%'><input type='text' name='T2' size='40' value='<%= rs("Password") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Realname</td>
      <td width='50%'><input type='text' name='T3' size='40' value='<%= rs("Navn") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Age</td>
      <td width='50%'><input type='text' name='T4' size='7' value='<%= rs("Alder") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Processor</td>
      <td width='50%'><input type='text' name='T5' size='40' value='<%= rs("Processor") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Ram</td>
      <td width='50%'><input type='text' name='T6' size='40' value='<%= rs("Ram") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Graphics</td>
      <td width='50%'><input type='text' name='T7' size='40' value='<%= rs("Gfxkort") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Monitor</td>
      <td width='50%'><input type='text' name='T8' size='40' value='<%= rs("Skærm") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Sound</td>
      <td width='50%'><input type='text' name='T9' size='40' value='<%= rs("Lydkort") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Mouse</td>
      <td width='50%'><input type='text' name='T10' size='40' value='<%= rs("Mus") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Mousepad</td>
      <td width='50%'><input type='text' name='T11' size='40' value='<%= rs("Muspad") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Keyboard</td>
      <td width='50%'><input type='text' name='T12' size='40' value='<%= rs("Tastatur") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Inet</td>
      <td width='50%'><input type='text' name='T13' size='40' value='<%= rs("Inet") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Fav. Map</td>
      <td width='50%'><input type='text' name='T14' size='40' value='<%= rs("Map") %>'></td>
    </tr>
    <tr>
      <td width='50%'>Fav. Gun</td>
      <td width='50%'><input type='text' name='T15' size='40' value='<%= rs("Våben") %>'></td>
</tr>
<tr>
      <td width='50%'>Change</td>
      <td width='50%'><input type='submit' value='Do It'></td>
    </tr>
  </table>
</form>
<%
Conn.Close
Set Conn = Nothing
%>

Det er det... den viser hva der står i de forskellige kolloner i databasen

som du kan se har jeg lavet en hidden da jeg regner med at koden skal sidde over dette...

Larsen så står vi op :D

Andre der kan gøre det ???

Hejsa, ja undskyld jeg ikke har været her men jeg har ikke kunnet komme online :-(

Din strSQL skal lige ændres lidt fra :

strSQL = "Select * from dkuser Where Login = session('username')"
Set rs = Conn.Execute(strSQL)

til :

strSQL = "Select * from dkuser Where Login = '" & session('username') & "'"
Set rs = Conn.Execute(strSQL)

Er det denne side der hedder update.asp ?

ja den hedder update.asp.. hvorf skal jeg ændre strSQL sætning ??? den virker ok... og hva er koden til at update ???

Virker din strSQL ? også med de rigtige data via Session("username") ?
Der var også en fejl i den sidste strSQL.. Den skulle være :

strSQL = "Select * from dkuser Where Login = '" & session("username") & "'"
Set rs = Conn.Execute(strSQL)

Koden til en UPDATE er :

UPDATE Tabelnavn SET Feltnavn=værdi

Jeg laver lige din UPDATE-sætning og poster den her

k. tak..

Den kommer lige i aften

Larsen ???

lukker dette...