<% Response.Buffer = True Dim intCatID id = Request.QueryString("id") If Len(id) >= 1 Then If Not IsNumeric(id) Then Response.End End If Else Response.End End If OpenConnection GetColor(intCatID) Set objRs = server.CreateObject ("ADODB.Recordset") sql = "SELECT * From Member_Directory WHERE Activate=1 AND directory_id ="&id objRs.Open sql,objCn,1,3 If Not objRs.eof then Logo = objRs("logo") Co_name = objRs("company_name") reg_no = objRs("register_no") address = objRs("address") state = objRs("state") postcode = objRs("postcode") telephone = objRs("telp") 'Call Split_Phone(telephone,OfficePhonePrefix,OfficePhoneSuffix) Fax = objRs("fax") 'Call Split_Phone(Fax,OfficefaxPrefix,OfficefaxSuffix) Urls = objRs("urls") Title = objRs("title") Fullname1 = objRs("fullname") Email1 = objRs("email") FullName2= objRs("fullname1") Position2 = objRs("position1") Email2 = objRs("email1") Fullname3 = objRs("fullname2") Position3 = objRs("position2") Email3 = objRs("email2") Contact3 = objRs("contact2") general_email = objRs("general_email") member_category = objRs("member_category") strEmail = objRs("general_email") dtStartActiveDate = objRs("formation_date") dtExpiryDate = objRs("incorporate_date") strSpecialization = objRs("specialization") strBusinessField = objRs("businessfield") Total_staff = objRs("total_staff") Sales = objRs("sale_turnover") Current_paid = objRs("current_paid") CoreBusiness = objRs("core_business") HardwareSupplied = objRs("hardware_supplied") SoftwareSupplied = objRs("software_supplied") ServicesProvided = objRs("services_provided") Otherinfo = objRs("other_info") end if objRs.Close If IsNull(strSpecialization) = True Then strSpecialization = "" End If If IsNull(strBusinessField) = True Then strBusinessField = "" End If If IsNull(Sales) = True Then Sales = "" End If strSpecialization_a = Split(strSpecialization, ",") strBusinessField_a = Split(strBusinessField, ",") Sales_a = Split(Sales, ",") Function GetThumbNail(fileSpec) if len(fileSpec) > 0 then 'FilePath = lcase(fileSpec) FilePath = fileSpec 'FileName = lcase(Right(fileSpec, Len(fileSpec) - InStrRev(fileSpec, "/"))) FileName = Right(fileSpec, Len(fileSpec) - InStrRev(fileSpec, "/")) 'NewFileName = "tb_" & FileName NewFileName = FileName GetThumbNail = replace(FilePath, FileName, NewFileName) else GetThumbNail = "" end if End Function %>
  <% 'Response.write(tmp_fullPath) If len(tmp_fullPath) > 0 Then Response.write createArrowPath(tmp_fullPath) end if %>
  <% = Application("Cache_TemplatePageHeader") %>
Corporate Profile
<% strDisplay = Logo strDisplaySmall1 = GetThumbNail(strDisplay) If strDisplay <> "" Then %> <% Else %> <% End If %>
<%=Co_name%> (<%=reg_no%>)
<% strAddress = address If postcode <> "" Then strAddress = strAddress & ", " & postcode End If If state <> "" Then strAddress = strAddress & ", " & state End If %> <%=strAddress%>
Tel: <%=telephone%>  Fax : <%=fax%>
Email: <%=strEmail%>
target="_blank"><%=Replace(Urls, "http://", "")%>

<% strSpecLink = "" strBFLink = "" For i=1 To Ubound(strSpecialization_a) If IsNumeric(strSpecialization_a(i)) = True Then If strSpecLink = "" Then strSpecLink = "" & GetSpecializationName(strSpecialization_a(i)) & "" Else strSpecLink = strSpecLink & " | " & "" &GetSpecializationName(strSpecialization_a(i))& "" End If End If Next For i=1 To Ubound(strBusinessField_a) If IsNumeric(strBusinessField_a(i)) = True Then If strBFLink = "" Then strBFLink = GetBusinessFieldName(strBusinessField_a(i)) Else strBFLink = strBFLink & ", " & GetBusinessFieldName(strBusinessField_a(i)) End If End If Next %>
<% if Fullname3 <> "" then %> <% else %> <% end if %> <% if Position3 <> "" then %> <% else %> <% end if %> <% if Total_staff <> "" then %> <% else %> <% end if %> <% strSTOLink = "" For i=1 To Ubound(Sales_a) If IsNumeric(Sales_a(i)) = True Then If strSTOLink = "" Then strSTOLink = GetSalesTurnOver(Sales_a(i)) Else strSTOLink = strSTOLink & ", " & GetSalesTurnOver(Sales_a(i)) End If End If Next %> <% if Sales <> "" then %> <% else %> <% end if %>
Contact of Business Enquiries :
<%=Fullname3%>
 
Designation :
<%=Position3%>
 
Total Number of Employees :
<%=Total_staff%>
 
Sales Turnover in Last Fiscal Year :
<%=strSTOLink%>
 
<% if CoreBusiness <> "" then %> <% else %> <% end if %> <% if HardwareSupplied <> "" then %> <% else %> <% end if %> <% if SoftwareSupplied <> "" then %> <% else %> <% end if %> <% if ServicesProvided <> "" then %> <% else %> <% end if %> <% if Otherinfo <> "" then %> <% else %> <% end if %>
Core Business :
<%=CoreBusiness%>
 
Hardware Supplied :
<%=HardwareSupplied%>
 
Software Supplied :
<%=SoftwareSupplied%>
 
Services Provided :
<%=ServicesProvided%>
 
Others :
<%=Otherinfo%>
 
 
Nature of Business: <%=strSpecLink%>
 
Industry / Verticals Served: <%=strBFLink%>
Go Back
<% Function GetSpecializationName(strSpecializationID) GetSpecializationName = "" strSql = "Select name From Specialization Where specializationID = "& strSpecializationID objRs.Open strSql,objCn,1,3 If Not objRs.Eof Then GetSpecializationName = objRs("name") End If objRs.Close End Function Function GetBusinessFieldName(strBusinessFieldID) GetBusinessFieldName = "" strSql = "Select name From businessfield Where businessfieldID = "& strBusinessFieldID objRs.Open strSql,objCn,1,3 If Not objRs.Eof Then GetBusinessFieldName = objRs("name") End If objRs.Close End Function Function GetSalesTurnover(strSaleTurnoverID) GetSalesTurnover = "" strSql = "Select name From SaleTurnover Where sale_turnoverID = "& strSaleTurnoverID objRs.Open strSql,objCn,1,3 If Not objRs.Eof Then GetSalesTurnover = objRs("name") End If objRs.Close End Function %>