ASP Send Mail โดยดึงข้อมูล email จาก database หากข้อมูลจาก database มีเมล์มากกว่า 1 เมล์จะไม่สามารถส่งได้

 IP = request.servervariables("REMOTE_ADDR")
  Browser = request.servervariables("HTTP_USER_AGENT")
  NowDate = now()
    set msg = Server.CreateOBject( "JMail.Message" )
	msg.Logging = true
		msg.ContentType = "text/plain; format=flowed"
		msg.Charset = "tis-620"
		msg.ContentTransferEncoding = "Quoted-Printable"
		msg.ISOEncodeHeaders = False
		msg.From =request.form("txtemail")
		'msg.From = request.form("txtemail")
	'	msg.FromName = request.form("txtemail")
		'msg.ReplyTo = request.form("txtemail")
        msg.AddRecipient request.form("txtmail"), request.form("txtmail")
	  		msg.Subject = "Test-Mail "
		
 
 xbody  =   "E-mail form Website:-" &chr(13)&_   
	 "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " &chr(13)&_
	"Name  ........................... " &request.form("txtsubject")&chr(13)&_             
    "Detail  .......................... " &request.form("txtdetail")&chr(13)&_            
     "Date:  ....................." &NowDate&chr(13)&_
       chr(13)&_  
	   chr(13)&_  
       "********************************************************************" &chr(13)&_
	" IP Address,Version Of  Browser , Date , Booking  Belows  "&chr(13)&_
      "********************************************************************" &chr(13)&_
	     IP&chr(13)&_
	    Browser&chr(13)&_
	      NowDate&chr(13)&_
		  chr(13)&_  
		   chr(13)&_  
	  	   "- - - - - -  TEST  - - - - - - "

  
 '     If Ucase(result) = "FALSE" then  	
  '  	      status = " is not ready , you may try again"
'	  Else
'	      status = " is ready"
'	End If
msg.Body = xbody
		If Not msg.Send("test.test.com") Then
			Response.write "<pre>" & msg.log & "</pre>"
		Else
			message = "เมล์ของท่านถูกส่งเรียบร้อยแล้ว"
		End If
%>