<% Session.LCID=2057 url = "http://www.lfsworld.net/pubstat/get_stat2.php?action=pst&racer=abz1" set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, false xmlhttp.send "" temp = xmlhttp.responseText Sub saveDataFile() strFile = Server.MapPath("/lfs_databoth.txt") set TEMPfs=Server.CreateObject("Scripting.FileSystemObject") set TEMPf=TEMPfs.OpenTextFile(strFile, 2, True) TEMPf.Writeline temp TEMPf.Close Set TEMPf=Nothing Set TEMPfs=Nothing End Sub if temp = "can't reload this page that quickly after another" then Set fs=Server.CreateObject("Scripting.FileSystemObject") strFile = Server.MapPath("/lfs_databoth.txt") Set f=fs.OpenTextFile(strFile, 1) textFile =f.ReadAll arr = split(textFile,Chr(10)) f.Close Set f=Nothing Set fs=Nothing else saveDataFile() arr = split(temp,Chr(10)) end if set xmlhttp = nothing %>
LFS Stats

Distance:

 <% temp = arr(0) * 0.000621371192 'roundup distance = Int(temp)+ 1 response.write(distance & " Mi")%>

Fuel used:

 <% feul = arr(1)/100 response.write(feul) & " L"%>

Laps:

 <%=arr(2)%>

No. Hosts:

 <%=arr(3)%>

Won:

 <%=arr(4)%>

Two:

 <%=arr(5)%>

Three:

 <%=arr(6)%>

Finished:

 <%=arr(7)%>

Qual:

 <%=arr(8)%>

Pole:

 <%=arr(9)%>

Credits:

 <%=arr(10)%>

Drags:

 <%=arr(11)%>

Drag Wins:

 <%=arr(12)%>
   *Updated on refresh