tracking DB changes using jmail

[struth]

My problem is I want to know by email when people have updated/inserted or added to my database. Have tried adding in the following but it just died. Jmail is alive on my server.

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request(&quot;URL&quot)
If (Request.QueryString <> &quot;&quot Then
MM_editAction = MM_editAction & &quot;?&quot; & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = &quot;&quot;
%>
<%
' *** Update Record: set variables

If (CStr(Request(&quot;MM_update&quot) <> &quot;&quot;
And CStr(Request(&quot;MM_recordId&quot) <> &quot;&quot
Then

MM_editConnection = MM_nof_data_STRING
MM_editTable = &quot;DataEntry&quot;
MM_editColumn = &quot;DataEntry_ID&quot;
MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot + &quot;&quot;
MM_editRedirectUrl = &quot;&quot;
MM_fieldsStr = &quot;ActivityTitle|value|StartDate|value|Finish_Date|value|
Session|value|MinNo|value|Noofweeks|value|Organiser|value|Ve
nue|value|Outcomes|value|Monitoring|value&quot;
MM_columnsStr = &quot;ActivityTitle|',none,''|StartDate|',none,''|Finish_Dat
e|',none,''|Session|',none,''|MinNo|none,none,NULL|Noofweeks
|none,none,NULL|Organiser|',none,''|Venue|',none,''|Outcomes
|',none,''|Monitoring|',none,''&quot;

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, &quot;|&quot
MM_columns = Split(MM_columnsStr, &quot;|&quot

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> &quot;&quot; And
Request.QueryString <> &quot;&quot Then
If (InStr(1, MM_editRedirectUrl, &quot;?&quot;,
vbTextCompare) = 0 And Request.QueryString <> &quot;&quot
Then
MM_editRedirectUrl = MM_editRedirectUrl & &quot;?
&quot; & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl &
&quot;&&quot; & Request.QueryString
End If
End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request(&quot;MM_update&quot) <> &quot;&quot;
And CStr(Request(&quot;MM_recordId&quot) <> &quot;&quot
Then

' create the sql update statement
MM_editQuery = &quot;update &quot; & MM_editTable &
&quot; set &quot;
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),&quot;,&quot
Delim = MM_typeArray(0)
If (Delim = &quot;none&quot Then Delim = &quot;&quot;
AltVal = MM_typeArray(1)
If (AltVal = &quot;none&quot Then AltVal =
&quot;&quot;
EmptyVal = MM_typeArray(2)
If (EmptyVal = &quot;none&quot Then EmptyVal =
&quot;&quot;
If (FormVal = &quot;&quot Then
FormVal = EmptyVal
Else
If (AltVal <> &quot;&quot Then
FormVal = AltVal
ElseIf (Delim = &quot;'&quot Then ' escape quotes
FormVal = &quot;'&quot; & Replace
(FormVal,&quot;'&quot;,&quot;''&quot & &quot;'&quot;
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & &quot;,&quot;
End If
MM_editQuery = MM_editQuery & MM_columns(i) & &quot; =
&quot; & FormVal
Next
MM_editQuery = MM_editQuery & &quot; where &quot; &
MM_editColumn & &quot; = &quot; & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject
(&quot;ADODB.Command&quot
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> &quot;&quot Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
dim varDataEntry_ID
dim varSchool_ID
dim varSchool_Code
dim varActivityTitle
dim varStartDate
dim varFinish_Date
dim varSession
dim varMinNo
dim varNoofweeks
dim varOrganiser
dim varVenue
dim varOutcomes
dim varMonitoring

varDataEntry_ID = rsActivityDetails.Fields.Item
(&quot;DataEntry_ID&quot.Value
varSchool_ID = rsActivityDetails.Fields.Item
(&quot;School_ID&quot.Value
varActivityTitle = rsActivityDetails.Fields.Item
(&quot;ActivityTitle&quot.Value
varStartDate = rsActivityDetails.Fields.Item
(&quot;StartDate&quot.Value
varFinish_Date = rsActivityDetails.Fields.Item
(&quot;Finish_Date&quot.Value
varSession = rsActivityDetails.Fields.Item
(&quot;Session&quot.Value
varMinNo = rsActivityDetails.Fields.Item
(&quot;MinNo&quot.Value
varNoofweeks = rsActivityDetails.Fields.Item
(&quot;Noofweeks&quot.Value
varOrganiser = rsActivityDetails.Fields.Item
(&quot;Organiser&quot.Value
varVenue = rsActivityDetails.Fields.Item
(&quot;Venue&quot.Value
varOutcomes = rsActivityDetails.Fields.Item
(&quot;Outcomes&quot.Value
varMonitoring = rsActivityDetails.Fields.Item
(&quot;Monitoring&quot.Value

Name = &quot;name&quot;
SenderEmail = &quot;unknown&quot;
Subject = &quot;Activity Details new or update&quot;
Recipient = &quot;shane.anderson@btinternet.com&quot;
Body = &quot;As requested , this email is inform you that
a school has updated or added anew activity to their OoSHL
Provision.&quot; &_
vbNewLine & vbNewLine &_

&quot;Added to the DataEntry Table were:&quot; & vbNewLine &_

&quot;DataEntry_ID : &quot; &
varDataEntry_ID & vbNewLine &_
&quot; School_ID :
&quot; & varSchool_ID & vbNewLine &_
&quot;Activitty Title : &quot; &
varActivityTitle & vbNewLine &_
&quot;StartDate : &quot; &
varStartDate & vbNewLine &_
&quot;Finish_Date : &quot; &
varFinish_Date & vbNewLine &_
&quot;Session : &quot; & varSession
& vbNewLine &_
&quot;MinNo : &quot; & varMinNo
& vbNewLine &_
&quot;Noofweeks : &quot; & varNoofweeks &
vbNewLine &_
&quot;Organiser : &quot; & varOrganiser
& vbNewLine &_
&quot;Venue : &quot; & varVenue
& vbNewLine &_
&quot;Outcomes : &quot; & varOutcomes &
vbNewLine &_
&quot;Monitoring : &quot; &
varMonitoring & vbNewLine &_
vbNewLine &_
&quot;End of update&quot;


Set JMail = Server.CreateObject(&quot;JMail.SMTPMail&quot

'not actual smtp I use
JMail.ServerAddress = &quot;smtp.struth&quot;

JMail.Sender = SenderEmail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader &quot;Originating-IP&quot;, Request.ServerVariables(&quot;REMOTE_ADDR&quot
JMail.Logging = True
JMail.Execute
%>

Any ideas

TIA