'This throws one record at the "Catcher" page out on the Web server
Function PostRecord(sAction, sTable, sIDField, iID)

    'This is the URL to your catcher page
    sURL = "http://www.mysite.com/catcher.php"

    'Get all the data for this record
    sSQL = "SELECT * FROM " & sTable & " WHERE "
    
    'This mess is just in case we have composite keys
    aIDFields = Split(sIDField, ",")
    aIDValues = Split(iID, ",")

    For x = 0 To UBound(aIDFields)

        sSQL = sSQL & aIDFields(x) & " =  " & aIDValues(x) & " AND "

    Next

    'Write the SQL
    sSQL = Left(sSQL, Len(sSQL) - 5)

    'Get the record
    Set rsData = CurrentDb.OpenRecordset(sSQL)

   If Not rsData.EOF Then
    
        'Start the post data
        sPostData = "_ACTION=" & sAction & "&_TABLE=" & sTable & "&_IDFIELD=" & sIDField & "&_IDVALUE=" & iID & "&"
    
        'Loop through the fields and create the POST string
        For Each oField In rsData.Fields
        
            sPostData = sPostData & oField.Name & "=" & Utility.URLEncode(rsData.Fields(oField.Name)) & "&"
            
        Next

        'Throw it at the catcher page
        Set oHTTP = CreateObject("Microsoft.XMLHTTP")
        oHTTP.Open "POST", sURL, False
        oHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        oHTTP.SetRequestHeader "Content-Length", Len(sPostData)
        oHTTP.SetRequestHeader "User-Agent", "Microsoft Access"
        oHTTP.Send sPostData
        
        'Return the response
        PostRecord = sResponse
        
    End If
    
End Function