Sir, this code is running perfectly fine at server level, but when we run this code locally in IIS Server then it return following error in the code specified...

Error:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.



Code:
Set Conn=server.CreateObject("ADODB.Connection")
Conn.ConnectionString="PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE = " & server.mappath("data.mdb")
Conn.open

Dim strSQL,objrs,maxno

strSQL="select max(Par.ParNumber) as qno from Par ;"
Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open strSQL,Conn,3,3

if not objrs.eof =true and not objrs.bof=true then
maxno=objrs("Qno")
if maxno = "" or vartype(maxno) = 1 then
maxno =1
else
maxno=maxno+1
end if
else
maxno=1
end if

strSQL="select * from Par;"
set objrs=Server.createObject("ADODB.Recordset")
objrs.open strSQL,Conn,3,3

dim strparno,strdate,strroute,strcable,strmap,strPrior ity,strauthor,strFeat,strDatatype,strQues,strsol,s trAttach,strgrid
dim strpartype,strprob,strstat,subj,mailbody,strdep,st rver
dim strloc
'strParno=Request.Form("parno")
strdate=Request.Form("pardate")
strmode = Request.Form("mode")
strtask = Request.Form("task")
strarea=Request.Form("area")
strmap=Request.Form("map")
strPriority=Request.Form("priority")
strauthor=Request.Form("author")
strFeat=Request.Form("feature")
strprob=Request.Form("problem")
strloc = Request.Form("location")
strQues=Request.Form("question")
strsol=Request.Form("solution")
strdep=Request.Form("dept")
strVer=request.form("version")



objrs.AddNew
objrs("ParNumber")= Trim(maxno)
objrs("DateOfQuestion")= trim(strdate)
objrs("mode")=trim(strmode)
objrs("task")=trim(strtask)
objrs("area")=trim(strarea)
objrs("Mapno")=Trim(strmap)
objrs("Priority")=trim(strPriority)
objrs("AuthorOfQuestion")=trim(strauthor)
objrs("Objects")=trim(strFeat)
objrs("problem_type") = trim(strprob)
objrs("Location")=trim(strloc)
objrs("Question")=trim(strQues)
objrs("ProposedSolution")=trim(strsol)
objrs("toolversion")=trim(strVer)
objrs("department")=trim(strdep)

if session("accLevel") = "Client" then
objrs("status")="At IEL"
subj ="New Tool Problem " & MAXNO & " related to " & strFeat & " has been posted by " & strdep & " ."
mailbody = "TA PAR " & MAXNO & " has been posted by TELEATLAS."
sendmail "At IEL",strmode,mailbody ,subj,strFeat,strVer,strprob,strQues,"x"
elseif session("accLevel") = "Administrator" then
objrs("status")="Open"
subj ="New Tool Problem " & MAXNO & " related to " & strFeat & " has been posted by " & strdep & " . "
mailbody = "New Tool Problem " & MAXNO & " has been posted by " & strdep & " ."
sendmail "At TA",strmode,mailbody ,subj,strdep,strFeat,strVer,strprob,strQues,"x"

else
objrs("status")="Open"
end if
'strstat = objrs("status")

objrs.Update

Well, it's really really bad code, anyway.

Read here to see why:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=79

See especially the part that starts with "**BAD CODE**".

But you really should consider using SQL INSERT instead of ADDNEW. Or that variant of ADDNEW that I show at the very end of that FAQ.

Old Pedant,

Your site is having problems. That link shows 500 Internal Server Error.

Don't code in classic at all anymore but when I did I never used the AddNew method, always had problems with it. I agree with you, INSERT is the way to go.

Richard

Not my site...4GuysFromRolla. Typical of internet.com, plus of course the site is slowly dying.

It will appear again, no doubt, after a while.