Compilation Error


C:\Windows\SysWOW64\inetsrv> "C:\Windows\Microsoft.NET\Framework\v2.0.50727\vbc.exe" /t:library /utf8output /R:"C:\Windows\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3a\System.Web.Mobile.dll" /R:"C:\Windows\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" /R:"C:\Windows\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.ServiceModel.Web\3.5.0.0__31bf3856ad364e35\System.ServiceModel.Web.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Runtime.Serialization\3.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll" /R:"C:\Windows\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.Web.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.IdentityModel\3.0.0.0__b77a5c561934e089\System.IdentityModel.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.WorkflowServices\3.5.0.0__31bf3856ad364e35\System.WorkflowServices.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.ServiceModel\3.0.0.0__b77a5c561934e089\System.ServiceModel.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50a3a\System.Web.Services.dll" /R:"C:\Windows\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" /R:"C:\Windows\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll" /out:"G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.dll" /D:DEBUG=1 /debug+ /win32resource:"G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\n4zjjk0w.res" /define:_MYTYPE=\"Web\" /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Specialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.Web,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Profile,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,System.Web.UI.HtmlControls  "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.33.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.30.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.31.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.32.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.1.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.12.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.13.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.10.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.11.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.16.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.17.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.14.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.15.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.0.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.18.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.19.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.3.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.2.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.5.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.22.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.23.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.20.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.21.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.26.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.27.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.24.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.25.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.6.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.28.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.29.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.4.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.9.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.7.vb" "G:\PleskVhosts\datalaya.co.uk\temp\root\460892c3\d6f1ae8f\App_Web_n4zjjk0w.8.vb"


Microsoft (R) Visual Basic Compiler version 8.0.50727.9064
for Microsoft (R) .NET Framework version 2.0.50727.9066
Copyright (c) Microsoft Corporation.  All rights reserved.

G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(429) : error BC30451: Name 'r2' is not declared.

        For r2 = 1 To 2
            ~~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(446) : error BC30451: Name 'dirL' is not declared.

        For dirL = find_isearch To 1 Step -1
            ~~~~                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(447) : error BC30451: Name 'dirL' is not declared.

            If Mid(result, dirL, Len(findLeft)) = findLeft And foundit = 0 Then
                           ~~~~                                                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(448) : error BC30451: Name 'dirL' is not declared.

            result = Mid(result, dirL, Len(result))
                                 ~~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(523) : error BC30451: Name 'uuu' is not declared.

                For uuu = docIdEn To 1 Step -1
                    ~~~                       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(524) : error BC30451: Name 'uuu' is not declared.

                    If Mid(result, uuu, 1) = "{" And gotit = 0 Then
                                   ~~~                             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(525) : error BC30451: Name 'uuu' is not declared.

                    result = Mid(result, uuu, Len(result))
                                         ~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(621) : error BC30451: Name 'p' is not declared.

For p = 1 To 32
    ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPI.aspx(622) : error BC30451: Name 'p' is not declared.

result = Replace(result, Chr(p), "")
                             ~      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(411) : error BC30451: Name 'r2' is not declared.

        For r2 = 1 To 2
            ~~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(428) : error BC30451: Name 'dirL' is not declared.

        For dirL = find_isearch To 1 Step -1
            ~~~~                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(429) : error BC30451: Name 'dirL' is not declared.

            If Mid(result, dirL, Len(findLeft)) = findLeft And foundit = 0 Then
                           ~~~~                                                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(430) : error BC30451: Name 'dirL' is not declared.

            result = Mid(result, dirL, Len(result))
                                 ~~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(537) : error BC30451: Name 'uuu' is not declared.

                For uuu = docIdEn To 1 Step -1
                    ~~~                       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(538) : error BC30451: Name 'uuu' is not declared.

                    If Mid(result, uuu, 1) = "{" And gotit = 0 Then
                                   ~~~                             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(539) : error BC30451: Name 'uuu' is not declared.

                    result = Mid(result, uuu, Len(result))
                                         ~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(636) : error BC30451: Name 'p' is not declared.

For p = 1 To 32
    ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx(637) : error BC30451: Name 'p' is not declared.

result = Replace(result, Chr(p), "")
                             ~      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(7) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim u
    ~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(11) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

 dim loadit
     ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(20) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function rest7_convert(thisURL As String)
                ~~~~~~~~~~~~~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(48) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim url, oHttp, result
      ~~~               
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(48) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim url, oHttp, result
           ~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(48) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim url, oHttp, result
                  ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(70) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function ShortenURL(thisURL As String)
                ~~~~~~~~~~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(71) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim result, oHttp, newURL
    ~~~~~~               
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(71) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim result, oHttp, newURL
            ~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(71) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim result, oHttp, newURL
                   ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(88) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function ShortenURL2(thisAddr As String)
                ~~~~~~~~~~~                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(90) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim url, oHttp, result, i
    ~~~                  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(90) : warning BC42024: Unused local variable: 'oHttp'.

Dim url, oHttp, result, i
         ~~~~~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(90) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim url, oHttp, result, i
         ~~~~~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(90) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim url, oHttp, result, i
                ~~~~~~   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(90) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim url, oHttp, result, i
                        ~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(109) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function CallURL(thisURL as string)
                ~~~~~~~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(110) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim oHttp, result
      ~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(110) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim oHttp, result
             ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\convert.aspx(119) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function QuikEncode (thisURL As String)
                ~~~~~~~~~~                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(6) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim pCode
    ~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(8) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim gw
    ~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(10) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim ISIN
      ~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(13) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim loadRest
      ~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
        ~~~~~~~~                                                                                       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                  ~~~~~~~~~                                                                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                             ~~                                                                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                 ~~~~                                                                  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                       ~~~~~~~                                                         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                                ~~~~~                                                  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                                       ~~~~~~~~                                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                                                 ~~~~~~~~~                             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                                                            ~~~~~~~~~~~                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                                                                         ~~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(16) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

    dim FMprefix, FolderLoc, fn, getW, StartOf, EndOf, findLeft, findRight, CleanseThis, Prefix, Suffix
                                                                                                 ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(36) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim grabIt
    ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(48) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

  Public Function restDb_scrapefaster(FMprefix As String, GetWhat As String)
                  ~~~~~~~~~~~~~~~~~~~                                       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(51) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim apiKey, url, oHttp, result
      ~~~~~~                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(51) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim apiKey, url, oHttp, result
              ~~~               
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(51) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim apiKey, url, oHttp, result
                   ~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(51) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim apiKey, url, oHttp, result
                          ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(67) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim b, p
    ~   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(67) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim b, p
       ~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(71) : warning BC42104: Variable 'b' is used before it has been assigned a value. A null reference exception could result at runtime.

b = b + 1
    ~    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(104) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function restDb_readOutput(result As String, getWhat As String)
                ~~~~~~~~~~~~~~~~~                                     
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(106) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim s, test1
      ~       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(106) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim s, test1
         ~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(134) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function getData(ISIN As String, FM As String, FolderLoc As String, FileN As String, getWhat As String, SO As String, EO As String, FL As String, FR As String, CleanMe As String, Prefix As String, Suffix As String)
                ~~~~~~~                                                                                                                                                                                                      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(135) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim createFileName
    ~~~~~~~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
    ~~~~~                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
           ~~~~~~                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
                   ~                 
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
                      ~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
                        ~            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
                           ~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
                              ~      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(151) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim oHttp, result, s, e,f, r, c, isIt
                                 ~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(242) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function DateConverter(ConvertThis As String)
                ~~~~~~~~~~~~~                       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(243) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim result
    ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(270) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim st, th, rd, nd, p
    ~~               
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(270) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim st, th, rd, nd, p
        ~~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(270) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim st, th, rd, nd, p
            ~~       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(270) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim st, th, rd, nd, p
                ~~   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(270) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim st, th, rd, nd, p
                    ~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(281) : warning BC42104: Variable 'result' is used before it has been assigned a value. A null reference exception could result at runtime.

    result = Replace(result, Chr(p), "")
                     ~~~~~~             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(300) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim Dash_1, Dash_2, whereDash, Dash_3
    ~~~~~~                           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(300) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim Dash_1, Dash_2, whereDash, Dash_3
            ~~~~~~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(300) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim Dash_1, Dash_2, whereDash, Dash_3
                    ~~~~~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(300) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim Dash_1, Dash_2, whereDash, Dash_3
                               ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(383) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim p1,p2,p3
    ~~      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(383) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim p1,p2,p3
       ~~   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\datasauceGrab.aspx(383) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim p1,p2,p3
          ~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\dateTest.aspx(7) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim u
    ~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\dateTest.aspx(20) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function Date10Digit(thisDate As String)
                ~~~~~~~~~~~                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\dateTest.aspx(50) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Public Function toUnix(dt) As Long
                       ~~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(7) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim loadit
    ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(17) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function rtParsed_extract_version2()
                ~~~~~~~~~~~~~~~~~~~~~~~~~  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(20) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim shAPI
    ~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(23) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim result, i, ii, ms_a
    ~~~~~~             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(23) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim result, i, ii, ms_a
            ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(23) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim result, i, ii, ms_a
               ~~      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(23) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim result, i, ii, ms_a
                   ~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(29) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim ISINs(), ms()
    ~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(29) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim ISINs(), ms()
             ~~  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(53) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim rtPrices, rtResult
    ~~~~~~~~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(53) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim rtPrices, rtResult
              ~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(59) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim u, fi
    ~    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(59) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim u, fi
       ~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(61) : warning BC42104: Variable 'ms' is used before it has been assigned a value. A null reference exception could result at runtime.

For u = 1 To UBound(ms)
                    ~~ 
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(63) : warning BC42104: Variable 'ISINs' is used before it has been assigned a value. A null reference exception could result at runtime.

If ms(u) <> "" And ISINs(u) <> "" Then
                   ~~~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(86) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function rtParse(thisResult As String, thisField As String)
                ~~~~~~~                                           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(89) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

Dim x
    ~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(115) : warning BC42021: Function without an 'As' clause; return type of Object assumed.

Public Function CallURL(thisURL as string)
                ~~~~~~~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(116) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim oHttp, result
      ~~~~~        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\gearHostParse.aspx(116) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

  dim oHttp, result
             ~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(363) : error BC30451: Name 'r2' is not declared.

        For r2 = 1 To 2
            ~~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(380) : error BC30451: Name 'dirL' is not declared.

        For dirL = find_isearch To 1 Step -1
            ~~~~                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(381) : error BC30451: Name 'dirL' is not declared.

            If Mid(result, dirL, Len(findLeft)) = findLeft And foundit = 0 Then
                           ~~~~                                                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(382) : error BC30451: Name 'dirL' is not declared.

            result = Mid(result, dirL, Len(result))
                                 ~~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(422) : error BC30451: Name 'uuu' is not declared.

                For uuu = docIdEn To 1 Step -1
                    ~~~                       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(423) : error BC30451: Name 'uuu' is not declared.

                    If Mid(result, uuu, 1) = "{" And gotit = 0 Then
                                   ~~~                             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(424) : error BC30451: Name 'uuu' is not declared.

                    result = Mid(result, uuu, Len(result))
                                         ~~~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(520) : error BC30451: Name 'p' is not declared.

For p = 1 To 32
    ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\get.aspx(521) : error BC30451: Name 'p' is not declared.

result = Replace(result, Chr(p), "")
                             ~      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\iSharesCURL.aspx(4) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

public FMDb_api_lastResult
       ~~~~~~~~~~~~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\iSharesCURL.aspx(5) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

public FMDb_api_lastURL 
       ~~~~~~~~~~~~~~~~ 
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\iSharesCURL.aspx(9) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim popLink1
    ~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\iSharesCURL.aspx(14) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim popLink2
    ~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\iSharesCURL.aspx(18) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim popLink3
    ~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\iSharesCURL.aspx(23) : warning BC42020: Variable declaration without an 'As' clause; type of Object assumed.

dim fileName
    ~~~~~~~~
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(49) : error BC30451: Name 'p' is not declared.

For p = 1 To Len(result)
    ~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(52) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 1) = "/" And Mid(result, p + 2, 1) = "/" And firstDate = "" Then
                   ~                                                                  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(52) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 1) = "/" And Mid(result, p + 2, 1) = "/" And firstDate = "" Then
                                               ~                                      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(53) : error BC30451: Name 'p' is not declared.

    firstDate = Mid(result, p - 2, 10)
                            ~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(72) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 12) = LCase(verifyISIN) Then
                   ~                              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(79) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 15) = "factsheet as at" Then
                   ~                              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(81) : error BC30451: Name 'p' is not declared.

    asat = Mid(result, p + 16, 200)
                       ~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(89) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 8) = Chr(34) & "author" & Chr(34) Then
                   ~                                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(90) : error BC30451: Name 'p' is not declared.

    Author = Mid(result, p + 9, 200)
                         ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(97) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 14) = "historic yield" And hYield = "" And InStr(Mid(result, p, 100), "%") > 0 Then
                   ~                                                                                     
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(97) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 14) = "historic yield" And hYield = "" And InStr(Mid(result, p, 100), "%") > 0 Then
                                                                                   ~                     
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(99) : error BC30451: Name 'p' is not declared.

    hYield = Mid(result, p + 15, 200)
                         ~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(116) : error BC30451: Name 'p' is not declared.

        If Mid(result, p, 16) = "historical yield" And hYield = "" And InStr(Mid(result, p + 16, 100), "%") > 0 Then
                       ~                                                                                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(116) : error BC30451: Name 'p' is not declared.

        If Mid(result, p, 16) = "historical yield" And hYield = "" And InStr(Mid(result, p + 16, 100), "%") > 0 Then
                                                                                         ~                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(118) : error BC30451: Name 'p' is not declared.

    hYield = Mid(result, p + 16, 200)
                         ~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(135) : error BC30451: Name 'p' is not declared.

       If Mid(result, p, 18) = "distribution yield" And dYield = "" And InStr(Mid(result, p + 19, 100), "%") > 0 Then
                      ~                                                                                              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(135) : error BC30451: Name 'p' is not declared.

       If Mid(result, p, 18) = "distribution yield" And dYield = "" And InStr(Mid(result, p + 19, 100), "%") > 0 Then
                                                                                          ~                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(137) : error BC30451: Name 'p' is not declared.

    dYield = Mid(result, p + 18, 200)
                         ~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(153) : error BC30451: Name 'p' is not declared.

       If Mid(result, p, 16) = "underlying yield" And uYield = "" And InStr(Mid(result, p + 16, 100), "%") > 0 Then
                      ~                                                                                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(153) : error BC30451: Name 'p' is not declared.

       If Mid(result, p, 16) = "underlying yield" And uYield = "" And InStr(Mid(result, p + 16, 100), "%") > 0 Then
                                                                                        ~                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(155) : error BC30451: Name 'p' is not declared.

    uYield = Mid(result, p + 16, 200)
                         ~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(174) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 4) = "srri" Then
                   ~                  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(176) : error BC30451: Name 'numList' is not declared.

        For numList = 1 To 125
            ~~~~~~~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(177) : error BC30451: Name 'p' is not declared.

            If Mid(result, p + numList, 1) >= 1 And Mid(result, p + numList, 1) <= 7 And gotSRRI = 0 Then
                           ~                                                                             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(177) : error BC30451: Name 'numList' is not declared.

            If Mid(result, p + numList, 1) >= 1 And Mid(result, p + numList, 1) <= 7 And gotSRRI = 0 Then
                               ~~~~~~~                                                                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(177) : error BC30451: Name 'p' is not declared.

            If Mid(result, p + numList, 1) >= 1 And Mid(result, p + numList, 1) <= 7 And gotSRRI = 0 Then
                                                                ~                                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(177) : error BC30451: Name 'numList' is not declared.

            If Mid(result, p + numList, 1) >= 1 And Mid(result, p + numList, 1) <= 7 And gotSRRI = 0 Then
                                                                    ~~~~~~~                              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(179) : error BC30451: Name 'p' is not declared.

            srri = Mid(result, p + numList, 1)
                               ~              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(179) : error BC30451: Name 'numList' is not declared.

            srri = Mid(result, p + numList, 1)
                                   ~~~~~~~    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(185) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 23) = "risk and reward profile" Or Mid(result, p, 21) = "risk & reward profile" Then
                   ~                                                                                      
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(185) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 23) = "risk and reward profile" Or Mid(result, p, 21) = "risk & reward profile" Then
                                                                     ~                                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(186) : error BC30451: Name 'p' is not declared.

    If InStr(Mid(result, p, 250), "1 2 3 4 5 6 7") > 0 Then
                         ~                                 
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(192) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 5) = " isa " Then
                   ~                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(194) : error BC30451: Name 'numList' is not declared.

        For numList = 1 To 125
            ~~~~~~~           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(195) : error BC30451: Name 'p' is not declared.

            If Mid(result, p + numList, 3) = "yes" And gotISA = 0 Then
                           ~                                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(195) : error BC30451: Name 'numList' is not declared.

            If Mid(result, p + numList, 3) = "yes" And gotISA = 0 Then
                               ~~~~~~~                                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(200) : error BC30451: Name 'p' is not declared.

            If Mid(result, p + numList, 2) = "no" And gotISA = 0 Then
                           ~                                         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(200) : error BC30451: Name 'numList' is not declared.

            If Mid(result, p + numList, 2) = "no" And gotISA = 0 Then
                               ~~~~~~~                               
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(212) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 2) = "gb" Or Mid(result, p, 2) = "ie" Or Mid(result, p, 2) = "lu" Then
                   ~                                                                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(212) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 2) = "gb" Or Mid(result, p, 2) = "ie" Or Mid(result, p, 2) = "lu" Then
                                               ~                                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(212) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 2) = "gb" Or Mid(result, p, 2) = "ie" Or Mid(result, p, 2) = "lu" Then
                                                                           ~                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(214) : error BC30451: Name 'p' is not declared.

    testISIN = Mid(result, p, 12)
                           ~     
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(231) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 3) = " ln" Or Mid(result, p, 3) = ":ln" Or Mid(result, p, 3) = ".ln" Then
                   ~                                                                           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(231) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 3) = " ln" Or Mid(result, p, 3) = ":ln" Or Mid(result, p, 3) = ".ln" Then
                                                ~                                              
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(231) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 3) = " ln" Or Mid(result, p, 3) = ":ln" Or Mid(result, p, 3) = ".ln" Then
                                                                             ~                 
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(233) : error BC30451: Name 'p' is not declared.

    testBB = Mid(result, p - 7, 10)
                         ~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(247) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 10) = "bloomberg " And Mid(result, p + 17, 1) = " " Then
                   ~                                                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(247) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 10) = "bloomberg " And Mid(result, p + 17, 1) = " " Then
                                                         ~                    
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(248) : error BC30451: Name 'p' is not declared.

    maybeBB = Mid(result, p + 10, 7)
                          ~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(256) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 2) = " @" Then
                   ~                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(257) : error BC30451: Name 'p' is not declared.

    twit = Mid(result, p + 1, 35)
                       ~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(270) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 29) = "number of allocations in fund" Or Mid(result, p, 27) = "number of positions in fund" Or Mid(result, p, 18) = "number of holdings" Or Mid(result, p, 19) = "number of companies" Or Mid(result, p, 17) = "number of issuers" Or Mid(result, p, 20) = "number of properties" Then
                   ~                                                                                                                                                                                                                                                                                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(270) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 29) = "number of allocations in fund" Or Mid(result, p, 27) = "number of positions in fund" Or Mid(result, p, 18) = "number of holdings" Or Mid(result, p, 19) = "number of companies" Or Mid(result, p, 17) = "number of issuers" Or Mid(result, p, 20) = "number of properties" Then
                                                                           ~                                                                                                                                                                                                                                
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(270) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 29) = "number of allocations in fund" Or Mid(result, p, 27) = "number of positions in fund" Or Mid(result, p, 18) = "number of holdings" Or Mid(result, p, 19) = "number of companies" Or Mid(result, p, 17) = "number of issuers" Or Mid(result, p, 20) = "number of properties" Then
                                                                                                                                 ~                                                                                                                                                                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(270) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 29) = "number of allocations in fund" Or Mid(result, p, 27) = "number of positions in fund" Or Mid(result, p, 18) = "number of holdings" Or Mid(result, p, 19) = "number of companies" Or Mid(result, p, 17) = "number of issuers" Or Mid(result, p, 20) = "number of properties" Then
                                                                                                                                                                              ~                                                                                                                             
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(270) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 29) = "number of allocations in fund" Or Mid(result, p, 27) = "number of positions in fund" Or Mid(result, p, 18) = "number of holdings" Or Mid(result, p, 19) = "number of companies" Or Mid(result, p, 17) = "number of issuers" Or Mid(result, p, 20) = "number of properties" Then
                                                                                                                                                                                                                            ~                                                                               
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(270) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 29) = "number of allocations in fund" Or Mid(result, p, 27) = "number of positions in fund" Or Mid(result, p, 18) = "number of holdings" Or Mid(result, p, 19) = "number of companies" Or Mid(result, p, 17) = "number of issuers" Or Mid(result, p, 20) = "number of properties" Then
                                                                                                                                                                                                                                                                        ~                                   
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(271) : error BC30451: Name 'p' is not declared.

    noh = Mid(result, p, 50)
                      ~     
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(294) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 9) = " holdings" And numberHoldings = "" And InStr(Mid(result, p + 9, 10), "%") = 0 Then
                   ~                                                                                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(294) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 9) = " holdings" And numberHoldings = "" And InStr(Mid(result, p + 9, 10), "%") = 0 Then
                                                                                     ~                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(295) : error BC30451: Name 'p' is not declared.

    lh = Mid(result, p + 9, 10)
                     ~         
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(323) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 12) = "long holding" Then
                   ~                           
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(324) : error BC30451: Name 'p' is not declared.

    lh = Mid(result, p + 13, 10)
                     ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(342) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 13) = "short holding" Then
                   ~                            
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(343) : error BC30451: Name 'p' is not declared.

    sh = Mid(result, p + 14, 10)
                     ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(360) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 1) = "@" And InStr(Mid(result, p + 1, 25), ".") > 0 Then
                   ~                                                          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(360) : error BC30451: Name 'p' is not declared.

    If Mid(result, p, 1) = "@" And InStr(Mid(result, p + 1, 25), ".") > 0 Then
                                                     ~                        
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\storedRestRead.aspx(362) : error BC30451: Name 'p' is not declared.

        For bkwards = p To p - 20 Step -1
                      ~                  
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\viewFaster.aspx(47) : error BC30451: Name 'a' is not declared.

  for a =3to 3
      ~       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\viewFaster.aspx(48) : error BC30451: Name 'a' is not declared.

  if a=1 then
     ~       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\viewFaster.aspx(84) : error BC30451: Name 'a' is not declared.

    if a=2 then
       ~       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\viewFaster.aspx(102) : error BC30451: Name 'a' is not declared.

    if a=3 then
       ~       
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\viewFaster.aspx(1195) : error BC30451: Name 'p' is not declared.

For p = 1 To 32
    ~          
G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\viewFaster.aspx(1196) : error BC30451: Name 'p' is not declared.

result = Replace(result, Chr(p), "")
                             ~      
vbc : warning BC42206: Maximum number of warnings has been exceeded.
vbc : error BC30041: Maximum number of errors has been exceeded.


Line 1:    #ExternalChecksum("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","DDE61A53E2B8360F8D768BE0E17F03AE")
Line 2:    '------------------------------------------------------------------------------
Line 3:    ' <auto-generated>
Line 4:    '     This code was generated by a tool.
Line 5:    '     Runtime Version:2.0.50727.9066
Line 6:    '
Line 7:    '     Changes to this file may cause incorrect behavior and will be lost if
Line 8:    '     the code is regenerated.
Line 9:    ' </auto-generated>
Line 10:   '------------------------------------------------------------------------------
Line 11:   
Line 12:   Option Strict Off
Line 13:   Option Explicit On
Line 14:   
Line 15:   Imports Microsoft.VisualBasic
Line 16:   Imports System
Line 17:   Imports System.Collections
Line 18:   Imports System.Collections.Specialized
Line 19:   Imports System.Configuration
Line 20:   Imports System.IO
Line 21:   Imports System.Text
Line 22:   Imports System.Text.RegularExpressions
Line 23:   Imports System.Web
Line 24:   Imports System.Web.Caching
Line 25:   Imports System.Web.Profile
Line 26:   Imports System.Web.Security
Line 27:   Imports System.Web.SessionState
Line 28:   Imports System.Web.UI
Line 29:   Imports System.Web.UI.HtmlControls
Line 30:   Imports System.Web.UI.WebControls
Line 31:   Imports System.Web.UI.WebControls.WebParts
Line 32:   
Line 33:   Namespace ASP
Line 34:       
Line 35:       <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()>  _
Line 36:       Public Class livedocserve_callapiv2_aspx
Line 37:           Inherits Global.System.Web.UI.Page
Line 38:           Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 39:           
Line 40:           
Line 41:           #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1055)
Line 42:           Protected WithEvents showResult As Global.System.Web.UI.WebControls.Label
Line 43:           
Line 44:           #End ExternalSource
Line 45:           
Line 46:           Private Shared __initialized As Boolean
Line 47:           
Line 48:           Private Shared __stringResource As Object
Line 49:           
Line 50:           Private Shared __fileDependencies As Object
Line 51:           
Line 52:           
Line 53:           #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",2)
Line 54:                                        Line 55:   Line 56:   public FMDb_api_lastResultLine 57:   public FMDb_api_lastURL Line 58:   public isStaticLine 59:     Line 60:   sub Page_Load(sender as Object, e as EventArgs)Line 61:   Line 62:     Line 63:   dim isinLine 64:   isin= Request.QueryString("isin")Line 65:   dim docLine 66:   doc= Request.QueryString("doc")Line 67:   Line 68:     isStatic=sheetlabs_static((isin))Line 69:     dim gotStaticLine 70:     if instr(isStatic,"isin")=0  thenLine 71:     gotStatic=0Line 72:     elseLine 73:     gotStatic=1Line 74:     end ifLine 75:     Line 76:   'demo Limitations.....Line 77:   'dim allowTheseISINsLine 78:   'allowTheseISINs="GB00B57H4F11,GB00BMN90635,GB00B28PT700"Line 79:   Line 80:     Line 81:       'get Sheetlabs data....Line 82:       dim sheetLabsISINLine 83:       sheetLabsISIN=SheetLabs_fmdb((isin)) Line 84:   Line 85:   Line 86:       'show FM and DOcs available  (group)'Line 87:       dim groupName Line 88:       groupName=sheetlabs_readoutput((sheetLabsISIN),"group")  Line 89:   Line 90:       dim kiidDocLine 91:       kiidDoc=sheetlabs_readoutput((sheetLabsISIN),"KIIDdoc")  Line 92:   Line 93:       dim fsDocLine 94:       fsDoc=sheetlabs_readoutput((sheetLabsISIN),"FSdoc")  Line 95:   Line 96:   Line 97:       dim docTypeLine 98:       if doc="KID" thenLine 99:       docType=kiidDocLine 100:      end ifLine 101:      if doc="FS" thenLine 102:      docType=fsDocLine 103:      end if  Line 104:  Line 105:    'rest db... get scrape paraeters....'Line 106:    dim loadRestLine 107:    Line 108:   Line 109:      Line 110:      Line 111:    if docType="x" and gotStatic=0 thenLine 112:    dim getGroupLine 113:    getGroup=SheetLabs_Transfer_byISIN_Single((isin),"group")Line 114:    dim getFundNameLine 115:    getFundName = SheetLabs_Transfer_byISIN_Single((isin),"fundname")Line 116:    loadRest = getFundName & " - " & isin & " - currently not available via this API" Line 117:    end ifLine 118:    Line 119:    if docType<>"x" and gotStatic =0 thenLine 120:      if docType="KID-PRIIPS" thenLine 121:      docType="KIID"Line 122:      end ifLine 123:    loadRest=restDb_fmdb ((groupName),(docType))Line 124:    end ifLine 125:      Line 126:    if gotStatic>0 thenLine 127:    'dim ssLine 128:    'ss=sheetlabs_static((isin))Line 129:    'ss=sheetlabs_readoutput((isStatic),"url")  Line 130:    loadRest=sheetlabs_readoutput((isStatic),"url") Line 131:    'loadRest=sheetLabs_readOutput((ss), "url")Line 132:    end ifLine 133:  Line 134:  Line 135:  Line 136:      if docType<>"x"  and gotStatic= 0 thenLine 137:        'all scrape data...' from restdb api table..Line 138:        dim ID, SearchURL, initialSearch, searchDir, findLeft, findRight, ExpectedURL, CleanseThis, Prefix, SuffixLine 139:  Line 140:        ID =restdb_readoutput((loadRest),"ID")Line 141:        SearchURL=restdb_readoutput((loadRest),"SearchURL")Line 142:        initialSearch=restdb_readoutput((loadRest),"initialSearch")Line 143:        searchDir=restdb_readoutput((loadRest),"searchDir")Line 144:        findLeft=restdb_readoutput((loadRest),"findLeft")Line 145:        findRight=restdb_readoutput((loadRest),"findRight")Line 146:        ExpectedURL=restdb_readoutput((loadRest),"ExpectedURL")Line 147:        CleanseThis=restdb_readoutput((loadRest),"CleanseThis")Line 148:        Prefix=restdb_readoutput((loadRest),"Prefix")Line 149:        Suffix=restdb_readoutput((loadRest),"Suffix")Line 150:  Line 151:  Line 152:        'the BIG one.....load it.'Line 153:  Line 154:        dim theResultLine 155:        theResult=fmdb_api_get((isin),(ID),(SearchURL),(initialSearch),(searchDir),(findLeft),(findRight),(ExpectedURL),(CleanseThis),(Prefix),(Suffix))Line 156:          if left(theResult,1)="}" thenLine 157:          theResult=mid(theResult,2,len(theResult))Line 158:          end ifLine 159:          theResult=replace(theResult,chr(10),"")Line 160:            if left(theResult,1)="]" thenLine 161:          theResult=mid(theResult,2,len(theResult))Line 162:          end ifLine 163:            Line 164:            if right(theResult,2)="}]" thenLine 165:            theResult=replace(theResult,"}]","")Line 166:            end ifLine 167:    Line 168:         theResult=replace(theResult,"}]","")Line 169:        theResult= "[" & vbnewline & "{" & vbnewline & chr(34) & "status" & chr(34) & ":" & chr(34) & "success" & chr(34) & ", " & chr(34) & "result" & chr(34) & ":" & chr(34) & theResult & chr(34) & "}" & vbnewline & "]"Line 170:        Line 171:        showResult.text=theResultLine 172:       elseLine 173:         dim sfLine 174:         if gotStatic>0 thenLine 175:          sf="success"Line 176:          elseLine 177:          sf="failed"Line 178:          end ifLine 179:            Line 180:        showResult.text= "[" & vbnewline & "{" & vbnewline & chr(34) & "status" & chr(34) & ":" & chr(34) & sf & chr(34) & ", " & chr(34) & "result" & chr(34) & ":" & chr(34) & loadRest & chr(34) & "}" & vbnewline & "]*"Line 181:       end ifLine 182:  Line 183:  Line 184:  'if instr(allowTheseISINs,isin)=0 thenLine 185:  'showResult.text= "[" & vbnewline & "{" & vbnewline & chr(34) & "status" & chr(34) & ":" & chr(34) & "failed" & chr(34) & ", " & chr(34) & "result" & chr(34) & ":" & chr(34) & "This fund not available in this demo"& chr(34) & "}" & vbnewline & "]"Line 186:  'end ifLine 187:    Line 188:  end subLine 189:  Line 190:  Line 191:    Line 192:  Line 193:  Public Function SheetLabs_fmdb (ISIN As String)Line 194:          Dim sURL As String, result As StringLine 195:          Dim oHttp As ObjectLine 196:                             Line 197:        sURL = "https://sheetlabs.com/FUND/fmdbetf?isin=" & ISINLine 198:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 199:              oHttp.Open("GET",sURL, False)Line 200:              oHttp.sendLine 201:              result = oHttp.responseTextLine 202:  Line 203:  'error/end controlLine 204:  result = Replace(result, "}", ",}")Line 205:  result = Replace(result, "null", Chr(34) & "null" & Chr(34) & ",")Line 206:  ' and then we can always search for a comma to finish the string/numLine 207:  Line 208:  Dim g, g_nameLine 209:  g_name = ""Line 210:  'first get "group"Line 211:  g = InStr(result, Chr(34) & "group" & Chr(34) & ":")Line 212:  If g > 0 ThenLine 213:  g_name = Mid(result, g, Len(result))Line 214:  g_name = Left(g_name, InStr(g_name, ",") - 1) & ","Line 215:  ElseLine 216:  g_name = Chr(34) & "group" & Chr(34) & ": " & Chr(34) & "NOTFOUND" & Chr(34) & ","Line 217:  End IfLine 218:  Line 219:  Line 220:  Line 221:  Line 222:  Line 223:  Line 224:  dim has_kiid, has_fs, f,k, kiidDoc, kDoc,FSdoc, fDoc, has_kidpriipLine 225:  'has KIID, FS... presupposes all KIID and FS versions start KIID(xx) or FS(xxx)Line 226:  has_kiid = InStr(result, "doccode" & Chr(34) & ": " & Chr(34) & "KIID")Line 227:  has_kidpriip = InStr(result, "doccode" & Chr(34) & ": " & Chr(34) & "KID-PRIIPS")  Line 228:     if has_kidpriip > 0 thenLine 229:     has_kiid =has_kidpriipLine 230:     end ifLine 231:    Line 232:  has_fs = InStr(result, "doccode" & Chr(34) & ": " & Chr(34) & "FS")Line 233:  k = ""Line 234:  f = ""Line 235:  Line 236:  If has_kiid > 0  ThenLine 237:  kiidDoc = Mid(result, has_kiid + 11, Len(result))Line 238:  kiidDoc = Left(kiidDoc, InStr(kiidDoc, Chr(34)) - 1)Line 239:  kDoc = Chr(34) & "KIIDdoc" & Chr(34) & ": " & Chr(34) & kiidDoc & Chr(34)Line 240:  k = Mid(result, has_kiid, Len(result))Line 241:  k = Left(k, InStr(k, "}"))Line 242:  k = kDoc & "," & kLine 243:  'change "result" to "KIIDresult"Line 244:  k = Replace(k, Chr(34) & "result" & Chr(34), Chr(34) & "lastknownKIIDurl" & Chr(34))Line 245:  k = Replace(k, Chr(34) & "date" & Chr(34), Chr(34) & "KIIDdate" & Chr(34))Line 246:  k = Replace(k, Chr(34) & "changedate" & Chr(34), Chr(34) & "KIIDchangedate" & Chr(34))Line 247:  End IfLine 248:  If has_fs > 0 ThenLine 249:  FSdoc = Mid(result, has_fs + 11, Len(result))Line 250:  FSdoc = Left(FSdoc, InStr(FSdoc, Chr(34)) - 1)Line 251:  fDoc = Chr(34) & "FSdoc" & Chr(34) & ": " & Chr(34) & FSdoc & Chr(34)Line 252:  f = Mid(result, has_fs, Len(result))Line 253:  f = Left(f, InStr(f, "}"))Line 254:  f = fDoc & "," & fLine 255:  f = Replace(f, Chr(34) & "result" & Chr(34), Chr(34) & "lastknownFSurl" & Chr(34))Line 256:  f = Replace(f, Chr(34) & "date" & Chr(34), Chr(34) & "FSdate" & Chr(34))Line 257:  f = Replace(f, Chr(34) & "changedate" & Chr(34), Chr(34) & "FSchangedate" & Chr(34))Line 258:  End IfLine 259:  Line 260:  SheetLabs_fmdb = g_name & k & fLine 261:  Line 262:  End FunctionLine 263:  Line 264:  Public Function FMDb_api_Get(thisID As String, ID As String, sURL As String, initialSearch As String, searchDir As String, findLeft As String, findRight As String, Xurl As String, cleanseMe As String, prefixURL As String, suffix As String)Line 265:  Line 266:  Line 267:  Dim result As StringLine 268:  Dim oHttp As ObjectLine 269:  Line 270:  'big variables dump....'Line 271:  Dim newIsearch, newIsearch2, loadDirections, backupSurl,cornelianCode, find_isearch, loadFA, pId, cId, sId, fId, newURL, addThis, f_l, foundit, f_rLine 272:  Dim docIdEn, gotitLine 273:    Line 274:  newIsearch = ""Line 275:  newIsearch2 = ""Line 276:  Line 277:  If sURL = "[DIRECTIONS]" ThenLine 278:  'MsgBox "AAA"Line 279:  'special'Line 280:  'hack url from Directions API based on ISIN/IDLine 281:  loadDirections = SheetLabs_fmdbDirections((thisID))Line 282:  'sURL = xRef2((thisID), "FMDb_Directions", "ISIN", "Fmurl")Line 283:  sURL = sheetLabs_readOutput((loadDirections), "fmurl")Line 284:  'MsgBox "special..." & sURLLine 285:  backupSurl = sURLLine 286:      If InStr(sURL, "(URL)") > 0 ThenLine 287:      newURL = Mid(sURL, InStr(sURL, "(URL)(") + 6, Len(sURL))Line 288:      newURL = Left(newURL, InStr(newURL, ")") - 1)Line 289:      'MsgBox "newURL=" & newURLLine 290:                    If InStr(sURL, "(1)") = 0 thenLine 291:              sURL=newURLLine 292:              end ifLine 293:      End IfLine 294:      If InStr(sURL, "(1)") > 0 ThenLine 295:      newIsearch = Mid(sURL, InStr(sURL, "(1)(") + 4, Len(sURL))Line 296:      newIsearch = Left(newIsearch, InStr(newIsearch, ")") - 1)Line 297:      newIsearch2 = ""Line 298:      'MsgBox newIsearchLine 299:                  If InStr(sURL, "(2)") = 0 thenLine 300:              sURL=newURLLine 301:              end ifLine 302:      End IfLine 303:        If InStr(sURL, "(2)") > 0 ThenLine 304:        newIsearch2 = Mid(sURL, InStr(sURL, "(2)(") + 4, Len(sURL))Line 305:        newIsearch2 = Left(newIsearch2, InStr(newIsearch2, ")") - 1)Line 306:        'MsgBox newIsearch2Line 307:        sURL = newURL  'only now...cos it was sURL before and needed [1] and [2] parsed outLine 308:        end ifLine 309:      Line 310:      Line 311:      If sURL = "" and instr(backupSurl,")") = 0 ThenLine 312:      sURL = backupSurl ' because sURL can be blanked after ;arsing....so put it back!!!Line 313:      End IfLine 314:  End IfLine 315:  Line 316:  Line 317:  If initialSearch = "{CornelianCode}" ThenLine 318:  'MsgBox "Cornelian Code==" & sURLLine 319:  cornelianCode = sURLLine 320:  sURL = "https://www.cornelianam.com/investment-services/fund-range-direct-investors/document-library/"Line 321:  'so now force FindLeft to Equal the Cornelian Code...Line 322:  End IfLine 323:  Line 324:  If initialSearch = "{CornelianCode}" ThenLine 325:  find_isearch = cornelianCodeLine 326:  'MsgBox "Cornelian iSearch==" & find_isearchLine 327:  End IfLine 328:  Line 329:  If thisID = "ISINtoSEDOL" ThenLine 330:      If Left(thisID, 2) = "GB" Or Left(thisID, 2) = "IE" ThenLine 331:      'sedol is the middle bitLine 332:      initialSearch = Mid(thisID, 5, 7)Line 333:      'used for CornelianLine 334:      End IfLine 335:  End IfLine 336:  If initialSearch = "{ISINtoSEDOL}" ThenLine 337:      If Left(thisID, 2) = "GB" Or Left(thisID, 2) = "IE" ThenLine 338:      'sedol is the middle bitLine 339:      initialSearch = Mid(thisID, 5, 7)Line 340:      'used for CornelianLine 341:      End IfLine 342:  End IfLine 343:  Line 344:  Line 345:  If sURL = "[FUNDASSIST_API]" ThenLine 346:  'MsgBox "FundAssist"Line 347:  loadFA = SheetLabs_fmdbFundAssist((thisID))Line 348:  pId = sheetLabs_readOutput((loadFA), "promoterid")Line 349:  fId = sheetLabs_readOutput((loadFA), "fundid")Line 350:  cId = sheetLabs_readOutput((loadFA), "classid")Line 351:  sId = sheetLabs_readOutput((loadFA), "subfundid")Line 352:  Line 353:  'pId = xRef2((thisID), "FMDb_FundAssist", "ISIN", "promoterId")Line 354:  'fId = xRef2((thisID), "FMDb_FundAssist", "ISIN", "fundId")Line 355:  'cId = xRef2((thisID), "FMDb_FundAssist", "ISIN", "ClassId")Line 356:  'sId = xRef2((thisID), "FMDb_FundAssist", "ISIN", "subFundId")Line 357:  'MsgBox pId & "," & fId & "," & cId & "," & sIdLine 358:  dim ISINLine 359:  ISIN=thisID  ' is this always corrct?  so far it is??'Line 360:      If initialSearch = "{FUNDASSIST_KIID}" ThenLine 361:      sURL = FundAssist_ParseOut((pId), (fId), (sId), (cId), (ISIN), "KIID")Line 362:      End IfLine 363:      If initialSearch = "{FUNDASSIST_FS}" ThenLine 364:      sURL = FundAssist_ParseOut((pId), (fId), (sId), (cId), (ISIN), "FS")Line 365:      End IfLine 366:  'MsgBox "fundAssist..." & sURLLine 367:  End IfLine 368:  Line 369:  Line 370:  If sURL <> "[FUNDASSIST_API]" And sURL <> "[DIRECTIONS]" ThenLine 371:  sURL = Replace(sURL, ID, thisID)Line 372:  'MsgBox sURLLine 373:  End IfLine 374:  Line 375:  'MsgBox "Gonna load..." & sURLLine 376:  Line 377:  Line 378:  If sURL = FMDb_api_lastURL ThenLine 379:  'no load..Line 380:  'MsgBox "No Load"Line 381:      result = FMDb_api_lastResultLine 382:  ElseLine 383:  'MsgBox "!Load!"Line 384:               oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 385:              oHttp.Open("GET",sURL, False)Line 386:              oHttp.sendLine 387:              result = oHttp.responseTextLine 388:      FMDb_api_lastResult = resultLine 389:      FMDb_api_lastURL = sURLLine 390:  End IfLine 391:  Line 392:  Line 393:  If Left(initialSearch, 1) = "{" ThenLine 394:  'search by the sedol, isin, thisID...Line 395:  find_isearch = InStr(result, thisID)Line 396:  ElseLine 397:  find_isearch = InStr(result, initialSearch)Line 398:  End IfLine 399:  Line 400:  If Left(initialSearch, 1) = "{" And InStr(initialSearch, "+") > 0 ThenLine 401:  'is a multi search.. ISIN and sonething...Line 402:  addThis = Mid(initialSearch, InStr(initialSearch, "+") + 2, Len(initialSearch))Line 403:  addThis = Left(addThis, InStr(addThis, "]") - 1)Line 404:  find_isearch = InStr(result, thisID & addThis)Line 405:  Line 406:      If find_isearch = 0 ThenLine 407:      'force lower case check? for Vanguard INSTLine 408:      'MsgBox "LOWER ... " & LCase(find_isearch)Line 409:      find_isearch = InStr(result, LCase(thisID) & addThis)Line 410:      End IfLine 411:  Line 412:  'MsgBox "Multi Search===" & thisID & addThis & "==" & find_isearchLine 413:  End IfLine 414:  Line 415:  If initialSearch = "{CornelianCode}" ThenLine 416:  find_isearch = InStr(result, cornelianCode) 'docIdLine 417:  initialSearch = cornelianCodeLine 418:  'MsgBox "Cornelian iSearch==" & find_isearchLine 419:  'MsgBox "find_iSearch==" & find_isearchLine 420:  End IfLine 421:  Line 422:  If Left(initialSearch, 12) = "{FUNDASSIST_" ThenLine 423:  'MsgBox "Already Got FundAssist Data === " & sURLLine 424:  End IfLine 425:  Line 426:  If InStr(initialSearch, "(URL)") > 0 ThenLine 427:  find_isearch = InStr(result, newIsearch)Line 428:  initialSearch = newIsearchLine 429:  'MsgBox newIsearchLine 430:  'MsgBox "Cut 1 ==" & find_isearchLine 431:      If find_isearch > 0 And newIsearch2 <> "" ThenLine 432:      result = Mid(result, find_isearch, Len(result))Line 433:      find_isearch = InStr(result, newIsearch2)Line 434:      'MsgBox "Cut 2 ==" & find_isearchLine 435:      End IfLine 436:  End IfLine 437:  Line 438:  Line 439:  Line 440:  Line 441:  If find_isearch > 0 ThenLine 442:  Line 443:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Line 444:  'cut down the result based on searchDirction...Line 445:      If searchDir = "R" ThenLine 446:      'MsgBox "R"Line 447:      result = Mid(result, find_isearch + Len(initialSearch), Len(result))Line 448:      'MsgBox "R==" & resultLine 449:          f_l = InStr(result, findLeft)Line 450:              If f_l > 0 ThenLine 451:              result = Mid(result, f_l + Len(findLeft), Len(result))Line 452:              ElseLine 453:              result = "failed findLeft"Line 454:              End IfLine 455:              Line 456:      'MsgBox resultLine 457:      End IfLine 458:      Line 459:      If searchDir = "R2" ThenLine 460:      'MsgBox "R2"Line 461:      result = Mid(result, find_isearch + Len(initialSearch), Len(result))Line 462:      'MsgBox "R2===" & resultLine 463:          For r2 = 1 To 2Line 464:              f_l = InStr(result, findLeft)Line 465:                  If f_l > 0 ThenLine 466:                  'MsgBox r2Line 467:                  result = Mid(result, f_l + Len(findLeft), Len(result))Line 468:                  'MsgBox resultLine 469:                  ElseLine 470:                  result = "failed findLeft"Line 471:                  End IfLine 472:          Next r2Line 473:              Line 474:      'MsgBox resultLine 475:      End IfLine 476:      Line 477:      If searchDir = "L" ThenLine 478:      'MsgBox "L"Line 479:      foundit = 0Line 480:          For dirL = find_isearch To 1 Step -1Line 481:              If Mid(result, dirL, Len(findLeft)) = findLeft And foundit = 0 ThenLine 482:              result = Mid(result, dirL, Len(result))Line 483:              foundit = 1Line 484:              'MsgBox resultLine 485:              End IfLine 486:          Next dirLLine 487:      End IfLine 488:  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Line 489:      Line 490:      Line 491:  'so now result is cut to left...Line 492:  'so find RightLine 493:  Line 494:  f_r = InStr(result, findRight)Line 495:  Line 496:  If f_r > 0 ThenLine 497:  result = Left(result, f_r - 1)Line 498:  ElseLine 499:  result = "failed findRight"Line 500:  End IfLine 501:  Line 502:  'MsgBox resultLine 503:  Line 504:  Line 505:          'expected format output?  '' NOT RUNNING ''''Line 506:          if Xurl ="YYY" thenLine 507:            If InStr(result, Xurl) > 0  ThenLine 508:            result = resultLine 509:            End ifLine 510:            if instr(result,Xurl)=0 thenLine 511:            result = "x.." & result & "..x"  & "   xurl=" & Xurl  & "   resukt=" & resultLine 512:            End IfLine 513:          end ifLine 514:            Line 515:            Line 516:                If cleanseMe = "[LGIM]" ThenLine 517:      Dim l, ll, herelLine 518:      l = InStr(result, "KIID_")Line 519:      For ll = l To 1 Step -1Line 520:      If Mid(result, ll, 4) = "/srp" ThenLine 521:      herel = llLine 522:      Exit ForLine 523:      End IfLine 524:      Next llLine 525:      Line 526:      result = Mid(result, herel, Len(result))Line 527:      result = Left(result, InStr(result, ".pdf") + 4)Line 528:      result = "https://fundcentres.lgim.com" & resultLine 529:      End IfLine 530:      Line 531:      Line 532:      If cleanseMe = "[DecodeURL]" ThenLine 533:      'convert .PDF to .pdf ... InvescoLine 534:      result = Replace(result, "%2F", "/")Line 535:  result = Replace(result, "%3A", ":")Line 536:      End IfLine 537:      Line 538:       Line 539:            Line 540:                If cleanseMe = "[PDFcaps]" ThenLine 541:      'convert .PDF to .pdf ... InvescoLine 542:      result = Replace(result, ".PDF", ".pdf")Line 543:          If InStr(result, " title") > 0 ThenLine 544:          result = Left(result, InStr(result, " title"))Line 545:          End IfLine 546:      End IfLine 547:            Line 548:                If cleanseMe = "[BNYM]" ThenLine 549:      result = Replace(result, "/uk/en/", "/en/gb/pdf-preview/uk/en/")Line 550:      End IfLine 551:      Line 552:      If cleanseMe = "[HSBC]" ThenLine 553:      result = Mid(result, InStr(result, "http"), Len(result))Line 554:      End IfLine 555:      Line 556:      dim d, DCount, dShowLine 557:      If cleanseMe = "[HSBC-filter]" ThenLine 558:          For d = 1 To Len(result)Line 559:              If Mid(result, d, 10) = "<Document>" ThenLine 560:              DCount = DCount + 1Line 561:              End IfLine 562:          Next dLine 563:          Line 564:          Dim dResult()Line 565:          For dShow = 1 To DCountLine 566:              result = Mid(result, InStr(result, "<Document>") + 10, Len(result))Line 567:              ReDim Preserve dResult(dShow)Line 568:              dResult(dShow) = Left(result, InStr(result, "</Document>"))Line 569:              Line 570:                  If InStr(dResult(dShow), ">EN<") > 0 And InStr(dResult(dShow), ">00<") > 0 ThenLine 571:                  'MsgBox dShow & vbNewLine & dResult(dShow)Line 572:                  result = Mid(dResult(dShow), InStr(dResult(dShow), "http"), Len(dResult(dShow)))Line 573:                  result = Left(result, InStr(result, "<") - 1)Line 574:                  Exit ForLine 575:                  End IfLine 576:              Line 577:          Next dShowLine 578:          Line 579:      End IfLine 580:      Line 581:      Line 582:      Line 583:          If cleanseMe = "[VanguardInst]" ThenLine 584:          'find value: enLine 585:          'docId":[{"value":"13687","name":"fr"},{"value":"13688","name":"de"},{"value":"13506","name":"en"}Line 586:          docIdEn = InStr(result, Chr(34) & "en" & Chr(34))Line 587:          gotit = 0Line 588:              If docIdEn > 0 ThenLine 589:                  For uuu = docIdEn To 1 Step -1Line 590:                      If Mid(result, uuu, 1) = "{" And gotit = 0 ThenLine 591:                      result = Mid(result, uuu, Len(result))Line 592:                      gotit = 1Line 593:                      result = Replace(result, "value", "")Line 594:                      result = Replace(result, "{", "")Line 595:                      result = Replace(result, "}", "")Line 596:                      result = Replace(result, "name", "")Line 597:                      result = Replace(result, "en", "")Line 598:                      result = Replace(result, ":", "")Line 599:                      result = Replace(result, ",", "")Line 600:                      result = Replace(result, Chr(34), "")Line 601:                      Exit ForLine 602:                      End IfLine 603:                  Next uuuLine 604:              End IfLine 605:          End IfLine 606:          Line 607:          Line 608:      're-insert sURL as result for FundAssist....Line 609:      If Left(initialSearch, 12) = "{FUNDASSIST_" ThenLine 610:      result = sURLLine 611:      'result = URL_Shorten((result), "")Line 612:      End IfLine 613:          Line 614:          Line 615:          If cleanseMe <> "" ThenLine 616:          result = Replace(result, cleanseMe, "")Line 617:          End IfLine 618:          Line 619:          Line 620:          If prefixURL <> "" ThenLine 621:          result = prefixURL & resultLine 622:          End IfLine 623:          Line 624:          If suffix <> "" ThenLine 625:          result = result & suffixLine 626:          End IfLine 627:  Line 628:  Line 629:  ElseLine 630:  result = "failed iSearch" Line 631:      If Left(initialSearch, 12) = "{FUNDASSIST_" ThenLine 632:      result = sURLLine 633:      'result = URL_Shorten((result), "")Line 634:      End IfLine 635:  End If ' iSearchLine 636:  Line 637:  result = Replace(result, "\u0022", "")Line 638:  result = Replace(result, "\u0022\n", "")Line 639:  result = Replace(result, "\/", "/")Line 640:  result = Replace(result, "\u0026amp;", "&amp;")Line 641:  result = Replace(result, "&amp;", "&")Line 642:  result = Replace(result, "u0022\n    ", "")Line 643:  Line 644:  Line 645:  If InStr(suffix, "{THISISIN}") ThenLine 646:  result = Replace(result, "{THISISIN}", thisID)Line 647:  End IfLine 648:  Line 649:  Line 650:  If InStr(result, "{THISISIN}") > 0 ThenLine 651:  result = Replace(result, "{THISISIN}", "")Line 652:  End IfLine 653:  Line 654:  If Right(result, 1) = Chr(34) ThenLine 655:  result = Replace(result, Chr(34), "")Line 656:  End IfLine 657:  Line 658:  Line 659:  result = Replace(result, Chr(34), "")Line 660:  result = Replace(result, ".pdf .pdf", ".pdf")Line 661:  Line 662:  Line 663:  Line 664:  FMDb_api_Get = resultLine 665:  '   FMDb_api_Get = sURLLine 666:       Line 667:  Line 668:  End FunctionLine 669:  Line 670:  Line 671:  Public Function SheetLabs_fmdbFundAssist(ISIN As String)Line 672:  Line 673:  Line 674:          Dim sURL As String, result As StringLine 675:          Dim oHttp As ObjectLine 676:                             Line 677:        sURL = "https://sheetlabs.com/FUND/fmdbfundassist?isin=" & ISINLine 678:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 679:              oHttp.Open("GET",sURL, False)Line 680:              oHttp.sendLine 681:              result = oHttp.responseTextLine 682:  Line 683:  result = Replace(result, "[", "")Line 684:  result = Replace(result, "]", "")Line 685:  result = Replace(result, "{", "")Line 686:  result = Replace(result, "}", "")Line 687:  Line 688:  For p = 1 To 32Line 689:  result = Replace(result, Chr(p), "")Line 690:  Next pLine 691:  Line 692:  result = result & ","Line 693:  Line 694:  Line 695:  result = Replace(result, Chr(10), "")Line 696:  result = Replace(result, "promoterid" & Chr(34) & ":", "promoterid" & Chr(34) & ": " & Chr(34))Line 697:  result = Replace(result, "subfundid" & Chr(34) & ":", "subfundid" & Chr(34) & ": " & Chr(34))Line 698:  result = Replace(result, Chr(34) & "fundid" & Chr(34) & ":", Chr(34) & "fundid" & Chr(34) & ": " & Chr(34))Line 699:  result = Replace(result, "classid" & Chr(34) & ":", "classid" & Chr(34) & ": " & Chr(34))Line 700:  result = Replace(result, ",", Chr(34) & ",")Line 701:  result = Replace(result, Chr(34) & Chr(34) & ",", Chr(34) & ",")Line 702:  Line 703:  SheetLabs_fmdbFundAssist = resultLine 704:  Line 705:  Line 706:  End FunctionLine 707:  Line 708:  Public Function SheetLabs_fmdbDirections(ISIN As String)Line 709:  Line 710:  Line 711:  Line 712:  Line 713:          Dim sURL As String, result As StringLine 714:          Dim oHttp As ObjectLine 715:                             Line 716:        sURL = "https://sheetlabs.com/FUND/fmdbdirections?isin=" & ISINLine 717:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 718:              oHttp.Open("GET",sURL, False)Line 719:              oHttp.sendLine 720:              result = oHttp.responseTextLine 721:  Line 722:  'result = Replace(result, "[", "")Line 723:  'result = Replace(result, "]", "")Line 724:  result = Replace(result, "{", "")Line 725:  result = Replace(result, "}", "")Line 726:  result = Replace(result, Chr(10), "")Line 727:  Line 728:  dim pLine 729:  For p = Len(result) To 1 Step -1Line 730:  If Mid(result, p, 1) = Chr(34) ThenLine 731:  result = Left(result, p)Line 732:  Exit ForLine 733:  End IfLine 734:  Next pLine 735:  Line 736:  result = result & ","Line 737:  Line 738:  Line 739:  SheetLabs_fmdbDirections = resultLine 740:  Line 741:  End FunctionLine 742:  Line 743:  Public Function SheetLabs_static(ISIN As String)Line 744:  Line 745:          Dim sURL As String, result As StringLine 746:          Dim oHttp As ObjectLine 747:                             Line 748:        sURL = "https://sheetlabs.com/FINK/static?isin=" & isinLine 749:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 750:              oHttp.Open("GET",sURL, False)Line 751:              oHttp.sendLine 752:              result = oHttp.responseTextLine 753:  Line 754:  result = Replace(result, "[", "")Line 755:  result = Replace(result, "]", "")Line 756:  result = Replace(result, "{", "")Line 757:  result = Replace(result, "}", "")Line 758:  result = Replace(result, Chr(10), "")Line 759:  Line 760:  dim pLine 761:  For p = Len(result) To 1 Step -1Line 762:  If Mid(result, p, 1) = Chr(34) ThenLine 763:  result = Left(result, p)Line 764:  Exit ForLine 765:  End IfLine 766:  Next pLine 767:  Line 768:  result = result & ","Line 769:  Line 770:    SheetLabs_static = resultLine 771:  Line 772:  End FunctionLine 773:  Line 774:  Public Function sheetLabs_readOutput(result As String, getWhat As String)Line 775:  Line 776:   'variables....'Line 777:  dim s, cLine 778:  s = InStr(result, Chr(34) & getWhat & Chr(34) & ":")Line 779:  Line 780:  Line 781:  Line 782:  If s > 0 ThenLine 783:  Line 784:      result = Mid(result, s + Len(getWhat) + 4, Len(result))Line 785:      result = Left(result, InStr(result, Chr(34) & ",") - 1)Line 786:      Line 787:      If Left(result, 1) = Chr(34) ThenLine 788:      result = Mid(result, 2, Len(result))Line 789:      End IfLine 790:      Line 791:      If InStr(result, ",}") > 0 ThenLine 792:      result = Left(result, InStr(result, ",}") - 1)Line 793:          For c = 1 To 32Line 794:          result = Replace(result, Chr(c), "")Line 795:          Next cLine 796:          If Right(result, 1) = Chr(34) ThenLine 797:          result = Left(result, Len(result) - 1)Line 798:          End IfLine 799:      End IfLine 800:      Line 801:  ElseLine 802:  Line 803:  result = "x"Line 804:  End IfLine 805:  Line 806:  sheetLabs_readOutput = resultLine 807:  Line 808:  End FunctionLine 809:  Line 810:  Line 811:  Line 812:  Public Function FundAssist_ParseOut(promoterId As String, fundId As String, subFundId As String, classId As String, ISIN As String, getWhat As String)Line 813:  'getWhat = "KIID" Or "FS"Line 814:  Line 815:  Line 816:  Dim result As StringLine 817:  Dim oHttp As ObjectLine 818:  Line 819:  'variablesLine 820:  dim sURL, f_end, f_start, findClass, docc, is_Kidd, foundit, winner,p, thisDoc, is_KIIDLine 821:    Line 822:  sURL = "https://expressapi.fundassist.com/v1/api/docs/" & promoterId & "/" & fundId & "/?hasData=true"Line 823:  'sURL = "https://expressapi.fundassist.com/v1/api/docs/" & promoterId & "/" & fundId & "/?hasData=true"Line 824:  Line 825:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 826:              oHttp.Open("GET",sURL, False)Line 827:              oHttp.sendLine 828:              result = oHttp.responseTextLine 829:  Line 830:  f_end = 0Line 831:  f_start = 0Line 832:      Line 833:  Line 834:  'findClass = InStr(result, "<ClassId>" & classId & "</ClassId>")Line 835:  findClass = InStr(result, "ClassId" & Chr(34) & ":" & classId)Line 836:  'findClass = InStr(result, ISIN)Line 837:  Line 838:  result = Mid(result, findClass, Len(result))Line 839:  'MsgBox resultLine 840:  Line 841:  thisDoc = "XXX"Line 842:  Line 843:  'now parse out KIID ....etc.....Line 844:  Line 845:  docc = ""Line 846:  is_KIID = 0Line 847:  foundit = 0Line 848:  Line 849:  If getWhat = "KIID" ThenLine 850:      For p = 1 To Len(result)Line 851:          If Mid(result, p, 12) = "DocumentGuid" ThenLine 852:          docc = Mid(result, p + 13 + 2, Len(result))Line 853:          docc = Left(docc, InStr(docc, Chr(34)) - 1)Line 854:          'MsgBox doccLine 855:          is_KIID = 0Line 856:          foundit = 0Line 857:          End IfLine 858:          If Mid(result, p, 19) = "DocumentType" & Chr(34) & ":" & Chr(34) & "KIID" And docc <> "" ThenLine 859:          is_KIID = 1Line 860:          End IfLine 861:          If Mid(result, p, 22) = "LanguageName" & Chr(34) & ":" & Chr(34) & "English" And docc <> "" And is_KIID = 1 And foundit = 0 ThenLine 862:          'MsgBox "Goal... . Using DocumentGuid :: " & doccLine 863:          winner = doccLine 864:          foundit = 1Line 865:          thisDoc = "https://expressapi.fundassist.com/v1/api/Files/" & doccLine 866:          Exit ForLine 867:          End IfLine 868:      Next pLine 869:  End IfLine 870:  Line 871:  If getWhat = "KIID" And thisDoc = "XXX" Then  '' PRIIPS KID instead....Line 872:  'MsgBox "Nothing FOund...try again with KID..not KIID"Line 873:  Line 874:          For p = 1 To Len(result)Line 875:              If Mid(result, p, 12) = "DocumentGuid" ThenLine 876:              docc = Mid(result, p + 13 + 2, Len(result))Line 877:              docc = Left(docc, InStr(docc, Chr(34)) - 1)Line 878:              'MsgBox doccLine 879:              is_KIID = 0Line 880:              foundit = 0Line 881:              End IfLine 882:              If Mid(result, p, 25) = "DocumentType" & Chr(34) & ":" & Chr(34) & "PRIIPs KID" And docc <> "" ThenLine 883:              is_KIID = 1Line 884:              End IfLine 885:              If Mid(result, p, 22) = "LanguageName" & Chr(34) & ":" & Chr(34) & "English" And docc <> "" And is_KIID = 1 And foundit = 0 ThenLine 886:              'MsgBox "Goal... . Using DocumentGuid :: " & doccLine 887:              winner = doccLine 888:              foundit = 1Line 889:              thisDoc = "https://expressapi.fundassist.com/v1/api/Files/" & doccLine 890:              Exit ForLine 891:              End IfLine 892:          Next pLine 893:      'MsgBox "Found this..." & thisDocLine 894:  Line 895:  End IfLine 896:  Line 897:  Line 898:  If getWhat = "FS" ThenLine 899:      For p = 1 To Len(result)Line 900:          If Mid(result, p, 12) = "DocumentGuid" ThenLine 901:          docc = Mid(result, p + 13 + 2, Len(result))Line 902:          docc = Left(docc, InStr(docc, Chr(34)) - 1)Line 903:          'MsgBox doccLine 904:          is_KIID = 0Line 905:          foundit = 0Line 906:          End IfLine 907:          If Mid(result, p, 31) = "DocumentType" & Chr(34) & ":" & Chr(34) & "Class Fact Sheet" And docc <> "" ThenLine 908:          is_KIID = 1Line 909:          End IfLine 910:          If Mid(result, p, 22) = "LanguageName" & Chr(34) & ":" & Chr(34) & "English" And docc <> "" And is_KIID = 1 And foundit = 0 ThenLine 911:          'MsgBox "Goal... . Using DocumentGuid :: " & doccLine 912:          winner = doccLine 913:          foundit = 1Line 914:          thisDoc = "https://expressapi.fundassist.com/v1/api/Files/" & doccLine 915:          Exit ForLine 916:          End IfLine 917:      Next pLine 918:  End IfLine 919:  Line 920:  Line 921:  Line 922:  Line 923:  FundAssist_ParseOut = thisDocLine 924:  Line 925:  End FunctionLine 926:  Line 927:  Line 928:  Line 929:  Public Function SheetLabs_Transfer_byISIN_Single(isin As String, getWhat As String)Line 930:          Dim sURL As String, Result As StringLine 931:          Dim oHttp As ObjectLine 932:                             Line 933:        sURL = "https://sheetlabs.com/DONK/transferto?isin=" & isinLine 934:              Line 935:  Line 936:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 937:              oHttp.Open("GET",sURL, False)Line 938:              oHttp.sendLine 939:              result = oHttp.responseTextLine 940:  Line 941:  dim eControlLine 942:  eControl=""Line 943:  if result="[]"Line 944:  eControl="No Result"Line 945:  elseLine 946:   eControl="OK"Line 947:   end ifLine 948:     Line 949:  'error/end controlLine 950:  Result = Replace(Result, "}", ",}")Line 951:  ' and then we can always search for a comma to finish the string/numLine 952:  Line 953:  if eControl <>"No Result" then   Line 954:    dim sLine 955:    'standard JSON result...should be ONE return...as is by ISIN only...Line 956:    'result = LCase(result)Line 957:    getWhat = chr(34) & LCase(getWhat) & chr(34)Line 958:    s = InStr(Result, getWhat)Line 959:    Result = Mid(Result, s + Len(getWhat) + 3, Len(Result))Line 960:    Result = Left(Result, InStr(Result, ",") - 1)Line 961:    Result = Replace(Result, Chr(34), "")Line 962:    SheetLabs_Transfer_byISIN_Single = ResultLine 963:  elseLine 964:  SheetLabs_Transfer_byISIN_Single = "No Result"  Line 965:  end ifLine 966:  Line 967:  Line 968:  End FunctionLine 969:  Line 970:  Line 971:  Line 972:  '''RESTDB code...................................RESTDBLine 973:    Line 974:    Public Function restDb_fmdb(FMname As String, DocType As String)Line 975:  'exact matchLine 976:  Line 977:    dim apiKey, url, oHttp, resultLine 978:  'apiKey = "27f5cb69219df241379e49cb9947c3a128ced"Line 979:  'apiKey = "0b44402e105ab04548ee5a299c0c344668f6c"Line 980:  apiKey = "10143a96a12a604e8b96125a938143f5d0efc"Line 981:      Line 982:      'M&G... M%26GLine 983:   If InStr(FMname, "&") > 0 ThenLine 984:   FMname = Replace(FMname, "&", "%26")Line 985:   End IfLine 986:   Line 987:  url = "https://fmdbapi-e751.restdb.io/rest/fmdb-api?q={" & Chr(34) & "FM" & Chr(34) & ":" & Chr(34) & FMname & Chr(34) & "," & Chr(34) & "DocType" & Chr(34) & ":" & Chr(34) & DocType & Chr(34) & "}&apikey=" & apiKeyLine 988:   Line 989:              oHttp = CreateObject("MSXML2.serverXMLHTTP")Line 990:              oHttp.Open("GET",url, False)Line 991:              oHttp.sendLine 992:              result = oHttp.responseTextLine 993:  Line 994:  Dim b, pLine 995:  'record countLine 996:  For p = 1 To Len(result)Line 997:  If Mid(result, p, 3) = "{" & Chr(34) & "_" ThenLine 998:  b = b + 1Line 999:  End IfLine 1000: Next pLine 1001: Line 1002: If b = 1 Then 'only 1 resultLine 1003: result = resultLine 1004: Line 1005: Line 1006: 'parse out the additional \"Line 1007: 'result = Replace(result, "\\", "\")Line 1008: Line 1009: 'has to stay for correcting uploaded JSON apis...Line 1010: 'result = Replace(result, Chr(34) & "\\" & Chr(34), Chr(34) & "" & Chr(34))Line 1011: Line 1012: Line 1013: result = Replace(result, "\" & Chr(34), Chr(34))Line 1014: Line 1015: Line 1016: result = Replace(result, "{CHR34}", Chr(34))Line 1017: result = Replace(result, "{BSLASH}", "\")Line 1018: result = Replace(result, "{FSLASH}", "/")Line 1019: Line 1020: restDb_fmdb = resultLine 1021: Line 1022: ElseLine 1023: Line 1024: restDb_fmdb = "Whoops. Somthing's wrong"Line 1025: Line 1026: End IfLine 1027: Line 1028: End FunctionLine 1029: Line 1030: Public Function restDb_readOutput(result As String, getWhat As String)Line 1031: Line 1032:   dim s, test1Line 1033: s = InStr(result, Chr(34) & getWhat & Chr(34) & ":")Line 1034: 'MsgBox getWhat & "==" & sLine 1035: Line 1036: Line 1037: If s > 0 ThenLine 1038: Line 1039:     result = Mid(result, s + Len(getWhat) + 4, Len(result))Line 1040:     Line 1041:         test1 = Left(result, InStr(result, Chr(34) & ","))Line 1042:         'MsgBox test1Line 1043:         If InStr(test1, "{") > 0 And InStr(test1, "{THISISIN}") = 0 ThenLine 1044:         result = Left(result, InStr(result, "}" & Chr(34) & ","))Line 1045:         ElseLine 1046:           if instr(result,",") > 0thenLine 1047:           result = Left(result, InStr(result, Chr(34) & ",") - 1)Line 1048:           end ifLine 1049:         End IfLine 1050:     Line 1051:     ElseLine 1052:     Line 1053:     result = "NO DATA"Line 1054: Line 1055: End IfLine 1056: Line 1057: restDb_readOutput = resultLine 1058: Line 1059: End FunctionLine 1060: Line 1061: Line 1062:      Line 1063: 
Line 1064:         #End ExternalSource
Line 1065:         
Line 1066:         
Line 1067:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 1068:         Public Sub New()
Line 1069:             MyBase.New
Line 1070:             Dim dependencies() As String
Line 1071:             CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/liveDocServe/callAPIv2.aspx"
Line 1072:             If (Global.ASP.livedocserve_callapiv2_aspx.__initialized = false) Then
Line 1073:                 Global.ASP.livedocserve_callapiv2_aspx.__stringResource = Me.ReadStringResource
Line 1074:                 dependencies = New String(0) {}
Line 1075:                 dependencies(0) = "~/liveDocServe/callAPIv2.aspx"
Line 1076:                 Global.ASP.livedocserve_callapiv2_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 1077:                 Global.ASP.livedocserve_callapiv2_aspx.__initialized = true
Line 1078:             End If
Line 1079:             Me.Server.ScriptTimeout = 30000000
Line 1080:         End Sub
Line 1081:         
Line 1082:         Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 1083:             Get
Line 1084:                 Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 1085:             End Get
Line 1086:         End Property
Line 1087:         
Line 1088:         Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 1089:             Get
Line 1090:                 Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 1091:             End Get
Line 1092:         End Property
Line 1093:         
Line 1094:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 1095:         Private Function __BuildControlshowResult() As Global.System.Web.UI.WebControls.Label
Line 1096:             Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 1097:             
Line 1098:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1055)
Line 1099:             __ctrl = New Global.System.Web.UI.WebControls.Label
Line 1100:             
Line 1101:             #End ExternalSource
Line 1102:             Me.showResult = __ctrl
Line 1103:             __ctrl.ApplyStyleSheetSkin(Me)
Line 1104:             
Line 1105:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1055)
Line 1106:             __ctrl.ID = "showResult"
Line 1107:             
Line 1108:             #End ExternalSource
Line 1109:             Return __ctrl
Line 1110:         End Function
Line 1111:         
Line 1112:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 1113:         Private Sub __BuildControlTree(ByVal __ctrl As livedocserve_callapiv2_aspx)
Line 1114:             
Line 1115:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1)
Line 1116:             Me.InitializeCulture
Line 1117:             
Line 1118:             #End ExternalSource
Line 1119:             Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1120:             
Line 1121:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1)
Line 1122:             __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(787, 787, true))
Line 1123:             
Line 1124:             #End ExternalSource
Line 1125:             Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 1126:             
Line 1127:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1)
Line 1128:             __ctrl1 = Me.__BuildControlshowResult
Line 1129:             
Line 1130:             #End ExternalSource
Line 1131:             
Line 1132:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1)
Line 1133:             __parser.AddParsedSubObject(__ctrl1)
Line 1134:             
Line 1135:             #End ExternalSource
Line 1136:             
Line 1137:             #ExternalSource("G:\PleskVhosts\datalaya.co.uk\httpdocs\liveDocServe\callAPIv2.aspx",1)
Line 1138:             __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(10)&"    "&Global.Microsoft.VisualBasic.ChrW(10)&"  </body>"&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 1139:             
Line 1140:             #End ExternalSource
Line 1141:         End Sub
Line 1142:         
Line 1143:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 1144:         Protected Overrides Sub FrameworkInitialize()
Line 1145:             MyBase.FrameworkInitialize
Line 1146:             Me.SetStringResourcePointer(Global.ASP.livedocserve_callapiv2_aspx.__stringResource, 0)
Line 1147:             Me.__BuildControlTree(Me)
Line 1148:             Me.AddWrappedFileDependencies(Global.ASP.livedocserve_callapiv2_aspx.__fileDependencies)
Line 1149:             Me.Request.ValidateInput
Line 1150:         End Sub
Line 1151:         
Line 1152:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 1153:         Public Overrides Function GetTypeHashCode() As Integer
Line 1154:             Return -1317667522
Line 1155:         End Function
Line 1156:         
Line 1157:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 1158:         Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 1159:             MyBase.ProcessRequest(context)
Line 1160:         End Sub
Line 1161:     End Class
Line 1162: End Namespace
Line 1163:

Server Error in '/' Application.

Compilation Error

https://finki.io/latestKID.php?isin=IE00BYPLS672