<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

var rs;
var xmldoc;
var xmlstream;

function getRS_onclick() {
 rs = new ActiveXObject("ADODB.Recordset");
 xmldoc = new ActiveXObject("Msxml2.DOMDocument");
    var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
    xmlhttp.Open("Get","http://ihrserver/Project1/empfang.asp?getRecordset=YES",false);
    xmlhttp.send();
    xmldoc.loadXML(xmlhttp.responseText); //hier bekommen Sie das Ergebnis des  Requests
    rs.Open(xmldoc); //... das wir nun auch gleich aus dem DOM in ein Recordset laden     

//-->
</SCRIPT>

<INPUT type="button" value="Get Recordset" id=getRS name=getRS LANGUAGE=javascript onclick="return getRS_onclick()">

<%
dim cnn
dim rsXML
Connection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=SQLSERVER"
strSQL =  "Select * from Customers"

set rs = server.CreateObject("ADODB.Recordset")

if Request.QueryString("getRecordset") = "YES" then
 rsXML.ActiveConnection = Connection
 rsXML.CursorLocation = 3 'Client Side
 rsXML.CursorType = 3 'Static Recordset
 rsXML.LockType = 4 'Batch Optimistic
 rsXML.Open sql
 rsXML.Save response, 1 ' adPersistXML
 Response.End
else
 'Hier irgendwas schlaues einbauen
 
end if

%>