Uppdaterings problem

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

%>

------------------
His Divine Shadow is the most despicable being ever created, short and to the point.

http://forums.planetdivine-shadow.com

Sprit löser inga problem. Men det gör inte mjölk heller.

[Redigerat av His Divine Shadow den 11 okt 2001]

<%
'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

%>

red: cut and paste fel.
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 11 okt 2001]

Jag får:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/katalog/swe/redigera2.asp, line 42

Linje 42:
rs.open sql, conn, 2, 2, adCmdText

------------------
His Divine Shadow is the most despicable being ever created, short and to the point.

http://forums.planetdivine-shadow.com

Sprit löser inga problem. Men det gör inte mjölk heller.

Du har ju kommenterat bort skapandet av recordsetet.

'set rs = server.createobject("adodb.recordset")

Ta bort kommenteringen...

------------------
All your base are belong to me.

UPS! :e

------------------
His Divine Shadow is the most despicable being ever created, short and to the point.

http://forums.planetdivine-shadow.com

Sprit löser inga problem. Men det gör inte mjölk heller.

Men nu fick jag
Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/katalog/swe/redigera2.asp, line 42

Linje 42 är igen:
rs.open sql, conn, 2, 2, adCmdText

------------------
His Divine Shadow is the most despicable being ever created, short and to the point.

http://forums.planetdivine-shadow.com

Sprit löser inga problem. Men det gör inte mjölk heller.

Hur ser sql-satsen ut?

Lägg till en

response.write sql

precis innan open.

------------------
essentitia preter non sans multiplicandum

Detta fick jag:

SELECT * from Kat WHERE ID = '64'
Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/katalog/swe/redigera2.asp, line 42

------------------
His Divine Shadow is the most despicable being ever created, short and to the point.

http://forums.planetdivine-shadow.com

Sprit löser inga problem. Men det gör inte mjölk heller.

Vilken datatyp har kolumnen id?

Om det är nuneriskt så skall det inte vara några ' kring värdet, dvs

------------------
essentitia preter non sans multiplicandum

OK tack

[Redigerat av His Divine Shadow den 11 okt 2001]