Asp Excel Veri Çağırma Sorunum

Merhaba Arkadaşlar Bizim Birime Günlük Olarak Gelen Bir Excel Dosyamız Var Ben Bu Excel Dosyasını Asp Kod İle veritabanına aktarıyorum sorunum şu birime gelen sütun Başlıklarımda Türkçe Karakterler Var

Örnek İrs. No Burada İ ve boşluk karakterlerinden dolayı veri çekemiyorum bunu asp sayfasıyla update edip örnek a3 e5 sütun başlıklarını otomatik değişebilirmiyim.

<%
' EXCEL dosyasýnýn ilk satýrý alan adlarýný gösterir... Bu örnekte alanlar AD, SOYAD, TEL...

abdulkadir = "DBQ=" & Server.MapPath("Kitap1.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"

Set abdul = Server.CreateObject("ADODB.Connection")
Set kocer = Server.CreateObject("ADODB.Recordset")
abdul.open abdulkadir


sql="select * from [Sheet$]"
kocer.Open sql, abdul, 1,3
%>
<table border="1" width="91%" id="table1" bordercolor="#000000" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr> 
<td><b>Irsaliye No</b></td>
<td><b>Sira No</b></td>

</tr>

<%
do while not kocer.eof
%>

<tr>

<td><%=kocer("İrs. No'")%>&nbsp;</td>	
<td><%=kocer("Tahsil Edildi")%>&nbsp;</td>


</tr>

<% 
kocer.movenext
loop


kocer.close
Set kocer = nothing
abdul.close
Set abdul = nothing
%>
</table>

Yukarıdaki kodları yazan hocamızı foruma ben davet etmiştim ama r10 database'i ile üyeliği gitti tekrar davet etmedim henüz.

@Coderman Hocam Görürseniz Şunun Nasıl sütun adı değilde a1 b3 vb yapılacağını sorsanız sabah 8:30 dan incelediğim 50. yol sütundan veri çekiyorum bu sefer bunu eşitleyemiyorum örnek a1='Irsno' Bunuda Asp Kodlarıyla Yapsam Sorunum Çözülecek.

Mail atmıştım zaten cevap bekliyorum

Heyecanla Bekliyorum Maille Cevap Hocam .

Önerim CSV şeklinde dosya çekmedir. Direkt excel sağlıksız ve burada olduğu gibi sorun çıkarıyor.

Sorunu Çözdüm Arkadaşlar Teşekkürler Coderman Hocam Konuyla İlgilendiğiniz İçin.

Rica ederim bir önceki mesajımda belirttiğim gibi csv'yi önerdi hocamız

Hocam Bana Kargodan Gelen Veriler Excel Formatında Olduğundan Bu İşlemi Yapamıyordum Gümlük Min 8000 Ürün satışı Var Kargo Biriminin İşini Otomatik yapmak İçin gerekliydi sorunu çözdüm benzer sorunu yaşayanlar olabilir diye kodlarıda aşağıda vereyim.

<%
' EXCEL dosyasýnýn ilk satýrý alan adlarýný gösterir... Bu örnekte alanlar AD, SOYAD, TEL...

abdulkadir = "DBQ=" & Server.MapPath("deneme.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"

Set abdul = Server.CreateObject("ADODB.Connection")
Set kocer = Server.CreateObject("ADODB.Recordset")
abdul.open abdulkadir


sql="select * from [Sheet$]"
kocer.Open sql, abdul, 1,3
%>
<table border="1" width="91%" id="table1" bordercolor="#000000" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
	<tr>
		<td><b>AD</b></td>
		<td><b>SOYAD</b></td>
		<td><b>TEL</b></td>
		<td><b>ADRES</b></td>
		<td><b>WEB</b></td>
		<td><b>MAIL</b></td>
	</tr>

<%
do while not kocer.eof
%>
	<tr>
		<td><%=kocer(1)%>&nbsp;</td>
		<td><%=kocer(2)%>&nbsp;</td>
		<td><%=kocer(3)%>&nbsp;</td>
		<td><%=kocer(4)%>&nbsp;</td>
		<td><%=kocer(5)%>&nbsp;</td>
		<td><%=kocer(6)%>&nbsp;</td>
	</tr>

<%    
kocer.movenext
loop


kocer.close
Set kocer = nothing
abdul.close
Set abdul = nothing
%>
</table>