<% ' if False then ' Set ccLib = Server.CreateObject("ccWeb3.MainClass") ' end if ' Dim PageString Dim PageBackGroundColor Dim PageMenuHeadline Dim PageTitle Dim AddedInformationString Dim MetaKeywords Dim KeywordsString Dim Description ' PageTitle = "Quadrem, The Global eMarketplace" PageString = ccLib.getContentPage("Trading Community", "Page Content") ' if ucase(ccLib.MemberLanguage) = "ANY" then ' PageMenuHeadline = ccLib.EncodeContent( ccLib.GetContentPageField( "MenuHeadline" ), ccLib.MemberID,,FALSE,,True,True,,True ) ' else ' PageMenuHeadline = ccLib.EncodeContent( ccLib.GetContentPageField( "MenuHeadline" ), ccLib.MemberID,,True,,True,True,,True ) ' end if ' MetaKeywords = ccLib.GetContentPageField( "MetaKeywords" ) ' Description = Replace(ccLib.ReadVirtualFile(ccLib.GetContentPageField("BriefFileName")), "", "") ' If Description = "" Then Description = ccLib.getSiteProperty("PageDescription", "Quadrem provides e-business solutions that connect Buyers and Suppliers to maximise supply chain efficiencies.") End If ' if PageMenuHeadline <> "" then ' PageTitle = PageTitle & " - " & PageMenuHeadline ' end if ' PageBackGroundColor = ccLib.GetContentPageField( "BackGroundColor" ) ' if PageBackGroundColor = "" then ' PageBackGroundColor = "#666666" ' end if ' if MetaKeywords <> "" then ' KeywordsString = "" ' end if ' AddedInformationString = ccLib.EncodeContent( ccLib.ReadVirtualFile( ccLib.GetContentPageField( "AddedInfoCopyFileName" ) ), ccLib.MemberID,,False,,True,True,,True ) ' %> <% ccLib.writestream (PageString) ccLib.WriteStream( getAlphaList() ) ccLib.writeStream(getNameSearchForm()) ccLib.writeStream(getAdvSearchForm()) ccLib.writeStream(ccLib.getContentPage("Trading Community Footer", "Page Content")) ccLib.writeStream(getTPSearchResults()) %> [0-9] [a] [b] [c] [d] [e] [f] [g][h][i][j][k][l][m][n][o][p][q][r][s][t][u][v][w][x][y][z]

Search By Type

Search By Country

Search Alphabetically
	Begin Search