IBO&Asp

after reading at matlus.com how to make an aspobject
i wanted to do that with ibo
{and it's really fast}
u don't need any ado-ole-odbc-bde stuff
first need to create an (h)activeX Library
      

      
then go an do an Active Server Object
of course u 'll need an dbmodule to put the database
and a query add this dbmodule to the project
      

      
and put it in uses clause of the main.pas unit
main.pas is the implementation of our object
in typelybrary have aded some methods and propretys
the most important ones and propretys
the most important ones are connect
and sqlquery

- connect have 4 parameters dbName,user,passwd,dialect
the implementation is:



procedure Tibdataset.connect(const dbName, user, passwd: WideString;
  dialect: Shortint);
var text: string;
begin
  with dm do
  begin
    db.DatabaseName := string(dbName);
    db.Username := string(user);
    db.Password := string(passwd);
    db.SQLDialect:=dialect;
    try
      db.Connect;
//      text := 'connected Ok<br>';
    except
      text := '<FONT face=verdana size=1>There was an error connecting</FONT>';
    end;

  end;
  response.Write(text);

end;



      
after that
we need some sql to eXeCute
so here it is the sqlquery method
for this to work u need to declare the sqlquery of bstring
      

      



procedure Tibdataset.sqlquery(const sqlstring: WideString);
var text: string;
begin
  with dmdm do
  begin
    qMain.Close;
    qMain.SQL.Clear;
    qMain.SQL.Add(string(sqlstring));
    try
      qMain.Open;
//      text := 'Open';
    except
      text := '<FONT face=verdana size=1>Please execute the query first</FONT>';
    end;
  end="#00FFFF">;
  response.Write(text);

end;




      
i tell u this :fieldname is declared as a propriety
and this is the function to get the field propriety
      



function Tibdataset.Get_fieldname(const fieldname: WideString):00FFFF">: OleVariant;
begin
  result := dm.qMain.FieldByName(string(fieldname)).AsVariant
end;





      
have to do the asp stuff
      




<% SET DA = SERVER.CREATEOBJECT("ibo.ibdataset")
Da.connect "p7:C:\Program Files\InterBase Corp\INTERBASE\examples\Database\employee.gdb", "SYSDBA", "masterkey",1
Da.sqlquery "select * from employee order by first_name"
Response.Write("<TABLE border=0 width=100 align=left>")
do until Da.EOF
Response.Write("<TR><TD>
<A href='./details.asp?id="&DA.FIELDNAME("emp_no")&"&sid="&SESSION.SESSIONID&"'>"
&Da.Fieldname("first_name")&" "_& Da.Fieldname("last_name")&";")
Da.MoveNext
Loop
Response.Write("</TABLE>")







    
ibo is the name of the dll and the ibdataset is the name of the class
must have the employee.gdb in the interbase dir
simmply connect at the sever u choose and select what field u really need
in the response build  the table  with a do until loop {we take rows row by row }
So u have better control ..
forgot that in the dmMain must be set the protocol to cpTCP_IP
    

    
put the asp in the wwwroot
and register the dll to work with asp engine
    

    
then go and try the asp