<%Option Explicit%>
<%
' === AJAX Routines                                 ===
%>
<!--#include virtual="/dbfunctions.asp"-->
<!--#include virtual="/apputils.asp"-->
<%
'DebugOn
'SetDebugLogTypeToFile
'WebDebugLog

DoAjaxMain

Sub DoAjaxMain
  Dim LCmd
  LCmd = Request("cmd") 
  If LCmd = "save" Then
    SaveClipboard Request("clipboard")
  End If
End Sub  

' make sure this setting exists, otherwise it won't be updated
Sub SaveClipboard(AClipboard)
  SetSettingMemo "Scratch", "Clipboard", AClipboard
End Sub

' (SS,1/3/23) save value in memo field, to be made into a dbfunctions routine, may need to make it unicode/utf8?
Sub SetSettingMemo(AGroupName, AFieldName, AFieldValue)
  DebugLog 1, "SetSettingMemo called with " & AGroupName & ", " & AFieldName
  SQLExecute "SetSettingMemo", "UPDATE settings SET MemoValue = '" & CleanSQLStr(AFieldValue) & "' WHERE GroupName = '" & AGroupName & "' AND FieldName = '" & AFieldName & "'"
End Sub


%>

<%FinaliseAjax%>