<%
if (request.querystring("sik"))="sil" then
id=request.querystring("id")
data.Execute("DELETE FROM anket where id="&id&"")
end if
if (request.querystring("anket"))="sil" then
id=request.querystring("id")
data.Execute("DELETE FROM ankets where id like '"&id&"'")
data.Execute("DELETE FROM anket where a_id like '"&id&"'")
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End if
if (request.querystring("cevap"))="duzenle" then
id=request.querystring("id")
cevap=Request.Form("cevap")
set blgekle = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from anket where id="&id&""
blgekle.Open SQL,data,1,3
blgekle("cevap")=cevap
blgekle.update
blgekle.Close : set blgekle=nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end if
if (request.querystring("sik"))="ekle" then
a_id=request.querystring("a_id")
cevap=Request.Form("cevap")
set blgekle = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from anket"
blgekle.Open SQL,data,1,3
blgekle.addnew
blgekle("cevap")=cevap
blgekle("a_id")=a_id
blgekle("deger")=0
blgekle.update
blgekle.Close : set blgekle=nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end if
if (request.querystring("anket"))="duzenle" then
id=request.querystring("id")
soru=Request.Form("soru")
set blgekle = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from ankets where id="&id&""
blgekle.Open SQL,data,1,3
blgekle("soru")=soru
blgekle.update
blgekle.Close : set blgekle=nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end if
if (Request.QueryString("anket"))="ekle" Then
soru=request.form("soru")
If soru="" Then
Response.Write "baslik giriniz."
Response.End
Else
data.Execute ("INSERT INTO ankets (soru) VALUES ('"&soru&"')")
Set soru = data.Execute("Select id from ankets Order by id desc")
For i = 1 To request.form("cevap").Count
scenekveri=request.form("cevap")(i)
if not scenekveri="" then
scenekveri = Replace(scenekveri, Chr(39), "'", 1, -1, 1)
data.Execute ("INSERT INTO anket (cevap,a_id,deger) VALUES ('"&scenekveri&"' , '"&soru("id")&"' , '0')")
end if
Next
soru.Close
Set soru = Nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End if
end if
%>
Anket Ekle
<%
sayi=Request.Form("sayi")
If sayi="" or isnumeric(sayi)=false Then
sayi = 5
End if
%>
Anket Yönetimi
<%
set rs = data.execute("SELECT * FROM ankets order by id desc")
do while not rs.eof
%>
<%
set rx = data.execute("SELECT * FROM anket where a_id="&rs("id")&"")
do while not rx.eof
%>
<%
rx.movenext : loop : rx.close : set rx=nothing
%>