<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta charset="utf-8">

<%
Set Baglanti = Server.CreateObject("adodb.connection")
Baglanti.Open = "driver={mysql odbc 3.51 driver}; server=xxxxx.com; UID=xxxxxx; pwd=xxxxx?6; db=xxxxx; port=3306;stmt=SET NAMES 'utf8'"

Baglanti.Execute "SET NAMES 'utf8'"
Baglanti.Execute "SET CHARACTER SET utf8"
Baglanti.Execute "SET COLLATION_CONNECTION = 'utf8_general_ci'"

Dim Conn, Sql, rs
Set Conn = Server.createobject("ADODB.Connection")
'Conn.Open "Driver={Microsoft Excel Driver (*.xls)}; DriverId=790;DBQ=C:\inetpub\wwwroot\kitapci\yonetim\turkce.xls;DefaultDir = C:\Inetpub\wwwroot\excel\" 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\kitapci\yonetim\turkce.xls;Extended Properties=Excel 8.0;Persist Security Info=False"
   ' Ark1 is danish for Sheet1
    Sql = "select * from [Veri$]"
	Set kate = Server.CreateObject("ADODB.RecordSet")
			aSQL = "select * from kitap"
			kate.open aSQL,Baglanti,1,3
			
set rs = Conn.Execute(Sql)
ii=0
xx="ilk"
'on error resume next
do while not rs.eof or rs.bof
    response.write "gg" & rs("Kitap Adi") & "gg<br>" & vbCrLf
    if rs("Kitap Adi")<>"" then
    on error goto 0

   			kate.addnew
			kate("kadi")= rs("Kitap Adi")
			kate("kbarkod")= rs("Barkod No")
			kate("korjinal")= rs("Kitap Orijinal Adi")
			kate("isbn")= rs("ISBN")
			kate("tarih")= rs("Basim Yili")
			kate("sayfa")= rs("Sayfa Sayisi")
			
if 	rs("Yazari")<>"" then
		    kyazari=replace(rs("Yazari"),"'","\'")
			if  baglanti.execute("select * from yazar where adi like '" & kyazari & "'"  ).eof=true then
				baglanti.execute("insert into yazar(adi) values('" &  kyazari &"')")
			end if
			set yazarbul=baglanti.execute("select * from yazar where adi like '" & kyazari & "'"  ) 	
end if		

			'kate("kyazar")= yazarbul("id")
			
			kate("ceviri")= rs("Ceviren")
			kate("kturu")= rs("Turu")
			kate("yayinevi")= rs("Yayin Evi")
			kate("cilt")= rs("Cilt Numarasi")
			'kate("materyalt")= rs("Materyal Turu")
			'kate("kadi")= rs("ppppi")
			'kate("kadi")= rs("ppppi")
			'kate("kadi")= rs("ppppi")
response.write "oldu<br>"
			kate.update
	end if
	ii=ii+1:if ii=4 then exit do
    rs.movenext
loop

    Conn.CLose
Set Conn = nothing
%>

iyi akşamlar bu kodlar ile exceldeki verileri mysql e aktarmak istiyorum ancak ekleme sırasında türkçe karekterden sonraki kısmı kayıt etmiyor.
örenğin: sadasdasıasdasd olacak yeri sadasdas olacak şekilde kaydediyor. bir türlü çözemedim. hosting firması da daha güncel odbc kaynağı kullanmıyor. aklıma gelen her şeyi denedim hiç bişey değişmedi