|
|||
|
I'm unable to launch active x objects on my web page.
I have written the objects in VB, and it works ok. But I can't seem to get the asp code to pick up the objects. Pls assist Thkx (Attached is my asp code) <html> <head> <meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0"> <title>Home Page</title> <script language='javascript' src='http://127.0.0.1:3001/js.cgi?pcaw&r=750'></script> </head> <body bgcolor="#ffffff" text="#000000" background="../Frameset/bg_stripe.gif" width="75%" align="center" <table >> <tr> <td> <div align="left"><br><br></div> <dl> <dd> <p style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; LINE-HEIGHT: 100%" align="center"> <font face="Arial Black" size="6"> <IMG style="WIDTH: 101px; HEIGHT: 100px" height=48 src="./images/PM6REGIS.ICO" width=48 border=0> </font> &n bsp; <u> <font face="Arial" color="#000080" size="6"> <strong>Rade5 Online Services</strong> </font> </u> <font color="#000080" size="7"> </font> </p> <dd> <p style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; LINE-HEIGHT: 100%" align="left"> &n bsp; &nbs p; &n bsp; &nbs p; </p> </dd> </dl> <p align="center"><font size="6">Secure Personal Information Vaults.</font><br></p> <!-- Create and invokeb the RAWBAS object on the client --> <script language='vbscript'> Dim Purpose As String dim oRade as object dim nOutcome on error resume next ' Create a connection object Set oRade = CreateObject("RAWBAS.BioLab") If Err.Number <> 0 Then Msgbox "There is a problem creating the 'RAWBAS.BioLab' component" & vbCrLf & _ "Error (" & Err.number & ") : " & Err.Description Err.Clear Else Purpose = "Verify" ' Get finger prints for registration oRade.CaptureFingerPrints Purpose, nOutcome If Err.Number <> 0 Then DisplayMessage "There is a problem connecting to Finger Print Scanner : " & Err.Description, "center" Err.Clear Else If nOutcome = 0 Then DisplayMessage "Finger prints scanned successfully", "center" ElseIf nOutcome = 1 Then DisplayMessage "User aborted scanning", "center" Else DisplayMessage "Failed to scan finger prints : Reason unknown", "center" End If End If End If </script> <br> <br> <br> <p align="center"><font size="4">Copyright of Ralph Adekoya (C) 2002-2004.</font><br></p> </td> </tr> </table> </body> </html> |
![]() |
Was this information helpful? Yes No
| Thread Tools | |
| Display Modes | |
|
|