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