Hi.

I am trying to develop an asp page that will ping a server (say google.com) from my home server, and than save the results to a database. We have been having internet troubles lately, and I want it to automatically ping google every (say 25 minutes) and then record the results to a database.

So far I have:

 
<% Response.Buffer = true %> 
<% 
    url = "Google" 
 
    Set objWShell = CreateObject("WScript.Shell") 
    Set objCmd = objWShell.Exec("ping " & url) 
    strPResult = objCmd.StdOut.Readall() 
    set objCmd = nothing: Set objWShell = nothing 
 
    strStatus = "offline" 
    if InStr(strPResult,"TTL=")>0 then strStatus = "online" 
 
    response.write url & " is " & strStatus 
    response.write ".<br>" & replace(strPResult,vbCrLf,"<br>") 
%>

This will post the results on screen, but I would like these to go to a my connected MS Access database.

Any suggestions
Thanks

Here is a simple insert script you can customize to fit your needs. Replace with your variable names.

<%
dim sSQL, sConnString
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ 
"Data Source=" & Server.MapPath("your_database_name.mdb") 
Set connection = Server.CreateObject("ADODB.Connection")
sSQL="INSERT INTO tablename (fieldname1, fieldname2) VALUES ('value to enter into fieldname1', 'value to enter into fieldname2')" 
connection.Open(sConnString)
connection.execute(sSQL)
Connection.Close
Set Connection = Nothing
%>