<%@LANGUAGE="VBSCRIPT"%><% PageID = 2 %><%set RegionList = Server.CreateObject("ADODB.Recordset")RegionList.ActiveConnection = MM_cvpinvestor_STRINGRegionList.Source = "SELECT * FROM RegionListQuery"RegionList.CursorType = 0RegionList.CursorLocation = 2RegionList.LockType = 3RegionList.Open()RegionList_numRows = 0%><%Dim Provinces__MMColParamProvinces__MMColParam = "0"if (Request("MM_EmptyValue") <> "") then Provinces__MMColParam = Request("MM_EmptyValue")%><%set Provinces = Server.CreateObject("ADODB.Recordset")Provinces.ActiveConnection = MM_cvpinvestor_STRINGProvinces.Source = "SELECT * FROM SupProvince WHERE Disable = " + Replace(Provinces__MMColParam, "'", "''") + " ORDER BY SortOrder ASC"Provinces.CursorType = 0Provinces.CursorLocation = 2Provinces.LockType = 3Provinces.Open()Provinces_numRows = 0%><%Dim Industry__MMColParamIndustry__MMColParam = "0"if (Request("MM_EmptyValue") <> "") then Industry__MMColParam = Request("MM_EmptyValue")%><%set Industry = Server.CreateObject("ADODB.Recordset")Industry.ActiveConnection = MM_cvpinvestor_STRINGIndustry.Source = "SELECT * FROM SupIndustry WHERE Disable = " + Replace(Industry__MMColParam, "'", "''") + " ORDER BY SortOrder ASC"Industry.CursorType = 0Industry.CursorLocation = 2Industry.LockType = 3Industry.Open()Industry_numRows = 0%><%Dim BizProfile__MMColParamBizProfile__MMColParam = "0"if (Request("MM_EmptyValue") <> "") then BizProfile__MMColParam = Request("MM_EmptyValue")%><%set BizProfile = Server.CreateObject("ADODB.Recordset")BizProfile.ActiveConnection = MM_cvpinvestor_STRINGBizProfile.Source = "SELECT * FROM SupBusinessProfile WHERE Disable = " + Replace(BizProfile__MMColParam, "'", "''") + " ORDER BY SortOrder ASC"BizProfile.CursorType = 0BizProfile.CursorLocation = 2BizProfile.LockType = 3BizProfile.Open()BizProfile_numRows = 0%><%function WA_VBreplace(thetext) if isNull(thetext) then thetext = "" newstring = Replace(thetext,"'","|WA|") newstring = Replace(newstring,"\","\\") WA_VBreplace = newstringend functionif (NOT RegionList.EOF) THEN Response.Write(""&chr(10)) Response.Write("var WAJA = new Array();"&chr(10)) oldmainid = 0 newmainid = RegionList.Fields("ProvinceID").value n = 0 while (NOT RegionList.EOF) if (oldmainid <> newmainid) THEN Response.Write("WAJA[" & n & "] = new Array();"&chr(10)) Response.Write("WAJA[" & n & "][0] = '" & WA_VBreplace(newmainid) & "';"&chr(10)) m = 1 END IF Response.Write("WAJA[" & n & "][" & m & "] = new Array();"&chr(10)) Response.Write("WAJA[" & n & "][" & m & "][0] = " & "'" & WA_VBreplace(RegionList.Fields("RegionID").value) & "'" & ";" &chr(10)) Response.Write("WAJA[" & n & "][" & m & "][1] = " & "'" & WA_VBreplace(RegionList.Fields("RegionName").value) & "'" & ";" &chr(10)) m=m+1 if (oldmainid = 0) THEN oldmainid = newmainid END IF oldmainid = newmainid RegionList.MoveNext() if (NOT RegionList.EOF) THEN newmainid = RegionList.Fields("ProvinceID").value END IF if (oldmainid <> newmainid) THEN n=n+1 END IF WEND Response.Write("var RegionList_WAJA = WAJA;"&chr(10)) Response.Write("WAJA = null;"&chr(10)) Response.Write(""&chr(10))END IFif (NOT RegionList.BOF) THEN RegionList.MoveFirst()END IF%> Campbell Valuation Partners Limited
Veracap Investor Database ™
If, following the search process, a Fundseeker asks Veracap Corporate Finance Limited to contact potential Investors, the Fundseeker will be asked to submit a business plan to be reviewed by Veracap.
