<% end sub %> <% sub guncelle id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="select * from asoru where id="&id&"" rs.open sql,baglantim,1,3 if rs.eof then Response.WRite "Geçerli ID Bulunamıyor.." else %>
"><%=rs("soru")%> (+)

<% set rsx = server.createobject("ADODB.recordset") sql="select * from acevap where sid= "&rs("id") rsx.open sql,baglantim,1,3 if rsx.eof then %> Bu Ankete Şık Eklenmemiş.."> Yeni Ekle! <% else while not rsx.eof a=a+1 %>

Yönetim Bölümü

<% shn = request.querystring("shn") if shn="" then call ana elseif shn="ana" then call ana elseif shn="guncelle" then call guncelle elseif shn="gekle" then call gekle elseif shn="sguncelle" then call sguncelle elseif shn="sguncellendi" then call sguncellendi elseif shn="soruguncelle" then call soruguncelle elseif shn="soruguncellendi" then call soruguncellendi elseif shn="skeklendi" then call skeklendi elseif shn="soruguncelle" then call soruguncelle elseif shn="soruguncellendi" then call soruguncellendi elseif shn="ssil" then call ssil elseif shn="sil1" then call sil1 elseif shn="sil2" then call sil2 elseif shn="yeni" then call yeni elseif shn="yeklendi" then call yeklendi else call ana end if sub yeklendi set rs = server.createobject("ADODB.recordset") sql="select * from asoru" rs.open sql,baglantim,1,3 if request.form("soru")="" then Response.WRite "Bo? Byrakmayynyz!! Geri Dön!" response.end end if rs.addnew rs("soru")=request.form("soru") rs("tarih")=date() rs.update %> <% end sub sub yeni %> <% end sub sub sil2 id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="delete * from asoru where id="&id&"" rs.open sql,baglantim,1,3 Response.Write "Anket Silindi.." end sub sub sil1 id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="Select * from asoru where id="&id&"" rs.open sql,baglantim,1,3 Response.Write "Bu Anketi Silmek İstiyor Musunuz?" %>
<%=rs("soru")%>
">EVET! - HAYIR <% end sub sub ssil id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="Delete * from acevap where id="&id&"" rs.open sql,baglantim,1,3 Response.Write "Şık Silindi..." end sub sub soruguncellendi id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="select * from asoru where id="&id&"" rs.open sql,baglantim,1,3 if rs("soru")="" then Response.Write "Boş Bırakmayınız!.. Geri Dön" response.end end if rs("soru")=request.form("soru") rs.update %> <%end sub sub soruguncelle id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="select * from asoru where id="&id&"" rs.open sql,baglantim,1,3 %> <% end sub sub skeklendi id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="select * from asoru where id="&id&"" rs.open sql,baglantim,1,3 set rsx=server.createobject("ADODB.recordset") sql="select * from acevap where sid="&rs("id") rsx.open sql,baglantim,1,3 cevap = request.form("cevap") if cevap="" then Response.Write "Boş Alan Bırakmayınız! Geri Dön" Response.End end if rsx.addnew rsx("cevap")=cevap rsx("sid")=rs("id") rsx.update %> <% end sub sub sguncellendi id = request.querystring("id") set rsx = server.createobject("ADODB.recordset") sql="select * from acevap where id="&id&"" rsx.open sql,baglantim,1,3 cevap = request.form("cevap") if cevap = "" then Response.Write "Boş Bırakmayınız!! Geri Dön" Response.end end if rsx("cevap") = cevap rsx.update %> <% end sub : sub sguncelle id = request.querystring("id") sk = request.querystring("sk") set rs = server.createobject("ADODB.recordset") sql="select * from acevap where id="&id&"" rs.open sql,baglantim,1,3 %> <% end sub :sub ana %>
Bu Anda Geçerli Olan Anket

<% set rh = server.createobject("ADODB.recordset") SQL="select TOP 1 * from asoru order by id desc" rh.open sql,baglantim,1,3 if rh.eof then Response.Write "Anket Eklenmemiş! Yeni Anket Ekle!" response.end end if %>

<% set rsx = server.createobject("ADODB.recordset") sql="select * from acevap where sid= "&rh("id") rsx.open sql,baglantim,1,3 if rsx.eof then %> Bu Ankete Şık Eklenmemiş.."> Yeni Ekle! <% else while not rsx.eof %> <% rsx.movenext wend end if %>

<%=rh("soru")%>
	<%=rsx("cevap")%>

">Düzenle

Şık <%=a%>:

<%=rsx("cevap")%>

&sk=<%=a%>"> +

">x

<% rsx.movenext wend end if %>
">Yeni Şık Ekle! <%end if : end sub sub gekle id = request.querystring("id") set rs = server.createobject("ADODB.recordset") sql="select * from asoru where id="&id&"" rs.open sql,baglantim,1,3 if rs.eof then Response.WRite "ID Bulunamyyor..!" else %>
Yeni Şık Ekle

Eklenecek Anket: "><%=rs("soru")%> <% end if : end sub %>
Tüm Anketler

<% set rs = server.createobject("ADODB.recordset") sql="select * from asoru order by id desc" rs.open sql,baglantim,1,3 if rs.eof then Response.WRite "Anket Eklenmemi?..." else while not rs.eof %>

<%=rs("soru")%> (<%=rs("tarih")%>)

" title="Anketi Düzenle"> +

" title="Anketi Sil: Adym 1"> x

<% rs.movenext wend end if %>

Eklenecek Şık