Detta script skriver över andra poster i databasen när det bara ska uppdatera en specifik post, hur kan jag fixa det?
Jag prövade använda:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\katalog.mdb;"
SQL = "SELECT * from Kat WHERE USERNAME = '" & mySmartUpload.Form("ID") & "'"
Set RS_prod = Conn.Execute(SQL)
%>
Så att det bara skulle välja den post som hade samma ID som den som skulle uppdateras. men det funkade inte riktig
<%
'Declare all local variables
dim conn
dim rs
dim strID
dim strconn
'set a local variable to my DSN-less connection String
strconn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\katalog.mdb;"
'Create the Connection object
set conn = server.createobject("adodb.connection")
conn.open strconn
'Create the recordset object
'set rs = server.createobject("adodb.recordset")
'This statement opens the table so we can add a record notice the addnew
'The 2, 2 is how the table is opened there are many ways it can be opened
rs.open "Kat", conn, 2, 2, adCmdTable
rs.update
'Set the table column = to my input text box from my form
rs("Namn") = mySmartUpload.Form("Namn")
rs("Naradress") = mySmartUpload.Form("Naradress")
rs("Postnr") = mySmartUpload.Form("Postnr")
rs("Ort") = mySmartUpload.Form("Ort")
rs("Tel") = mySmartUpload.Form("Tel")
rs("Fax") = mySmartUpload.Form("Fax")
rs("Epost") = mySmartUpload.Form("Epost")
rs("www") = mySmartUpload.Form("www")
rs("Amnesomrade") = mySmartUpload.Form("Amnesomrade")
rs("Password") = mySmartUpload.Form("Password")
rs("Ovrigt_swe") = mySmartUpload.Form("Ovrigt_swe")
rs("Ovrigt_fin") = mySmartUpload.Form("Ovrigt_fin")
rs.update
%>
<%
'Declare all local variables
dim conn
dim rs
dim strID
dim strconn
'set a local variable to my DSN-less connection String
strconn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\katalog.mdb;"
'Create the Connection object
set conn = server.createobject("adodb.connection")
conn.open strconn
'Create the recordset object
set rs = server.createobject("adodb.recordset")
'This statement opens the table so we can add a record notice the addnew
'The 2, 2 is how the table is opened there are many ways it can be opened
SQL = "SELECT * from Kat WHERE USERNAME = '" & mySmartUpload.Form("ID") & "'"
rs.open sql, conn, 2, 2, adCmdText
'Set the table column = to my input text box from my form
rs("Namn") = mySmartUpload.Form("Namn")
rs("Naradress") = mySmartUpload.Form("Naradress")
rs("Postnr") = mySmartUpload.Form("Postnr")
rs("Ort") = mySmartUpload.Form("Ort")
rs("Tel") = mySmartUpload.Form("Tel")
rs("Fax") = mySmartUpload.Form("Fax")
rs("Epost") = mySmartUpload.Form("Epost")
rs("www") = mySmartUpload.Form("www")
rs("Amnesomrade") = mySmartUpload.Form("Amnesomrade")
rs("Password") = mySmartUpload.Form("Password")
rs("Ovrigt_swe") = mySmartUpload.Form("Ovrigt_swe")
rs("Ovrigt_fin") = mySmartUpload.Form("Ovrigt_fin")
rs.update
%>