<!-- echo -->
<!-- Do not remove the echo comment above or speeds will not be recorded -->
<%
fp = Server.MapPath("st-results.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(FormatDateTime(Now(), vbShortDate))
a.WriteLine(FormatDateTime(Now(), vbShortTime))
a.WriteLine(Request.Form("testspeeds"))
a.WriteLine(request.servervariables("REMOTE_ADDR"))
a.WriteLine(request.servervariables("HTTP_USER_AGENT"))

end if
a.Close

%>