System Admin

strDSN = "FILEDSN=Distrib.mdb.dsn"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDSN
Set rsDistrib = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TCountry FROM CountryCombo"
rsDistrib.Open strSQL, cn  
Set objCountry = rsDistrib("TCountry")
   '=== start do
   Do Until rsDistrib.EOF	
      theCountry(indCountry) = objCountry 
      rsDistrib.MoveNext
      indCountry = indCountry+1
   Loop
   cn.close

msgbox Time()

// exceptions_try_except_Statement.cpp
// compile with: /EHsc
// Example of try-except and try-finally statements
#include "stdio.h"

void main()
{
   int* p = 0x00000000;   // pointer to NULL
   puts("hello");
   __try{
      puts("in try");
      __try{
         puts("in try");
         *p = 13;    // causes an access violation exception;
      }__finally{
         puts("in finally");
      }
   }__except(puts("in filter"), 1){
      puts("in except");
   }
   puts("world");
}