Dim Conn
 Dim Cmd
 Dim Row
 Set Conn = Server.CreateObject("ADODB.Connection")
 Set Cmd  = Server.CreateObject("ADODB.Command")

 Conn.Provider = "LCPI.IBProvider.2"
 Conn.Open "data source=localhost:e:\database\Employee.gdb;ctype=win1251", "sysdba", "masterkey"


 Conn.BeginTrans

 Cmd.ActiveConnection = Conn
 Cmd.CommandText = "select full_name from employee order by emp_no"

 Set Row = Cmd.Execute

 while Not Row.Eof
   Response.Write CStr(Row(0)) & "<br>"
   Row.MoveNext
 wend

 Conn.CommitTrans