<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
ActiveWidgets Grid :: ASP Example
<%
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
%>