Thanks Razzak, We'll give it a try right now! Scott Sherer
-----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of A. Razzak Memon Sent: Wednesday, July 13, 2005 10:05 AM To: RBG7-L Mailing List 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. --- [This E-mail scanned for viruses by Declude Virus]
