Username added to login event email

if you have an email field in your user table assign a session var or use rsexists or existing sessions:
tmpDict("body")="Someone has logged in - username: " & Session("UserID")
// After successful login

Sub AfterSuccessfulLogin(username,password)
strSQLExists = "Select Name, Email, Role, simsLogin, simsRepNo, Identifier, DistList From NTSS_USERS Where LoginName = " & "'" & cstr(SESSION("UserID")) & "'"

set rsExists = CreateObject("ADODB.Recordset")

rsExists.Open strSQLExists, dbConnection
if not rsExists.eof then

SESSION("UserIDName") = rsExists("Name")

SESSION("UserIDEmail") = rsExists("Email")

SESSION("UserIDRole") = rsExists("Role")

SESSION("simsLogin") = rsExists("simsLogin")

SESSION("simsRepNo") = rsExists("simsRepNo")

SESSION("Identifier") = rsExists("Identifier")

SESSION("DistList") = rsExists("DistList")

Session("LogiDatTim") = Now()

else
end if

rsExists.Close : set rsExists = Nothing
End Sub ' AfterSuccessfulLogin

Thanks, but that looks far too complicated for me to use! Can't I just add the Username / userID to the event? Sorry to be such a tool.

dim tmpDict

set tmpDict = CreateObject("Scripting.Dictionary")

tmpDict("to")="me@gmail.com"

tmpDict("subject")="Login"

tmpDict("body")="Someone has logged in. FYI. - Username: " & Session("UserID")

set ret=runner_mail(tmpDict)

if not ret("mailed") then

response.write ret("message")

end if

Clig: Beautiful! That worked perfectly. Thanks a ton.

anytime