Automated email from an updated database

[Cheryl399]

Hello everyone,

Im having trouble trying to get my automated email function to work, im not sure if this line of code is even right though. What i want to do is when a user fills out a form and then updates the database, then be able to send a notifcation email to myself letting me know that the database has been updated.

When i try to run this i get the error: Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub

Here is my code:


<%
Dim MM_editAction
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
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_MyDSN_STRING
MM_editCmd.CommandText = "INSERT INTO DeskTable (Problem_ID, Priotiy_Level, Problem_Site, Problem_Description, Problem_Status) VALUES (?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, 255, MM_IIF(Request.Form("ProblemID"), Request.Form("ProblemID"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("PriorityLevel")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("ProblemSite")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("ProblemDescription")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("ProblemStatus")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "SubmitTest.asp"
mail("cheryl.corbett@soutmarstondc.com","Record Updated","A record was updated"); <where it stops

If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "Email.php" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If


If anyone could help me on this that would be great :) thanks

[yamaharuss]

http://www.google.com/search?q=Cannot+use+parentheses+when+calling+a+Sub&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a