Option Explicit and AddNew Errors

DaiDreamer · Dec 11, 2001

Hi! For some reason my code doesn't like option explicit or Rsadd.addnew

The frist one comes up with this error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/bureauofminere/frdocinvetory/NewAdded.asp, line 10

option explicit

and the other one with this

ADODB.Recordset error '800a0cb3'

The operation requested by the application is not supported by the provider.

/bureauofminere/frdocinvetory/NewAdded.asp, line 214

here's my code. The lines were the errors are bolded. (sorry about the mess at the top...)

<!DOCTYPE HTML PUBLIC "-//IETP//DTD HTML//EN">
<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>Records Added!</title>
<%@ Language=VBScript %>
<% option explicit%>
<%
dim section1, section2, count, section3, section4
Dim BORDocNum1, BORDocNum2, BORDocNum3, BORDocNum4, DocType1, DocType2
Dim DocType3, DocType4, DateofRequire1, DateofRequire2, DateofRequire3, DateofRequire4
dim Desc1, Desc2, Desc3, Desc4, Mine1, Mine2, Mine3, Mine4, Owner1, Owner2, Owner3, Owner4
Dim DocNum1, DocNum2, Docnum3, Docnum4, Issue1, Issue2, Issue3, Issue4, Amount1, Amount2, Amount3, Amount4, ExDate1, ExDate2, ExDate3, ExDate4, IssDate1, IssDate2, IssDate3, IssDate4, Return1, Return2, Return3, Return4

CheckFields()

Function CheckFields()
dim errors, message, fieldcounter, Sectionconn, Sectionrs, Docconn,Docrs,strSQLQuery, strSQLQuery2
Count=0
Errors=0
Message=""
FieldCounter=1

' Database Stuff to get Section Name
set Sectionconn = server.createobject("ADODB.Connection&quot

sectionconn.Open "DSN=SuretyDNS"
Session.timeout = 15
Set Session("MyDB_conn&quot

= sectionconn

strSQLQuery = "SELECT * FROM Sections"
Set Sectionrs = server.CreateObject("ADODB.Recordset&quot

sectionrs.Open strSQLQuery, sectionconn, 3, 3
'Set sectionrs = server.CreateObject("ADODB.Recordset&quot

set Docconn = server.createobject("ADODB.Connection&quot

Docconn.Open "DSN=SuretyDNS"
Session.timeout = 15
Set Session("MyDB_conn2&quot

= Docconn

strSQLQuery2 = "SELECT * FROM DocumentTypes"
Set docrs = server.CreateObject("ADODB.Recordset&quot

docrs.Open strSQLQuery2, docconn, 3, 3
'Set docrs = CreateObject("ADODB.Recordset&quot

For Fieldcounter = 1 to 4
Select Case Fieldcounter
Case 1

testing=0
section1=request.form("SectionName1&quot

response.write section1
If SectionName1 <> "fdk" then
Count=Count+1
response.write "test"
BORDocNum1=request.form("BRDocNum1&quot

If BORDocNum1="" then'from form
Errors=Errors+1
response.write "case1a"
message=Message+"Need to have Basis of Requirement Document Number in Line 1. "
Else
do until sectionrs.eof
response.write section1 & sectionrs("Code&quot

& "<br>"
if Section1=sectionrs("Code&quot

then 'valid
testing=1
response.write " valid"

end if
sectionrs.movenext
loop
if testing=0 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 1. "
end if
DocType1=request.form("BRDocType1&quot

If doctype1 = "" then'invalid
errors = errors +1
message=message + "Invaild DocType in Line 1. "
end if
if Errors >0 then
Response.write(message)
else
AddToDatabase()
end if
end if
end if
Case 2
testing=0
section2=request.form("SectionName2&quot

If Section2 <>"" then
Count=Count+1
BORDocNum2=request.form("BRDocNum2&quot

If BORDocNum2="" then 'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 2. "
Else
do until sectionrs.eof

if Section2=sectionrs("Code&quot

then'valid
testing=1
response.write " valid"
end if
sectionrs.movenext
loop
if testing=0 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 2. "
end if
DocType2=request.form("BRDocType2&quot

If doctype1 <>"" then 'invalid
errors = errors +1
message=message + "Invaild DocType in Line 2. "
end if
if Errors >0 then
response.write (message)
else
AddToDatabase()
end if
end if
end if
Case 3
testing=0
section3=request.form("SectionName3&quot

If Section3 <>"" then
Count=Count+1
BORDocNum3=request.form("BRDocNum3&quot

If BORDocNum3="" then'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 3. "
Else
do until sectionrs.eof
if Section3=sectionrs("Code&quot

then'valid
testing=1
response.write " valid"
end if
sectionrs.movenext
loop
if testing=0 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 3. "
end if

DocType3=request.form("BRDocType3&quot

If doctype1 <>"" then'invalid
errors = errors +1
message=message + "Invaild DocType in Line 3. "
end if
if Errors >0 then
response.write (message)
else
AddToDatabase()
end if
end if
end if
Case 4
testing=0
section4=request.form("SectionName4&quot

If Section4 <>"" then
Count=Count+1
BORDocNum4=request.form("BRDocNum4&quot

If BORDocNum4="" then 'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 4. "
Else
do until sectionrs.eof
if Section4=sectionrs("Code&quot

then'valid
testing=1
response.write " valid"

end if
sectionrs.movenext
loop
if testing=0 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 4. "
end if
DocType4=request.form("BRDocType4&quot

If doctype1 <>"" then'invalid
errors = errors +1
message=message + "Invaild DocType in Line 4. "
end if
if Errors >0 then
response.write (message)
else
AddToDatabase()
end if
end if
end if
end select
next
sectionconn.close
docconn.close
set sectionconn=nothing
set docconn = nothing
end function 'CheckFields()

Function AddtoDatabase()
set ADDconn = server.createobject("ADODB.Connection&quot

ADDconn.Open "DSN=SuretyDNS"
Session.timeout = 15
Set Session("MyDB_conn&quot

= ADDconn
response.write "addtodatabase"
Set RsAdd = server.CreateObject("ADODB.Recordset&quot

Set RsAdd.ActiveConnection = ADDconn
RsAdd.Open "InventoryOfSuretyDocuments"

For counter = 1 to count
Select case Counter

case 1

RsAdd.AddNew
RsAdd.Fields("Section Name&quot

= section1
RsAdd.Fields("Date of Requirement&quot

=DateofRequire1
DocType1=request.form("BRDocType1&quot

RsAdd.Fields("BOR Document Type&quot

= DocType1
RsAdd.Fields("BOR Document Number&quot

= BORDocNum1
Desc1=request.form("Reason1&quot

RsAdd.Fields("BOR Description of Reason&quot

=Desc1
Mine1=request.form("Mine1&quot

RsAdd.Fields("Mine, Program, or Parcel&quot

=Mine1
Owner1=request.form("Applicant1&quot

RsAdd.Fields("Applicant/Landowner&quot

=Owner1
DocNum1=request.form("DocNum1&quot

RsAdd.Fields("Document Number&quot

=DocNum1
Issue1=request.form("Issued1&quot

RsAdd.Fields("Issued By&quot

=Issue1
Amount1=request.form("Amount1&quot

RsAdd.Fields("Amount&quot

=Amount1
IssDate1=request.form("DateIssued1&quot

RsAdd.Fields("Date Issued&quot

=IssDate1
ExDate1=request.form("Expiration1&quot

RsAdd.Fields("Expiration Date&quot

=ExDate1
Return1=request.form("ReturnDate1&quot

RsAdd.Fields("Returned Date&quot

=Return1
RsAdd.Update

case 2
RsAdd.AddNew
RsAdd.Fields("Section Name&quot

= section2
RsAdd.Fields("Date of Requirement&quot

=DateofRequire2
DocType2=request.form("BRDocType2&quot

RsAdd.Fields("BOR Document Type&quot

= DocType2
RsAdd.Fields("BOR Document Number&quot

= BORDocNum2
Desc2=request.form("Reason2&quot

RsAdd.Fields("BOR Description of Reason&quot

=Desc2
Mine2=request.form("Mine2&quot

RsAdd.Fields("Mine, Program, or Parcel&quot

=Mine2
Owner2=request.form("Applicant2&quot

RsAdd.Fields("Applicant/Landowner&quot

=Owner2
DocNum2=request.form("DocNum2&quot

RsAdd.Fields("Document Number&quot

=DocNum2
Issue2=request.form("Issued2&quot

RsAdd.Fields("Issued By&quot

=Issue2
Amount2=request.form("Amount2&quot

RsAdd.Fields("Amount&quot

=Amount2
IssDate2=request.form("DateIssued2&quot

RsAdd.Fields("Date Issued&quot

=IssDate2
ExDate2=request.form("Expiration2&quot

RsAdd.Fields("Expiration Date&quot

=ExDate2
Return2=request.form("ReturnDate2&quot

RsAdd.Fields("Returned Date&quot

=Return2
RsAdd.Update

case 3

RsAdd.AddNew
RsAdd.Fields("Section Name&quot

= section3
RsAdd.Fields("Date of Requirement&quot

=DateofRequire3
DocType3=request.form("BRDocType3&quot

RsAdd.Fields("BOR Document Type&quot

= DocType3
RsAdd.Fields("BOR Document Number&quot

= BORDocNum3
Desc3=request.form("Reason3&quot

RsAdd.Fields("BOR Description of Reason&quot

=Desc3
Mine3=request.form("Mine3&quot

RsAdd.Fields("Mine, Program, or Parcel&quot

=Mine3
Owner3=request.form("Applicant3&quot

RsAdd.Fields("Applicant/Landowner&quot

=Owner3
DocNum3=request.form("DocNum3&quot

RsAdd.Fields("Document Number&quot

=DocNum3
Issue3=request.form("Issued3&quot

RsAdd.Fields("Issued By&quot

=Issue3
Amount3=request.form("Amount3&quot

RsAdd.Fields("Amount&quot

=Amount3
IssDate3=request.form("DateIssued3&quot

RsAdd.Fields("Date Issued&quot

=IssDate3
ExDate3=request.form("Expiration3&quot

RsAdd.Fields("Expiration Date&quot

=ExDate3
Return3=request.form("ReturnDate3&quot

RsAdd.Fields("Returned Date&quot

=Return3
RsAdd.Update

Case 4

RsAdd.AddNew
RsAdd.Fields("Section Name&quot

= section4
RsAdd.Fields("Date of Requirement&quot

=DateofRequire4
DocType4=request.form("BRDocType4&quot

RsAdd.Fields("BOR Document Type&quot

= DocType4
RsAdd.Fields("BOR Document Number&quot

= BORDocNum4
Desc4=request.form("Reason4&quot

RsAdd.Fields("BOR Description of Reason&quot

=Desc4
Mine4=request.form("Mine4&quot

RsAdd.Fields("Mine, Program, or Parcel&quot

=Mine4
Owner4=request.form("Applicant4&quot

RsAdd.Fields("Applicant/Landowner&quot

=Owner4
DocNum4=request.form("DocNum4&quot

RsAdd.Fields("Document Number&quot

=DocNum4
Issue4=request.form("Issued4&quot

RsAdd.Fields("Issued By&quot

=Issue4
Amount4=request.form("Amount4&quot

RsAdd.Fields("Amount&quot

=Amount4
IssDate4=request.form("DateIssued4&quot

RsAdd.Fields("Date Issued&quot

=IssDate4
ExDate4=request.form("Expiration4&quot

RsAdd.Fields("Expiration Date&quot

=ExDate4
Return4=request.form("ReturnDate4&quot

RsAdd.Fields("Returned Date&quot

=Return4
RsAdd.Update
end select
next
ADDConn.close
ADDconn=nothing
Response.write inttostr(count) & " New Records Added."
end function 'AddtoDatabase()
%>
</head>
<body>

</body>

</htmL>

Thanks!

DaiDreamer

dilettante · Dec 11, 2001

I can answer your first question:

<% Option Explicit %> must occur in your ASP page before any HTML code or script commands. So take it (and the "<%@ LANGUAGE" directive) all the way up to the top.

dilettante · Dec 11, 2001

Function AddtoDatabase()
set ADDconn = server.createobject("ADODB.Connection&quot

ADDconn.Open "DSN=SuretyDNS"

Typo? Should it be SuretyDSN?

dilettante · Dec 11, 2001

Comment:

Function AddtoDatabase()
set ADDconn = server.createobject("ADODB.Connection&quot

ADDconn.Open "DSN=SuretyDNS"
Session.timeout = 15
Set Session("MyDB_conn&quot

= ADDconn

Caching objects in the Session is considered a Very Bad Thing.

See:

http://msdn.microsoft.com/library/en-us/dnasp/html/asptips.asp

Look at Tip #5.

dilettante · Dec 11, 2001

ADODB.Recordset error '800a0cb3'

The operation requested by the application is not supported by the provider.

Is this an Oracle database?? See

http://support.microsoft.com/directory/article.asp?ID=KB;EN-US;Q255707

{Sorry, the forum software hosed the link. You'll have to type it in.}

In any case, your default cursor is most likely the problem.

DaiDreamer · Dec 12, 2001

No, it is an access database. The DSN name is correct. I flipped the letters on the server. I commented out the "Set Session("MyDB_conn&quot

= ADDconn" and it still comes up with the same error.

Thanks for the help for my frist problem. That works fine now!

DaiDreamer

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Option Explicit and AddNew Errors

DaiDreamer

Programmer

dilettante

MIS

dilettante

MIS

dilettante

MIS

dilettante

MIS

DaiDreamer

Programmer

Similar threads

Part and Inventory Search

Sponsor