% If session("yetki")="yes" Then %> <% strFormName = "altiok" strTextAreaName = "aciklama" dim ne ne=request.QueryString("do") dim hata hata=request.QueryString("err") dim rs dim baglanti dim edit if request.QueryString("id")<>"" then edit=1 Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & request.QueryString("id") Rs.Open Sorgu, Baglanti, 1, 3 else Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy" Rs.Open Sorgu, Baglanti, 1, 3 end if Set Rsl=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy order by dtarih" Rsl.Open Sorgu, Baglanti, 1, 1 %>