<%
	on error resume next

	Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
	Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 	
	Const cdoAnonymous = 0 'Do not authenticate
	Const cdoBasic = 1 'basic (clear-text) authentication
	Const cdoNTLM = 2 'NTLM 


	Dim error, resStr
	Dim f_unable, f_name, f_number
	Dim objCDO, strBody

'#####################################################################################3

	Function RegExpTest(sEmail)
	  RegExpTest = false
	  Dim regEx, retVal
	  Set regEx = New RegExp
	  regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$" 
	  regEx.IgnoreCase = true
	  retVal = regEx.Test(sEmail)
	  If not retVal Then
	    exit function
	  End If
	
	  RegExpTest = true
	End Function
	
'#####################################################################################3
	
	f_unable = Request("f_unable")
	f_name = Request("f_name")
	f_number = Request("f_number")
	
	error = 0
	
'#####################################################################################3
	
	'check unable
	if f_unable <> "" then
	  f_unable = Cstr(f_unable)
	  if f_unable = "" then
	  	error = 1
	   	resStr = resStr & "&err_f_unable=1"
	  end if
	else
		error = 1
		resStr = resStr & "&err_f_unable=1"
	end if

	'check name		
	if f_name <> "" then
	  f_name = Cstr(f_name)
	  if f_name = "" then
	  	error = 2
	   	resStr = resStr & "&err_f_name=1"
	  end if
	else
		error = 2
		resStr = resStr & "&err_f_name=1"
	end if		
	
	'check number
	if f_number <> "" then
	  f_number = Cstr(f_number)
	  if f_number = "" then
	  	error = 1
	   	resStr = resStr & "&err_f_number=1"
	  end if
	else
		error = 1
		resStr = resStr & "&err_f_number=1"
	end if

'#####################################################################################3
	
	if error = 2 Then
		
		Response.write("&done=1&result=error&err_msg=Please complete all fields" & resStr)
		
	else
		strBody = ""
		strBody = strBody & "unable: " & f_unable & vbCrLf
		strBody = strBody & "Name: " & f_name & vbCrLf
		strBody = strBody & "number: " & f_number & vbCrLf
		
		
		Set objCDO = Server.CreateObject("CDO.Message")		
		
		objCDO.Subject = "Site Feedback"
		
		objCDO.From = "feedback@cenxus.com"		
		
		objCDO.To = "leslie@cenxus.com, jacque_chin@yahoo.com"
		
		objCDO.TextBody = strBody
		
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		
		'Name or IP of Remote SMTP Server
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cenxus.com"
		
		'Type of authentication, NONE, Basic (Base64 encoded), NTLM
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		
		'Your UserID on the SMTP server
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "feedback@cenxus.com"
		
		'Your password on the SMTP server
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "feedback"
		
		'Server port (typically 25)
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
		
		'Use SSL for the connection (False or True)
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
		
		'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
		objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		
		objCDO.Configuration.Fields.Update
		
		objCDO.Send
		
		if err.number <> 0 then 
			
			Response.write("&done=1&result=error&err_msg=Send Email error number: " & CSTR(err.number) & " description: " & err.description)
		Else

			Response.write("&done=1&result=ok")
		
		End If
		
		set objCDO=nothing	
		
	end if

%>