Hej!
Mitt första inlägg här på sidan och jag hoppas att jag inte gör bort mig nu...
Jag har en enkel access databas med fält som ID (räknare), Efternamn (text), Förnamn (text), Telefonnummer (tal).
Jag har en sida som visare upp detta i INPUT rader där varje rad har fått samma ID som det som står i databasen.
När man ändrar värdet i någon av INPUT fälten och trycker på en UPDATE-knapp skall dessa uppgifter uppdatera *döh* men inga uppdateringar händer?!
Här är koden på sidan som visar databasens innehåll:
<form action="./update.asp" method="POST">
<table border="0" cellpadding="1" cellspacing="1" bgcolor="#111111">
<tr class="text" bgcolor="#eeeeee">
<td><b>Efternamn:</b></td>
<td><b>Förnamn:</B></td>
<td><b>Telefon:</b></td>
</tr>
<%
Dim Conn
Dim rs
Dim sql
SQLDBPath = Server.MapPath("\index\db\webusers.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SQLDBPath & ";"
Set rs = Conn.Execute("SELECT * FROM UserInfo Order by EfterNamn Asc")
%>
<tr class="text" bgcolor="#ffffff">
<td><input type="text" name="EfterNamn" value="<%= rs("EfterNamn").Value %>"><input type="text" name="UserId" value="<%= rs("Id").Value %>"></td>
<td><input type="text" name="FörNamn" value="<%= rs("FörNamn").Value %>"><input type="text" name="UserId" value="<%= rs("Id").Value %>"></td>
<td><input type="text" name="Telefon" value="<%= rs("Telefon").Value %>"><input type="text" name="UserId" value="<%= rs("Id").Value %>"></td>
</tr>
<%
rs.MoveNext
Loop
%>
<input type="Submit" value="Uppdatera">
--------------------------------------
Och här är koden som skall göra uppdateringen:
<%
Dim Conn
Dim SQL
Dim SQLDBPath
SQLDBPath = Server.MapPath("\index\db\webusers.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SQLDBPath & ";"
SQL = "UPDATE UserInfo SET "
SQL = SQL & "EfterNamn = '" & Request.Form("EfterNamn") & "' "
SQL = SQL & "FörNamn = '" & Request.Form("FörNamn") & "' "
SQL = SQL & "Telefon = '" & Request.Form("Telefon") & "' "
SQL = SQL & "WHERE ID LIKE '" & request.Querystring("UserId") & "' "
Conn.Execute(SQL)
Conn.Close
Set Conn = nothing
%>
--------------------------------------
Tacksam för svar!
Ps.
Jag har sökt på detta forumet men inte fattat något av det jag har hittat :-)
Ds.
------------------
/Klementin