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.
