BDG Scenario 3

viewData.asp

<%@ Language=VBScript EnableSessionState= False Transaction=Required %>
<% Option Explicit %>
<% ' to force authentication for connection to SQL Server
   If Request.ServerVariables("AUTH_USER") = "" Then
      Response.Status = "401 Access Denied"
      Response.End
   End If
%>
<% Response.Buffer = True
   Response.ContentType = "text/xml" %>
<?xml version="1.0" encoding="UTF-8" ?>
<% Dim objLitware 
   Set objLitware = Server.CreateObject("Litware.SQLXML")
   objLitware.ViewRecords Request,Response,Server,Application("Eval_ConnectionString")
   Set objLitware  = Nothing
%>