<%@ LANGUAGE="VBSCRIPT" %>
Document Title
<%
Dim objDataAccess
On Error Resume Next
Set objDataAccess=Server.CreateObject("DataAccessVBS.Scriptlet")
If Err.number <> 0 Then
Response.Write "CreateObject() failed
"
Response.Write "Did you register the scriptlet component in MTS?"
Response.End
End If
objDataAccess.SQLString="Select * from authors"
objDataAccess.ExecuteQuery
If Err.number <>0 Then
Response.Write "Error description: " & Err.description
End If
%>