Hallo, IntraWeb!
<script language="VBScript">
<!--
Set objNetwork = CreateObject("WScript.Network")
pcname=objNetwork.ComputerName
wer=objNetwork.UserName
var source = '<OBJECT id=MSODSC tabIndex=-1 classid=CLSID:0002E553-0000-0000-C000-000000000046>'+
'<PARAM NAME="XMLData" VALUE='<xml xmlns:a="urn:schemas-microsoft-com:office:access"> '+
'<a:DataSourceControl> <a:OWCVersion>10.0.0.6619 </a:OWCVersion> '+
'...... Catalog=VIS;Data Source=' + wer + '&\SQL;Use Procedure ....... '+
'...... ID=' + wer + ';Use Encryption for Data=False; ....... '+
' ..... '+
'</a:DataSourceControl> </xml>'></OBJECT>';
document-write(source);
//-->
</script>
innerhalb des textes, der eingefügt werden soll, müssen alle ' maskiert werden: '
freundl. Grüsse aus Berlin, Raik