OFAC: Search Examples

	Office of Foreign Assets Control Specially Designated Nationals: Search Examples

<% ' Declare variables and begin script Dim Ent_Num Ent_Num = Request.QueryString("Ent_Num") ' Create Connection Object Set oConn = Server.CreateObject("ADODB.Connection") ' Open wtccc DSN oConn.Open "ofac" ' Create Recordset Object Set rs = CreateObject("ADODB.Recordset") ' Create recordset query based on provided keywords SQLText = "SELECT SDN.ent_num, SDN.SDN_Name, SDN.SDN_Type, SDN.Program, SDN.Title, SDN.Call_Sign, SDN.Vess_type, SDN.Tonnage, SDN.GRT, SDN.Vess_flag, SDN.Vess_owner, SDN.Remarks FROM SDN WHERE SDN.ent_num = " & Ent_Num Set rs = oConn.Execute(SQLText,,1) SDN_Name = rs("SDN_NAME") SDN_Type = rs("SDN_Type") SDN_Program = rs("Program") SDN_Title = rs("Title") Call_Sign = rs("Call_Sign") Vess_Type = rs("Vess_Type") Tonnage = rs("Tonnage") GRT = rs("GRT") Vess_Flag = rs("Vess_flag") Vess_Owner = rs("Vess_owner") Remarks = rs("Remarks") %>

<%=SDN_Name%>

Searching for an individual, organization or vessel:

Start by searching for the first 4-6 characters in the last name. For example, if you're looking for an individual with the last name of "martinez" and you enter "martin" as a search string, the search engine will return all names, AKA's, FKA's and websites with "martin" in any part of the name (or remarks).

Results would include: "Martin", "Martinez", "CHAMARTIN S.A." and "www.martincompass.com". You can then scan the results to see if there's any records that might be a closer match to the individual you're looking for. Click on a record in the listing to see detailed information for that SDN. The search for a vessel or organization is performed in the same way.

Searching for a website:

To search for a website, enter as an example: "www.cubanculture.com", "cubanculture.com" or "cubanculture". Any of these search strings will return records.

Frequently Asked Questions | Privacy Policy

Current Date:

<% ' Done. Now release Objects oConn.Close Set oConn = Nothing Set rs = Nothing Set rsADD = Nothing Set rsALT = Nothing %>