W
wwwaynes
Why does this code AddNew return a read only error
<% @Language = VBScript %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<!-- This is basically a data processing document that
when finished stores
responses to a data base table hradmin-->
<!--METADATA TYPE="typelib"
FILE="C:\Program Files\Common
Files\System\ado\msado15.dll"-->
<html>
<head>
<title>Process HR Admin</title>
</head>
<body>
<%
'Need to figure out why this recordset is read-only
Dim strCoID, intCoID
strCoID = Request.form("CoID")
intCoID = CInt(strCoID)
Response.Write intCoID
Dim objConnect
Set objConnect = Server.CreateObject("ADODB.Connection")
Dim strConnect
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Inetpub\wwwroot\SRRMkt\MktRes.mdb;Persist
Security Info=False"
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "HR1", strConnect, adOpenStatic,
adLockOptimistic, adCmdTable
'objRS.MoveLast
objRS.AddNew
'objRS("CoID") = intCoID
'objRS.Update
objRS.Close
objConnect.Close
Set objConnect = Nothing
%>
</body>
</html>
<% @Language = VBScript %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<!-- This is basically a data processing document that
when finished stores
responses to a data base table hradmin-->
<!--METADATA TYPE="typelib"
FILE="C:\Program Files\Common
Files\System\ado\msado15.dll"-->
<html>
<head>
<title>Process HR Admin</title>
</head>
<body>
<%
'Need to figure out why this recordset is read-only
Dim strCoID, intCoID
strCoID = Request.form("CoID")
intCoID = CInt(strCoID)
Response.Write intCoID
Dim objConnect
Set objConnect = Server.CreateObject("ADODB.Connection")
Dim strConnect
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Inetpub\wwwroot\SRRMkt\MktRes.mdb;Persist
Security Info=False"
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "HR1", strConnect, adOpenStatic,
adLockOptimistic, adCmdTable
'objRS.MoveLast
objRS.AddNew
'objRS("CoID") = intCoID
'objRS.Update
objRS.Close
objConnect.Close
Set objConnect = Nothing
%>
</body>
</html>