Making a Z39.50 Request via COM



Dim lobj_Z3950 

Dim lstring

Set lobj_Z3950 =createObject("MARCEngine5.Query")

lobj_Z3950.Database = "LCDB_MARC8"
lobj_Z3950.Host = "lx2.loc.gov"
lobj_Z3950.Port = 210
lobj_Z3950.Syntax = "MARC21"
lobj_Z3950.Start = 0
lobj_Z3950.Limit = 1


lstring = lobj_Z3950.Z3950Search("@attr 1=4 " + chr(34) + "building digital libraries" + chr(34), -1)
Set lobj_Z3950 = Nothing


msgbox(lstring)