Send Mail With SMTP
Send email using SMTP.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
Public Function split_logonname()
'-------------------------------------------------
' (c) Illuminaries Ltd 2002 . All rights reserved.
'-------------------------------------------------' Written By : Jonathan Adams (MCP)
' web address : www.illuminaries.co.uk
'-------------------------------------------------' Change the code as you please but please
'leave the copyright information
'-------------------------------------------------
' Description :
'-------------------------------------------------' The NT Auth. logon name contains the domain
'name along with the logon name. This routine
' removes the domain name and returns the Logon name only
'-------------------------------------------------
Dim strUsername
Dim l_splitpoint
strUsername=Request.ServerVariables("LOGON_USER")
l_splitpoint=instr(strUserName,"\")
if l_splitpoint>0 then
split_logonname=right(strUsername,len(strUsername) - (l_splitpoint))
else
l_splitpoint=instr(strUserName,"/")
if l_splitpoint>0 then
split_logonname=right(strUsername,len(strUsername) - (l_splitpoint))
else
split_logonname=strUsername
end if
end if
End Function
Original Comments (3)
Recovered from Wayback Machine