home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _5db3c5544b5e8bbe99c7eff13ca3b4e0 < prev    next >
Text File  |  2000-03-15  |  380b  |  18 lines
  1. <Job ID="Test">
  2. <script language=PerlScript runat=server>
  3.     $conn=$WScript->CreateObject('ADODB.Connection');
  4.     $conn->Open(<<EOF);
  5.     Provider=SQLOLEDB;
  6.     User ID=sa;
  7.     Catalog=Northwind;
  8. EOF
  9.  
  10.     if($conn->{State} == 1) {
  11.     $WScript->Echo("Connection Successful!")
  12.     }
  13.     else {
  14.     $WScript->Echo("Connection Failed ...");
  15.     }
  16.  
  17. </script>
  18. </Job>