<% @ LANGUAGE="VBSCRIPT" EnableSessionState = False %>
<%Option Explicit
Response.Buffer = True %>
dbGrid: administrador básico
<%
Dim oDb
Set oDb = new dbGrid
oDb.Tabla = Request("Tabla")
oDb.UsaDSN = true
oDb.NomDSN = "dns_prueba"
oDb.GrEstilo = "normal"
oDb.GrAdd = true
oDb.GrDel = true
oDb.GrEdit = true
oDb.GrOrden = true
oDb.VerTipos = true
oDb.GrWidth = 720
Response.Write "DSN : " & oDb.NomDSN & "
"
if oDb.Tabla <> "" then Response.Write "Tabla : "& oDb.Tabla & "
"
oDb.Activar
set oDb = nothing
%>