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
40
41
42
|
<% @ LANGUAGE="VBSCRIPT" EnableSessionState = False %>
<%Option Explicit
Response.Buffer = True %>
<html>
<head>
<title>dbGrid: controlar columnas y funciones</title>
<style type="text/css">
body { font-family: Arial, Helvetica, sans-serif; font-size:12px}
a { color:#BB3300; text-decoration: none}
a:hover { color: #FFFFFF; background-color: #990077}
.menu { font-size: 11px; font-family: Verdana, Arial, sans-serif}
.normal { font-size: 12px; font-family: Arial, Helvetica, sans-serif; padding-left:2px}
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='#B8C0C4' topmargin='8'>
<!--#include file="dbgrid.asp" -->
<table border="0" cellpadding="2" align="center">
<tr><td align="center" style="letter-spacing:8px"><b>Material Escolar</b><br></td></tr>
<tr><td class="menu" align="center" bgcolor="#E0E8F0">
<%
Dim oDb
Set oDb = new dbGrid
oDb.UsaDSN = true
oDb.NomDSN = "prueba"
oDb.Tabla = "Material"
oDb.GrEstilo = "normal"
oDb.GrOrden = true
oDb.GrAdd = true
oDb.GrNumRes = 12
oDb.GrWidth = 0
oDb.Colors = Array("C0C0C0","FFFADD","5588BB","000000","F8F6F0","E0F0E0","E4E0F0","99BBDD")
oDb.GrCampSel = "Codi, Descrip, Unitats, dAlta, Desti"
oDb.Activar
set oDb = nothing
%>
</td></tr></table>
</body>
</html>
|