Re: ODBC Driver error '80040e14'

This is the sql code that is causing the error:

response.buffer=true

Dim Rs1, Con1, RedirectString
set Con1 = server.createobject("ADODB.Connection")
Con1.open( "dsn=*****;uid=******" )
set Rs1 = server.createobject("ADODB.recordset")
Rs1.open "tblCompanySubCategory", Con1,3,3

If not isnull(request.form("TheSubCatID")) then
if len(trim(request.form("TheSubCatID"))) then
Rs1.addnew
Rs1("LastAmendedBy") = request.Cookies("***")("UserID")
Rs1("LastAmendedDate") = date()
Rs1("CompanyID") = request.querystring("CompanyID")
Rs1("CatSubCatID") = request.form("TheSubCatID")
Rs1.update
end if
End If

Con1.close
set Con1 = Nothing
set Rs1 = Nothing

RedirectString = "SalesCompanyCategory.asp?CompanyID=" &
request.querystring("CompanyID") & "&method=save"

response.clear
response.redirect RedirectString
response.end

Thoughts???

--
Message posted via http://www.sqlmonster.com
.

Loading