<?

	$dbc = new COM("ADODB.Connection");

	$dbc->Provider = "MSDASQL";

	$dbc->Open("nwind");

	$rs = $dbc->Execute("select * from products");

	$i = 0;

	while (!$rs->EOF) {

		$i += 1;

		$fld0 = $rs->Fields(0);

		$fld1 = $rs->Fields(1);

		$fld2 = $rs->Fields(2);

		print "$fld0->value $fld1->value $fld2->value<BR>";

		$rs->MoveNext();

	}

	$rs->Close();

?>

<?

	$word=new COM("word.application") or die("Cannot start Microsoft Word"); 

	print "Loaded word version ($word->Version)"; 

	$word->visible = 1 ; 

	$word->Documents->Add(); 

	$word->Selection->Typetext("This is a test");

?>