We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

ExecBrainMak (0x800A01A8) Object required

allycavs2003
allycavs2003 asked
on
Medium Priority
1,173 Views
Last Modified: 2012-06-22
This is my some of ASP code:


course=Request.Form ("college_course")
.
.
.
.

Set callBrainMak=Server.CreateObject("ExecBrainMak.ExecBMclass")
Result=callBrainMak.ExecuteBrainmaker(course)

and I get the error ExecBrainMak (0x800A01A8) Object required on the above line. The above code executes a registered dll which has the following code:

'in general declarations
Public CIT_course As String

'in general ExecuteBrainMaker
Function ExecuteBrainmaker(CIT_course)
Dim result

result = 0


If StrComp(cit_courses.Text, "NATIONAL CERT IN BUSINESS STUDIES") = 0 Then
    Kill ("C:\InetPub\wwwroot\ALAN\browser.out")
    returnValue = Shell("C:\Alan\brainmaker\brainmak.exe C:\Alan\Project\accurate_NN3        \BS\browser.net -b", vbHide)
    result = 1
   
ElseIf StrComp(cit_courses.Text, "OTHER BUSINESS STUDIES COURSES") = 0 Then
    Kill ("C:\InetPub\wwwroot\ALAN\browser.out")
    returnValue = Shell("C:\Alan\brainmaker\brainmak.exe C:\Alan\Project\accurate_NN3\business_catering\browser.net -b", vbHide)
    result = 1
   
ElseIf StrComp(cit_courses.Text, "ELECTRONICS COURSES") = 0 Then
    Kill ("C:\InetPub\wwwroot\ALAN\browser.out")
    returnValue = Shell("C:\Alan\brainmaker\brainmak.exe C:\Alan\Project\accurate_NN3\electronics\browser.net -b", vbHide)
   
ElseIf StrComp(cit_courses.Text, "MECHANICAL ENGINEERING COURSES") = 0 Then
    Kill ("C:\InetPub\wwwroot\ALAN\browser.out")
    returnValue = Shell("C:\Alan\brainmaker\brainmak.exe C:\Alan\Project\accurate_NN3\mech_eng\browser.net -b", vbHide)

ElseIf StrComp(cit_courses.Text, "CONSTRUCTION & ARCHITECTURAL COURSES") = 0 Then
    Kill ("C:\InetPub\wwwroot\ALAN\browser.out")
    returnValue = Shell("C:\Alan\brainmaker\brainmak.exe C:\Alan\Project\accurate_NN3\construction\browser.net -b", vbHide)
   
ElseIf StrComp(cit_courses.Text, "MATHS & COMPUTING COURSES") = 0 Then
    Kill ("C:\InetPub\wwwroot\ALAN\browser.out")
    returnValue = Shell("C:\Alan\brainmaker\brainmak.exe C:\Alan\Project\accurate_NN3           \ALL_COM\browser.net -b", vbHide)
         result = 1
   
     End If

      result = result + 1 - 1
End Function

This code used to work before I tried passing a parameter into ExecuteBrainMaker
I tried various number of ways to fix the code.

i get this error if i try to declare course in the ASP as
Dim course as string

Microsoft VBScript compilation (0x800A0401)
Expected end of statement


even just tried passing in "electronics"
but the same error occurs
course definetly has the right string from request.from()

just so you know Brainmaker is a NeuralNetwork application. im trying to do a browser interface to it.

any help is much appreciated
Comment
Watch Question

Unlock this solution with a free trial preview.
(No credit card required)
Get Preview
Unlock this solution with a free trial preview.
(No credit card required)
Get Preview

Author

Commented:
i solved the problem myself but ill give ye the points for the tips as i didnt know
1) variants is all i can use - that would have eventually caused a problem
2)starting/stoping the IIs server - i rarly done it and got permission denied every now and then - normally rebooted the computer

i know have 2 dos coomands to start and stop thee iis server
iisreset /stop
iisreset /start

the problem was you see i done a vb interface to this but wanted a browser intyerface - more accessable

so some of the code was a copy and paste job

if you look in the if statements i had cit_course.text
that comes from a texte box on the VB interface

should have spotted it straighht away - sorry for wasting yere time

just so you know brainmaker is an appli9cation that you can buy. dont know are they still making it cause the version i have came out about 1996/1997

its not open source-look it up on the net if you are interested. the application itslef doesnt have a good interface. so thats my im putting a a nice enough interface on my mine. nothing spectacular though.

Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a free trial preview!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.