sayıyı harf yapmak

arkadaşlar aşağıdaki şekilde bir döngüm var bu döngü çekilen veri kadar 1 den ... kadar sayı yazdırıyor ekrana atıyorum 3 e kadar yazdırdı ise;

1 sayısını A ya
2 sayısını B ye
3 sayısını C ye

nasıl dönüştürebilirim.

For sayi = 1 to rsVeri("veri")

Response.Write("<option value="""& sayi &""">"& sayi &"</option>")

next

Replace ile yapabilirmisiniz?

'// Başlık düzenleme fonksiyonu
Function BaslikTemizle(strVeri)

	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strVeri) Then Exit Function

	'// Zararlı Kodlar Burada Ayıklanıyor
	strVeri = Replace(strVeri, "1", "A")
	strVeri = Replace(strVeri, "2", "B")
	strVeri = Replace(strVeri, "3", "C")
	strVeri = Replace(strVeri, "4", "D ", 1, -1, 1)
	BaslikTemizle = strVeri

End Function

gibi..

bunu döngü içine mi yazmam lazım ki öyle yaparsam çalışmıyor. dışına da yazsam çalışmıyor.

For sayi = 1 to rsVeri("sutun")
			
	Function BaslikTemizle(sayi)
	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strVeri) Then Exit Function
				
	'// Zararlı Kodlar Burada Ayıklanıyor
	sayi = Replace(sayi, "1", "A")
	sayi = Replace(sayi, "2", "B")
	sayi = Replace(sayi, "3", "C")
	sayi = Replace(sayi, "4", "D")
	BaslikTemizle = sayi
	End Function
Response.Write("<option value="""& sayi &""">"& basliktemizle(sayi) &"</option>")

	next

A1, B2, C3 diye yap

1 sayısını içerik de ara

A1 i bulacak

anlamadım hocam deyata inermisiniz.

şimdi 1 sayısının A' ya dönüşmesini istiyorsunuz

demek istedim ki;

1 sayısını bir tablo içinde aratın

o tabloda da A1, B2, C3 diye gitsin

otomatik olarak A1 bulacak

sisteme 1 girildiğini karşılık olarak A1 çıkacak

böyle birşey aklıma geldi

uzman değilim

sizin de kafanızı karıştırmak istemem

ne yaptiniz gencler. hic usenmeden 29 replace mi yapacaksiniz, el insaf.

For sayi = 1 to rsVeri("veri")

Response.Write("<option value="""& sayi &""">"& CHR(64+sayi) &"</option>")

next

Bu kadar basit...