<% dim dbObject, projRS, projSQL, isProj call openDBConn(dbObject) set projRS = server.createObject("ADODB.Recordset") projSQL = "SELECT * FROM tekProjects WHERE isCurrent = 1 AND isForeign = 1" projRS.Open projSQL, dbObject, adOpenStatic, adLockReadOnly if (projRS.recordCount > 0) then isProj = true else isProj = false end if %> TeKONTROL - Current Foreign Projects
 
 

 

TKI performs these projects under US Military FMS contracts.

<% if (isProj) then %> <% do while not projRS.EOF %> <% if (projRS("projectDetails") <> "") then %> <% else %> <% end if projRS.moveNext loop %>
<%=projRS("projectTitle")%> <%=projRS("projectLocation")%>
<%=projRS("projectResponsibility")%>
    <% detailsArray = split(projRS("projectDetails"), chr(13)) for i = 0 to ubound(detailsArray) %>
  • <%=detailsArray(i)%>
    • <% next %>

<% else %> Sorry, but there are no foreign projects to show at this time. <% end if %>