Razzak, In my attempts to help Scott, I installed Otterro 3.0 on my 2003 server, then applied the update to Oterro 3.1. In ODBC manager, the driver still shows as 3.0.. When I run the CheckVersion app, the version says 3.1. I am not getting a connection to my test DB using ASP.
Is my installation faulty? Mike ----- Original Message ----- From: "A. Razzak Memon" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[email protected]> Sent: Wednesday, July 13, 2005 10:05 AM Subject: [RBG7-L] - Re: Tango / Oterro / Rbase / ASP AssistanceNeeded. > At 10:08 AM 7/13/2005, Scott Sherer wrote: > >>We installed Oterro 3.1 this morning, rebooted our server and tried ASP >>again to no avail. Any suggestions on getting this to work? > > > Scott, > > Try the following example using "DSN Less Connection" method via > the latest Oterro 3.1 ODBC Driver for ASP pages. > > <%@ LANGUAGE=JSCRIPT %> > <!--#include file="adojavas.inc"--> > <script language=VBScript runat=server> > On Error Resume Next > Dim e, vnum > Session("vQuit") = 0 > ' Create a Connection object > Set Session("Connect") = Server.CreateObject("ADODB.Connection") > Session("Connect").Errors.Clear > Err.Clear > ' Connect to an R:BASE database through ODBC > ' Session("Connect").Open "RRBYW12" > ' For a connection without a predefined DSN > ' Save this string for later reuse > Session("RRBYW12CS") = "Driver=Oterro 3.1 Database Driver > (*.rb1);DBQ=C:\RBTI\RBG75\SAMPLES\RRBYW12\RRBYW12.RB1" > Session("Connect").Open Session("RRBYW12CS") > For e = 0 To Session("Connect").Errors.Count - 1 > vnum = Session("Connect").Errors(e).Number > If vnum < 0 Then > Response.Write "Sorry, the database is not available at this > time.<br>" > Response.Write "error number is:" + > Session("Connect").Errors(e).Number + "<br>" > Response.Write "error description is:" + > Session("Connect").Errors(e).Description + "<br>" > vQuit = 1 > End If > Next > </script> > <% > if (Session("vQuit") != 0) { > Response.Write("Try again at another time<br>"); > } else { > // Show real starting page > var rsADO, qstr; > %> > <html> > <head> > <title>RBASE RBYW12 Test Page</title> > </head> > <body bgColor="silver"> > <h1> > R:BASE Sample Web Page Using ASP<br> > </h1> > <form method="post" action="Sample_Select.asp"> > <h3>Choose a table: <select name="TabName" size="1"> > <% > // Display a select list with the table names > qstr = "SELECT sys_table_name from sys_tables where sys_table_type ne > 'system table' order by sys_table_name"; > Session("Connect").CommandTimeout = 120; > rsADO = Session("Connect").Execute(qstr); > while (!rsADO.EOF) { > %><option > value="<%=rsADO("sys_table_name")%>"><%=rsADO("sys_table_name")%></option><% > rsADO.MoveNext(); > } > %> > </select> > <input type="submit" name="Submit" value="See the data"></h3> > </form> > </body> > </html> > <% > } > %> > > Have Fun! > > Very Best R:egards, > > Razzak. >
