For sayi = 1 to rsVeri("veri") Response.Write("<option value="""& sayi &""">"& CHR(64+sayi) &"</option>") next