Veja o exemplo a seguir, acessando uma Base de Dados OpenBASE Local. O esquema do banco usado neste exemplo é o seguinte:
Banco EXEMPLO 1
nome: PESSOA E
NOMEP(0) U20
IDADE N3
O Script ASP é o seguinte:
<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim com
Dim Banco, Arquivo, nivel, seguranca, modo
Dim ret, Mensagem
Dim gw_nome, gw_cont, gw_ida
gw_nome="??????????"
gw_ida="***"
Banco = "C:\usr\tsgbd\tsdic\EXEMPLO"
nivel = "a"
seguranca = 1
modo = "2"
Arquivo="PESSOA"
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
gw_nome = Trim(Request.Form("in_nome"))
gw_cont = Trim(Request.Form("in_cont"))
Set com=CreateObject("OpenBase.OBcom.1")
ret=com.OAbreBancoDeDados(Banco, nivel, seguranca, modo)
ret=com.OLeRegistroPorChavePrimaria(Arquivo, gw_nome)
gw_nome=com.OPegaItem(Arquivo,"NOMEP")
gw_ida=com.OPegaItem(Arquivo,"IDADE")
ret=com.OFechaBancoDeDados(0)
Set com=Nothing
End If
%>
<HTML>
<BODY>
<h2>Demonstração OPUSWeb - ASP</h2>
<Form method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>">
Informe o Nome:
<input type="text" size=20 name="in_nome" value="<%= gw_nome %>">
<input type="submit" name="in_cont" value="Continua">
<br>
<b>Nome:<%= gw_nome%>
<br>
Idade:<%= gw_ida%>
<br>
Botão:<%= gw_cont%></b>
</form>
</body>
</html>