Japanse encoding not working while sending emails in classic asp

See more:

ASP

Hi All,
I am trying to run a vb script that will send email in Japanese, but while receiving email I am getting subject and text body as ?????.

Mail.From ="test@gmail.com"  
   		        
sendEmail = False

strSubject = "契約ID : 契約タイプ :"   
      		
strTextBody= "契約ID : 契約タイプ :" 	
	            
Mail.To = "siddharthroy88@gmail.com"

Mail.Subject = strSubject

Mail.TextBody = strTextBody

Mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp server"		             

Mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Mail.Configuration.Fields.Update

Mail.Send

msgbox(strTextBody)

Set Mail = Nothing

Please suggest how to encode this in Japanese using VB script

Please suggest how to encode this