Christiana
Technical User
I have the following code. Each time it returns the next number expected but it doesn't really add. Does anyone what the problem could be? I'm using MS Access.
dim conntemp
set conntemp=server.CreateObject("adodb.connection"
conntemp.Open myDSN
Dim rs
set rs=Server.CreateObject("ADODB.RecordSet"
strSQL="SELECT * FROM WATERMILL"
rs.Open strSQL, conntemp,adOpenDynamic, adLockPessimistic
'Make sure that there aren't any previous errors affecting
conntemp.Errors.Clear
On Error Resume Next
rs.AddNew
rs.Fields("Name"="'"&Request("Name"&"'"
..........
rs.Fields("Details"=Request("Details"
'Get the primary key of the record added
WatermillID=rs.Fields("WatermillID".Value
rs.Update
rs.close
Thank you in advance
Christiana
dim conntemp
set conntemp=server.CreateObject("adodb.connection"
conntemp.Open myDSN
Dim rs
set rs=Server.CreateObject("ADODB.RecordSet"
strSQL="SELECT * FROM WATERMILL"
rs.Open strSQL, conntemp,adOpenDynamic, adLockPessimistic
'Make sure that there aren't any previous errors affecting
conntemp.Errors.Clear
On Error Resume Next
rs.AddNew
rs.Fields("Name"="'"&Request("Name"&"'"
..........
rs.Fields("Details"=Request("Details"
'Get the primary key of the record added
WatermillID=rs.Fields("WatermillID".Value
rs.Update
rs.close
Thank you in advance
Christiana