Scantec Planning Consault

<% set rsn=server.CreateObject("adodb.recordset") rsn.Open "select * from emp order by emp_id",conn 'on error resume next %> Scantec Planning Consault

Home

About Us

Staff Information

<% counts=0 do while not rsn.EOF ' Get File Ext. 'Set fs=Server.CreateObject("Scripting.FileSystemObject") 'fileExt = fs.GetExtensionName(rsn.fields("emp_cv")) 'set fs=nothing file_extn= rsn.fields("emp_cv") fileExt=Right(file_extn,3) 'response.Write(fileExt) %> <% rsn.MoveNext counts=counts+1 end if loop %>

" class="link2"><%=rsn.fields("emp_name")%>
<%=rsn.fields("emp_desg")%>
<%=rsn.fields("emp_total_exp")%>

<%if rsn.fields("emp_cv")<>"" then%> " target="_blank" class="link2"> <% if getfileExt = "doc" then %> " border="0"> <% else %> " border="0"> <% end if%> Download CV

<%end if %>

<% if rsn.fields("emp_photo") <> "" then %>

<% else %>

<% end if %>

<% ' if (counts mod 2) =0 then rsn.MoveNext 'response.Write("checked mod"& counts mod 2) end if counts=counts+1 %> <% if not rsn.EOF then %>

<% if rsn.fields("emp_photo") <> "" then %>

<% else %>

<% end if %>

Activities

	Building
	Environmental Protection
	Food Processing
	Concrete Repairs
	Feasibility Studio
	Traffic Engineering

Our Creation

	Commercial and Residential Buildings
	Public Buildings
	Recycling Industries
	Industrial Planning