Send Mail With SMTP

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