<% Function FileLastMod(filename) dim fso, lsFile, lsPath, loFile, ldLast set fso = CreateObject("Scripting.FileSystemObject") set theFile = fso.GetFile(filename) ldLast = theFile.DateLastModified set theFile = Nothing set fso = Nothing FileLastMod = CStr(FormatDateTime(ldLast, 2)) End Function dim conn dim rs dim sql dim counter counter = 1 set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=SQLOLEDB.1;User ID=Development;password=53434;Initial Catalog=NFHdata;Data Source=SQL" set rs = Server.CreateObject("ADODB.Recordset") sql = "select distinct a.[name], bank.title as ba_banking_institution, efo.[bank_account], efo.[bank_account_closed], efo.[ba_ein_number], " & _ "corporation_type.title as ir_corporation_type, ei.[ir_sos_status], nfh_shelf_status.[title], ei.[ir_sos_status_effective_date], " & _ "ei.[ir_active], ei.[ir_date_filed], efo.[dnb_flag], es.[note], es.[nfh_status], es.[nfh_status_date], st.[transfer_out_date], es.[shelf_hold_status_date] " & _ "from tblAccount a " & _ "inner join entity_financial_options efo on a.Id = efo.entity_id " & _ "inner join entity_incorporation ei on a.Id = ei.corporation_id " & _ "inner join entity_shelf es on a.Id = es.entity_id " & _ "left join tblkStatus nfh_shelf_status on es.nfh_shelf_status = nfh_shelf_status.Id " & _ "left join tblkStatus corporation_type on a.typeid = corporation_type.Id " & _ "left join tblkStatus bank on efo.ba_banking_institution = bank.Id " & _ "left join shelf_transfer st on a.Id=st.sold_entity_id " & _ "where ir_sos_status is not null and (" & _ "ei.[ir_active] = 127 or " & _ "(ei.[ir_active] = 128 and DateDiff(day, st.transfer_out_date, getdate())<=60)) " & _ "order by ei.[ir_date_filed];" rs.Open sql, conn do while not rs.EOF 'line number response.Write("") response.Write(" ") 'name of corporation response.Write(" ") 'type response.Write(" ") 'date filed response.Write(" ") 'sos status response.Write(" ") 'ein response.Write(" ") dim dunns if rs("dnb_flag")>0 then dunns = "Yes" else dunns = "" end if 'db response.Write(" ") 'bank account dim account if rs("bank_account") > 0 then account = left(rs("ba_banking_institution"),10) else account = left("No Acct",10) end if response.Write(" ") dim status status = "" if rs("bank_account_closed") > 0 then if rs("bank_account") > 0 then status = "Closed" end if else status = "Open" end if dim nfhStatNum dim nfhStatus dim statNum nfhStatNum = rs("nfh_status") statNum = rs("ir_active") if statNum = 128 then nfhStatus = "Sold - " & rs("transfer_out_date") else if nfhStatNum = 2 then dim statusDate statusDate = rs("nfh_status_date") if datediff("d", statusDate, Date()) <= 30 then nfhStatus = "New - " & DatePart("m", rs("nfh_status_date")) & "/" & DatePart("yyyy", rs("nfh_status_date")) else nfhStatus = "" end if elseif nfhStatNum = 1 then nfhStatus = "Hold - " & DatePart("m", rs("shelf_hold_status_date")) & "/" & DatePart("yyyy", rs("shelf_hold_status_date")) 'elseif nfhStatNum = 3 then ' nfhStatus = "N/A" else nfhStatus = "" end if end if'nfh status response.Write(" ") counter = counter + 1 rs.MoveNext loop%>

No.	Name of Entity (partial name for entities protection)	Type of Entity	Date Entity was initially  filed by NFH	Secretary of State Status, when sold the status will always be current	FEIN	D & B yes means it is registered	Pre existing bank accounts may not be passed to new owners , they are for referrals only!	NFH Status shows new listing only
") response.Write(" ") response.Write(" " & counter & "") response.Write("	") response.Write(" ") response.Write(" " & left(rs("name"), 5) & "..." & "") response.Write("	") response.Write(" ") response.Write(" " & rs("ir_corporation_type") & "") response.Write("	") response.Write(" ") response.Write(" " & rs("ir_date_filed") & "") response.Write("	") response.Write(" ") response.Write(" " & rs("title") & "") response.Write("	") response.Write(" ") response.Write(" " & left(rs("ba_ein_number"), 2) & "-..." & "") response.Write("	") response.Write(" ") response.Write(" " & dunns & "") response.Write("	") response.Write(" ") response.Write(" " & account & "") response.Write("	") response.Write(" ") response.Write(" " & nfhStatus & "") response.Write("