checkAllowedmail = rs("M_ALLOWEMAIL")
			if isnull(checkAllowedmail) then
			       		strSql="UPDATE " &
 strMemberTablePrefix & "MEMBERS SET M_ALLOWEMAIL = 0 WHERE MEMBER_ID = " & MemberID
			set rsmail = Server.CreateObject("ADODB.Recordset") 
      			rsmail.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText 
      			set rsmail=Nothing			strSql = "SELECT M_ALLOWEMAIL FROM " & strMemberTablePrefix & "MEMBERS " 
      			strSql = strSql & " WHERE MEMBER_ID = " & MemberID
				set rs1 = my_Conn.Execute (strSql)			intAllowEmail = cInt(rs1("M_ALLOWEMAIL"))	 		rs1.close
	 	else	 	       
intAllowEmail = cInt(rs("M_ALLOWEMAIL"))	 	
end if

<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message") 
     
'This section provides the configuration information for the remote SMTP server.
     
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yoursite.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     
' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com"
'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"
     
ObjSendMail.Configuration.Fields.Update
     
'End remote SMTP server configuration section==
     
ObjSendMail.To = "someone@someone.net"
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "someone@someone.net"
     
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
     
ObjSendMail.Send
     
Set ObjSendMail = Nothing 
%> 

	case "cdosys"
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
        	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mail.starfrontiers.org
		Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
		Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Art@starfrontiers.org"
		Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********"

 'Else
			'Comment out down to the next comment to let it take me@example.com and/or .ex as well
			'strsql = "SELECT SPAM_SERVER FROM " & strTablePrefix & "SPAM_MAIL WHERE SPAM_SERVER = '" & chkString(Request.Form("Email"),"sqlstring") & "'"
			'set rsSpam = my_Conn.Execute (strsql)
			
			'If Not rsSpam.EOF Then
			'	Err_Msg = Err_Msg & "<li>You cannot register with '" & chkString(Request.Form("Email"),"sqlstring") & "'.</li>"
			'End If 
			
			'Dim strMailTLD : strMailTLD = LCase(Mid(Request.Form("Email"),InStrRev(Request.Form("Email"),".")))
			
			'strsql = "SELECT SPAM_SERVER FROM " & strTablePrefix & "SPAM_MAIL WHERE SPAM_SERVER = '" & strMailTLD & "'"
			'set rsSpam = my_Conn.Execute (strsql)
			
			'If Not rsSpam.EOF Then
			'	Err_Msg = Err_Msg & "<li>You cannot register with a '" & strMailTLD & "' email address.</li>"
			'End If 
			'Comment out up to the previous comment to let it take me@example.com and/or .ex as well
			
			'strMailDomain = LCase(Mid(Request.Form("Email"),InStrRev(Request.Form("Email"),"@")))
			
			'strsql = "SELECT SPAM_SERVER FROM " & strTablePrefix & "SPAM_MAIL WHERE SPAM_SERVER = '" & strMailDomain & "'"
			'set rsSpam = my_Conn.Execute (strsql)
			
			'If Not rsSpam.EOF Then
			'	Err_Msg = Err_Msg & "<li>You cannot register with an '" & strMailDomain & "' email address.</li>"
			'End If 
			
			'rsSpam.close
			'Set rsSpam = Nothing