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
|
<% @ LANGUAGE="VBSCRIPT" EnableSessionState = False %>
<%Option Explicit
Response.Buffer = True %>
<html>
<head>
<title>dbGrid: presentar información</title>
<style type="text/css">
body { font-family: Arial, sans-serif; font-size:14px}
a { color:FFDD99; text-decoration: none}
a:hover { color: #FFFFFF; background-color: #CC0000; text-decoration: none}
.normal { font-size: 12px; font-family: Arial, sans-serif; padding: 2px; padding-left: 4px}
input, select { font-size: 11px; font-family: Verdana, Arial, sans-serif; background-color: #E8C080}
</style>
</head>
<body bgcolor='#333333' text='#EEEEEE' topmargin='8'>
<!--#include file="dbgrid.asp" -->
<%
Dim oDb
Set oDb = new dbGrid
oDb.UsaDSN = true
oDb.NomDSN = "prueba"
oDb.GrTbl = true
oDb.GrRes = true
oDb.GrBusca = true
oDb.GrOrden = true
oDb.GrEstilo = "normal"
oDb.Colors = Array("808890","FFFFFF","707055","FFFFFF","505054","446655","554466","885566")
oDb.Activar
set oDb = nothing
%>
</body>
</html>
|