oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

asset manager initial check in

Browse source
This commit is contained in:
JT Smith 2004-12-17 05:38:46 +00:00
parent 4bc4974ecc
commit f7dd3b0577
320 changed files with 15398 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

37
www/extras/assetManager/ActiveWidgets/examples/asp/basic.asp Executable file
View file

@ -0,0 +1,37 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<title>ActiveWidgets Grid :: ASP Example</title>
<style> body, html {margin:0px; padding: 0px; overflow: hidden;font: menu;border: none;} </style>
<!-- ActiveWidgets stylesheet and scripts -->
<link href="../../runtime/styles/xp/grid.css" rel="stylesheet" type="text/css" ></link>
<script src="../../runtime/lib/grid.js"></script>
<!-- ActiveWidgets ASP functions -->
<!-- #INCLUDE FILE="activewidgets.asp" -->
</head>
<body>
<%
Dim oConnection
Dim oRecordset
' Create ADO Connection
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
' Execute a SQL query
Set oRecordset = oConnection.Execute("SELECT * FROM authors")
' Write grid to the page
Response.write(activewidgets_grid("obj", oRecordset))
' Close recordset and connection
oRecordset.close
oConnection.close
%>
</body>
</html>