<% '*************COMBO_OLUSTUR*********************** Sub Combo_Olustur(Table_Name, Field_Name, Item_Name, change_fonk_name) dim MySql, recOrec set recOrec=Server.CreateObject("AdoDb.Recordset") MySql="SELECT id, " & Field_Name & " FROM " & Table_Name recOrec.Open MySql, conn Response.Write "" end sub %>