Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

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

URGENT!!!! Need some help with PROGRESS error!!!

Sorry for the alert post, but I have been working at this for 2 days now and I am SOOOOOOOOO close to tossing our database server out of the window.

I got the Merant 3.6 drivers configured. I can use an ADO string from a VB6 environment to return LIVE, REAL-TIME DATA!!!! GREAT NEWS!!!!! However......

If I use the SAME connection string in an ASP application, I receive the following error:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[MERANT][ODBC PROGRESS driver]Optional feature not implemented.

The only thing I found on this forum that sounded similar can be found on this thread:

http://www.progresstalk.com/showthread.php?t=68885

If anyone can offer help, it would be GREATLY appreciated. This has been completely frustrating and I am VERY, VERY close to a solution, it is the last piece of the puzzle that is killing me.

Thanks a million in advance.
0
iptrader
Asked:
iptrader
  • 3
  • 2
1 Solution
 
jrb1Commented:
OK, some environment variables must be set on the server:

DLC=<path to dlc>
IDLC=<path to dlc>
PROMSGS=<path to dlc>\promsgs
IPROMSGS=<path to dlc>\promsgs
PROOIBRK=<path to dlc>\bin\oibrkr32.exe
PROOIDRV=<path to dlc>\bin\oidrvr32.exe

These have to be set up as SYSTEM variables.

If that doesn't help, the problem may be with your ODBC settings.  Is your OIBroker on the same machine as the DB?

0
 
iptraderAuthor Commented:
Thanks for your input.  I added the last 2 environment variables, as I already had the others.  The page loads now, no more error!  However, the SQL string returns NOTHING.  Any pointers?

Thanks,

IPT
0
 
jrb1Commented:
Haven't seen that before...can you post a code snippet?
0
 
iptraderAuthor Commented:
Happy to.  Here is the code I am using for the sample page (just to make a damn connection and return data in a control object :) )

***********************************

<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Dim RS
Dim sSelect
%>

<html>
<head>
<link href="stylesampledb.css" rel="stylesheet" type="text/css">
<title>Sample Database Connection Application</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
 <!--#include file="CommonAspScripts/dbconnection.asp"-->
  <!--#include file="Include/header.asp"-->
  <br>

  <table border="0" align="center" cellpadding="0" cellspacing="0" id="table">
    <!--DWLayoutTable-->
     <tr>
    <td>Job:</td>
      <td> <select name="cbShipCode">
          <Option>Select</Option>
          <%
                        sSelect = "select ship-code from shipcode"
                        Set RS = Server.CreateObject("ADODB.RecordSet")
                        On Error Resume Next
                        RS.Open sSelect,AdoConnection,adOpenForwardOnly,adLockReadOnly      
                        If Err.number<>0 then
                              disposeobj
                              Response.Redirect "CommonAspScripts/ErrorPage.asp?Errnum="& err.number &"&ErrDesc=" & Err.Description
                              Err.Clear
                        End If
                        Do while Not RS.EOF
                              Response.Write "<Option>" & RS("cbShipCode") & "</option>"
                        RS.MoveNext
                        Loop
    %>
        </select></td>
       </tr>
  </table>
  <br>

<!--#include file="Include/footer.asp"-->
</body>
</html>

***********************************

Here is the code for the dbconnection.asp include file:

***********************************

<!--#include file="adovbs.inc"-->
<%
Dim AdoConnection
If Not IsObject(AdoConnection) then
      Set AdoConnection = Server.CreateObject("ADODB.Connection")
      On Error Resume Next
      AdoConnection.Open "Provider=MSDASQL.1;Persist Security Info=false;Data Source=SL402;Initial Catalog=ac"
      If Err.number<>0 then
            Response.Redirect "CommonAspScripts/ErrorPage.asp?Errnum="& err.number &"ErrDesc=" & Err.Description
            Err.Clear
      End if
End If
%>

***********************************

If I use the same EXACT code against a SQL Server 2000 database, with a different ADO connection string it works JUST FINE.  Whatever this is, it is WEIRD.

Thanks,

Nick
0
 
iptraderAuthor Commented:
Syntax error.  Never mind.  Your first piece of advice worked and now I am returning records like it's going out of style ;)

Best,

IPT
0

Featured Post

[Webinar] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

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