insert ข้อมูลภาษาไทย แต่เวลาลง SQL Server 2008 แสดงเป็นภาษาต่างด้าว

'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   Dim  imgFolderName
   intCount=0
        
'  Object creation
'  ***************
	
	set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
	mySmartUpload.CodePage = "Windows-874"
	mySmartUpload.TotalMaxFileSize = 8388608
	mySmartUpload.MaxFileSize = 2097152
	mySmartUpload.AllowedFilesList = "jpg,jpeg,png,pdf,doc,xls,ppt"
	mySmartUpload.DeniedFilesList = "bat,exe,com,asp"
	mySmartUpload.DenyPhysicalPath = True

	  
'  Upload
'  ******
    mySmartUpload.Upload

	type_id=mySmartUpload.Form("type_id")
    txttype=mySmartUpload.Form("txttype")
	law1_id=mySmartUpload.Form("law1_id")
	law2_id=mySmartUpload.Form("law2_id")
	txtname=mySmartUpload.Form("txtname")
	txtpdf=mySmartUpload.Files("txtpdf").Filename
	  
	imgFolderName=Server.MapPath(txttype)
	imgMaxFileSize=2048 * 1024
	'------------------------------------วนลูปตรวจสอบ file------------------------------------------
	 For each file In mySmartUpload.Files
	 
	 select case LCase(Right(file.Filename, 3))
	 case "gif", "jpg","pdf", "doc", "ppt", "zip", "rar", "xls"
	 
	   if  file.size  > imgMaxFileSize then
		txterr= "An error has occured saving uploaded file!<br><br>"
		txterr=txterr& "File size (" &file.size& " Bytes) is more than max file size (" & FormatNumber(imgMaxFileSize,0) & " Bytes).<br>"
		txterr=txterr& "Please correct and <A HREF=""javascript:history.back(1)"">try again</a>"
		response.write "<span class=head>"&txterr&"</span>"
		Response.End
	    end if
		
	  Set fs = Server.CreateObject("Scripting.FileSystemObject")
      If fs.FileExists(imgFolderName& "\"&file.Filename) Then	   
      txterr="<B>An error has occured saving uploaded file!</B><br><br>"
	  txterr=txterr& "Filename: <font color='#FF0000'>[" &file.Filename& "]</font><br>"
	  txterr=txterr& "It duplicates the existing file.<br>"
	  txterr=txterr& "Please correct and <A HREF=""javascript:history.back()"">try again</a><br><br>"
	  response.write "<span class=head>"&txterr&"</span>"
	  Response.End
	  End If
	  Set fs = Nothing
	  
		case else
		txterr= "An error has occured saving uploaded file!<br><br>"
		txterr=txterr& "Filename: " &file.FileName& "<br>"
	    txterr=txterr& "File extensions should only be ""gif , jpg , xls  , pdf , doc , rar , ppt , zip"".<br>"
		txterr=txterr& "Please correct and <A HREF=""javascript:history.back(1)"">try again</a>"
		response.write "<span class=head>"&txterr&"</span>"
		Response.End
		end select
		Next
'-----------------------------------------จบการตรวจสอบ------------------------------------------------------	
mySmartUpload.Save(txttype)	
'mySmartUpload.Save(Server.MapPath("temp"))



	
'-------------------------------------------บันทึกไฟล์ลงFloder--------------------------------------------

' END  UPLODE  ../images
'-------------------------------------------------------------------
  Set rs=Server.CreateObject("ADODB.Recordset")
  sql="SELECT * FROM npcse.tbllaw3  "
   rs.open sql,Conn,1,3
   rs.addnew
   
        rs("type_id") =type_id
		rs("law1_id")  =law1_id
		rs("law2_id")  =law2_id
		rs("down_type") =txttype
		rs("law3_topic") =txtname
		rs("law3_pdf") =mySmartUpload.Files("txtpdf").Filename
	    rs("law3_insert")=Day(date)&"/"&Month(date) &"/"&Year(date)&":"&time() 
        rs("law3_inuser")=session("user")
   rs.Update
    rs.close
   set rs=nothing  
'---------------------------------------------------------------------------------------------------------------------