1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
<% @ LANGUAGE="VBSCRIPT" EnableSessionState = False %>
<%Option Explicit
Response.Buffer = True %>
<html>
<head>
<title>dbGrid: administrador básico</title>
<style type="text/css">
body { font-family: Verdana, Arial, Helvetica, sans-serif; font-size:12px}
a { color:0044AA; text-decoration: none}
a:hover { color: #BB0000; text-decoration: underline}
.normal { font-size: 11px; font-family: Verdana, Arial, Helvetica, sans-serif}
input, textarea, select { font-size: 12px; font-family: Arial, Helvetica, sans-serif;
border-style: outset; border-width: 1px; border-color: #FFFFEE}
textarea{ overflow:auto}
</style>
</head>
<body bgcolor='#F4F4F0' topmargin='8'>
<!--#include file="dbgrid.asp" -->
<%
Dim oDb
Set oDb = new dbGrid
oDb.Tabla = Request("Tabla")
oDb.UsaDSN = true
oDb.NomDSN = "prueba"
oDb.GrEstilo = "normal"
oDb.GrAdd = true
oDb.GrDel = true
oDb.GrEdit = true
oDb.GrOrden = true
oDb.VerTipos = true
oDb.GrWidth = 720
Response.Write "<b><a href='" & Request.ServerVariables("SCRIPT_NAME") & "'>DSN</a> : " & oDb.NomDSN & "</b><br>"
if oDb.Tabla <> "" then Response.Write "Tabla : <b>"& oDb.Tabla & "</b><br><br>"
oDb.Activar
set oDb = nothing
%>
</body>
</html>
|