Dim objLayer, objDS
Set objLayer = Map.Layers("POINTS")
Set objDS = objLayer.DataSource
Dim strsql
strsql = "insert INTO [POINTS] (AXF_TIMESTAMP, AXF_STATUS) VALUES (GETDATE(), 1)"
objDS.Execute strsql
Map.Refresh(True)
Set objLayer = Nothing
Set objDS = Nothing
UPDATE [POINTS] SET AXF_TIMESTAMP = GETDATE(), AXF_STATUS = 16777218;