echo
<%
   'Create the DSNless connection / instantiate
   dbPath = "c:\speedtestresults.mdb"
   set oConn=server.createobject("ADODB.connection")
   oConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath 
   'Read the recordset object from the table 
   adOpenDynamic=2
   adLockPessimistic=2
   set oRS=Server.Createobject("ADODB.Recordset")
   oRS.open "speedtestresults", oConn, adOpenDynamic, adLockPessimistic
   oRS.AddNew
   oRS("rsdate") = FormatDateTime(Now(), vbShortDate)
   oRS("rstime") = FormatDateTime(Now(), vbShortTime)   
   oRS("rsresult") = Request.Form("testspeeds") & " "
   oRS("rsip") = request.servervariables("REMOTE_ADDR")
   oRS("rsuseragent") = request.servervariables("HTTP_USER_AGENT")
   oRS("rsReferrer") = request.servervariables("HTTP_REFERER") & " [OR]" & request.servervariables("HTTP_REFERRER")
   oRS.Update
   oRS.Close
   Set oRS=nothing
   oConn.close
   Set oConn=nothing
   Response.end
%>