Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 189
  • Last Modified:

Help calling a function

I need to call a function from a button.

The function is:

Set QFEBridge = CreateObject("QFEBridgeTest. clsQuickBridge ")
Result = QFEBridge.CallQuick()

What it will do is (commented for now):

'Check for errors in running the Quik! Forms Engine
 If objQFE.Results.ErrorFlag Then
 strHtml = "ErrorFlag = 1"
 Else
 'Redirect to the HTML file
 'Dim objFile As QuikFormsEngine.QuikFormOutput
 'For Each objFile In arrFiles
 ' Dim strFileName As String = objFile.FullName
 ' If strFileName = "" Then
 ' strFileName = "ERROR! No forms were generated."
 ' Response.Write(strFileName)
 ' Else
 ' Response.ContentType = "text/html"
 ' Response.Redirect(strFileName)
 ' End If
 'Next

 'Write the HTML file out as a response

The image that should call the function is:

<IMG border=0 alt="Open Form" src="../../../Images/icedit.gif" width=16 height=16>

How can I add code to that image so that it calls the function which should open a page and parse some code.
0
Aleks
Asked:
Aleks
  • 3
  • 2
1 Solution
 
Big MontySenior Web Developer / CEO of ExchangeTree.org Commented:
i would add a query string to the url call from the image so that its flagged a certain way, meaning it'll only run that code with a specific query string key/value:

<a href="page.asp?qbridge=y"<IMG border=0 alt="Open Form" src="../../../Images/icedit.gif" width=16 height=16></a>

Open in new window


then, on page.asp, you would do:

if Request.QueryString("qbridge") = "y" then
   Set QFEBridge = CreateObject("QFEBridgeTest. clsQuickBridge ")
   Result = QFEBridge.CallQuick()

   'Check for errors in running the Quik! Forms Engine
    If objQFE.Results.ErrorFlag Then
      strHtml = "ErrorFlag = 1"
    Else
     'Redirect to the HTML file 
     'Dim objFile As QuikFormsEngine.QuikFormOutput 
     'For Each objFile In arrFiles 
    ' Dim strFileName As String = objFile.FullName 
    ' If strFileName = "" Then 
       ' strFileName = "ERROR! No forms were generated." 
       ' Response.Write(strFileName) 
    ' Else 
       ' Response.ContentType = "text/html" 
      ' Response.Redirect(strFileName) 
    ' End If 
   'Next
end if

Open in new window

0
 
AleksAuthor Commented:
page.asp has the attached code but returns an error saying that the page could not create the active X

Error Microsoft VBScript while executing error '800a01ad'

The ActiveX control could not create object: 'QFEBridgeTest. clsQuickBridge '

/bluedot/Intranet/Cases/Forms/page.asp, line 7

Any clues ?
0
 
AleksAuthor Commented:
Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'QFEBridgeTest. clsQuickBridge '

/bluedot/Intranet/Cases/Forms/page.asp, line 7


I tried registering the .dll but it is not registering it, I get an error that the entry point could not be found.
0
 
Big MontySenior Web Developer / CEO of ExchangeTree.org Commented:
my guess is a permissions issue, make sure whatever account that runs the site has access to where the dll resides
0
 
AleksAuthor Commented:
We fixed it last night, thanks for the help !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now