Here is the code
<%
'Create object to put script at sleep to avoid tarpit
Set Shell = CreateObject("Wscript.Shell")
Dim PathToPB
'Open recordset with players
rst.OPEN "SELECT playerID, playerLFSWNick FROM tblPlayers WHERE playerStatus = 1 OR playerStatus = 2 OR playerStatus = 3", Conn, 3, 1
if not rst.EOF then
'Loop through recordset    
    Do While Not rst.EOF
        
        'Empty txt file containing data
        EmptyTxt(PathToPBTxt)
        
        'URL (path) to LFSWorld Pubstat PB data
        PathToPB = PubStatPB & rst("playerLFSWNick")
        
        'Create object to "grab" data from LFSWorld
        Dim xobjPB
        Set xobjPB = CreateObject("SOFTWING.ASPtear")
        
        '"grab" data from LFSWorld
        Dim strRetPB
        strRetPB = xobjPB.Retrieve(PathToPB, Request_GET, "test=wille", "", "")
        'Destroj object
        Set xobjPB = nothing
        'Check if there is any record
        if Trim(strRetPB) = "pb: racer has no pbs" then
            Response.Write("No PB's for: " & rst("playerLFSWNick") & "<br>")
        elseif Trim(strRetPB) = "can't reload this page that quickly after another" then
            Response.Write("Too soon<br>")            
        else    
            'Save data to TXT file
            Call SaveToTxt(PathToPBtxt, strRetPB)
            
            'Read data from TXT file and put it into array
            dim strPB
            redim arrPB(-1)
            dim e, objFSPB, objTSPB
            set objFSPB = Server.CreateObject("Scripting.FileSystemObject")
            set objTSPB = objFSPB.OpenTextFile(PathToPBtxt, ForReading)
            
            e = 1
            do until objTSPB.AtEndOfStream
              redim preserve arrPB(e)
              arrPB(e) = objTSPB.ReadLine
              e = e + 1
            loop
            
            set objFSPB = nothing
            Set objTSPB = nothing
            
            'Parse data from array 
            Dim fPB
            Dim arrPBUpper, SplitPB
            Dim PBId, PBTrack, PBCar, PBSplit1, PBSplit2, PBSplit3, PBTime, PBLaps
            Dim PBPlayerID, PBTrackID, PBCarID
            
            fPB = 1
            arrPBUpper = UBound(arrPB)
    
            Do While Not fPB > arrPBUpper
                SplitPB = Split(arrPB(fPB), " ")
                PBTrack = SplitPB(0)
                PBCar = SplitPB(1)
                PBTime = SplitPB(2)
                PBLaps = SplitPB(3)
                
                PBPlayerID = rst("playerID")
                
                PBTrackID = GetTrackID_LFSWID(PBTrack)
                
                PBCarID = GetCarID_CarShort(PBCar)
                
                'open recordset with players records and insert or modify record
                rst2.OPEN "SELECT playerID, carID, trackID, recordLFSOnline, recordLFSHotLap, recordLFSLapper FROM tblRecords WHERE playerID = " & PBPlayerID & " AND carID = " & PBCarID & " AND trackID = " & PBTrackID & "", Conn, 1, 2
                if rst2.EOF then
                    rst2.AddNew
                    rst2("playerID") = PBPlayerID
                    rst2("carID") = PBCarID
                    rst2("trackID") = PBTrackID
                    rst2("recordLFSOnline") = PBTime
                    rst2("recordLFSHotLap") = "0"
                    rst2("recordLFSLapper") = "0"
                    rst2.Update
                else
                    if rst2("recordLFSOnline") <> PBTime then
                        rst2("playerID") = PBPlayerID
                        rst2("carID") = PBCarID
                        rst2("trackID") = PBTrackID
                        rst2("recordLFSOnline") = PBTime
                        rst2.Update
                    end if    
                end if        
                rst2.Close
                fPB = fPB + 1
            Loop
        end if
    'Move to next player
    rst.MoveNext
    'Empty TXT file
    EmptyTxt(PathToPBTxt)
    Response.Flush()
    'Put script to sleep for 6 seconds
    Shell.Popup "", 6
    Loop
end if
'Destroy shell object
Set shell = nothing
%>