Hi to all,
I am new to asp...there, I said it. what a relief...
OK. I am stuck !. I have been working on a record updating tool. It works well, however, I need to add an email feature to it. Once a record modified, it also needs to send an e-mail to a person with the changes done to the db. For the e mail I'm using the SMTP from the Server.
I need tomthing like: If record update happens then e-mail with new values are send to ; if update does not happen then no email.

Does anyone can give me a hand with that? I am including the code I have thanks in advance:

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")
If (Request.QueryString <> "" Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

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

If (CStr(Request("MM_update") = "EditProfile" And CStr(Request("MM_recordId") <> "" Then

MM_editConnection = MM_connOENDB1_STRING
MM_editTable = "Users"
MM_editColumn = "UserID"
MM_recordId = "" + Request.Form("MM_recordId" + ""
MM_editRedirectUrl = "protected_page.asp"
MM_fieldsStr = "FirstName|value|LastName|value|CompanyName|value|TitlePosition|value|AddressLineA|value|AddressLineB|value|City|value|StateProvince|value|Country|value|ZipPO|value|Phone|value|Fax|value|Website|value|UserName|value|UserPassword|value|EmailAddress|value"
MM_columnsStr = "FirstName|',none,''|LastName|',none,''|CompanyName|',none,''|TitlePosition|',none,''|AddressLine1|',none,''|AddressLine2|',none,''|City|',none,''|StateProvince|',none,''|Country|',none,''|ZipPostCode|',none,''|TelephoneNo|none,none,NULL|Fax|none,none,NULL|CompanyWebsite|',none,''|UserName|',none,''|Password|',none,''|UserEmail|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"
MM_columns = Split(MM_columnsStr, "|"

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

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

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

If (CStr(Request("MM_update") <> "" And CStr(Request("MM_recordId") <> "" Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),","
MM_delim = MM_typeArray(0)
If (MM_delim = "none" Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none" Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none" Then MM_emptyVal = ""
If (MM_formVal = "" Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "" Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'" Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''" & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

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

If (MM_editRedirectUrl <> "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim rsEditProfile__MMColParam
rsEditProfile__MMColParam = "1"
If (Session("MM_UserID" <> "" Then
rsEditProfile__MMColParam = Session("MM_UserID"
End If
%>
<%
Dim rsEditProfile
Dim rsEditProfile_numRows

Set rsEditProfile = Server.CreateObject("ADODB.Recordset"
rsEditProfile.ActiveConnection = MM_connOENDB1_STRING
rsEditProfile.Source = "SELECT UserID, CompanyName, CompanyWebsite, Salutation, FirstName, LastName, TitlePosition, AddressLine1, AddressLine2, City, StateProvince, ZipPostCode, Country, TelephoneNo, Fax, UserEmail, UserName, Password, AccessGroups FROM Users WHERE UserID = " + Replace(rsEditProfile__MMColParam, "'", "''" + ""
rsEditProfile.CursorType = 0
rsEditProfile.CursorLocation = 2
rsEditProfile.LockType = 1
rsEditProfile.Open()

rsEditProfile_numRows = 0
%>