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
%>