Forum Moderators: open
<%
If (CStr(Request("MM_insert")) = true ) ThenDim StrEmail, StrName
StrEmail = MM_fieldsStr("email")
StrName = MM_fieldsStr("fullname")
Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
With objMail
.From = strName & " " & strEmail
.To = "brett2@umbc.edu"
.Subject = "[UMBC EMS] Add Member " & strName & " [UMBC EMS]"
.Body = strName & " requests authorization to the UMBC EMS Member Section" & vbCrLf & vbCrLf & "Email Address: " & strEmail & vbCrLf & vbCrLf & "==========================================" & vbCrLf & Date() & " at " & Time()
.Send
End With
Set objMail = Nothing
MM_RedirectURL = "add_success.asp"
Else
MM_redirectURL = "add_failure.asp"
End If
%>
Thanks in advance for your help.
~Brett
~Brett