MyDesign Haber

Yönetim Paneli

<% If blnAdmin AND strVeriTabaniYolu = strScriptYolu &"veritabani/mydesign_haber.mdb" Then %> <% End If %>

<% Call UstMenu("anket","

","

","

","

") %>

<% Call AltMenu("anket","

","

","

","

") %>

<% '// Anket Düzenleme Bölümü If strIslem = "duzenle" Then If blnAdmin <> True Then Response.Write "" Else intAnketID = Temizle(Trim(Request.Querystring("anket"))) If intAnketID <> "" AND IsNumeric(intAnketID) Then kdGenel.open "SELECT * FROM tblAnketSorular WHERE Anket_ID="& CInt(intAnketID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then %>

Anket Düzenle

Anket Düzenle

Anket Sorusu " class="input" size="75" />
Durum >Aktif >Pasif

Seçenekler

<% kdYardimci.Open "SELECT * FROM tblAnketSecenekler WHERE Anket_ID = "& intAnketID &"", adoCon, 1, 3 If Not kdYardimci.Eof Then intLooper = 1 Do While Not kdYardimci.Eof %> ">Seçenek <%=intLooper%> (">Sil) " type="text" name="secenek_<%=kdYardimci("Secenek_ID")%>" value="<%=kdYardimci("Secenek")%>" class="input" size="75" />
<% intLooper = intLooper + 1 kdYardimci.Movenext Loop End If kdYardimci.Close %>

 

Seçenek Ekle

Seçenek

 

<% Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Anket Düzenlemenin Kaydedilmesi Elseif strIslem = "duzenle_islem" Then If blnAdmin <> True Then Response.Write "" Else intAnketID = Temizle(Trim(Request.Form("anket"))) strSoru = BaslikTemizle(Trim(Request.Form("soru"))) blnDurum = BaslikTemizle(Trim(Request.Form("goster"))) If intAnketID <> "" AND IsNumeric(intAnketID) AND strSoru <> "" Then kdGenel.Open "SELECT * FROM tblAnketSorular WHERE Anket_ID = "& CInt(intAnketID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then kdGenel("Soru") = strSoru kdGenel("Aktif") = CBool(blnDurum) kdGenel.Update kdYardimci.Open "SELECT * FROM tblAnketSecenekler WHERE Anket_ID = "& CInt(intAnketID) &"", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof kdYardimci("Secenek") = BaslikTemizle(Trim(Request.Form("secenek_"& kdYardimci("Secenek_ID")))) kdYardimci.Movenext Loop End If kdYardimci.Close Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Anket Ekleme Formu Elseif strIslem = "anket_ekle" Then If blnAdmin <> True Then Response.Write "" Else %>

Anket Ekle

Anket Bilgileri

Anket Sorusu
Seçenekler
Her satıra bir seçenek yazınız.

 

<% End If '// Anket Ekleme Formunun Kaydedilmesi Elseif strIslem = "anket_ekle_islem" Then If blnAdmin <> True Then Response.Write "" Else strSoru = Temizle(Trim(Request.Form("soru"))) strSecenekler = Temizle(Trim(Request.Form("secenekler"))) If strSoru <> "" AND strSecenekler <> "" Then kdGenel.Open "SELECT * FROM tblAnketSorular", adoCon, 1, 3 kdGenel.AddNew kdGenel("Soru") = strSoru kdGenel("Tarih") = Now() kdGenel("Aktif") = True kdGenel.Update kdGenel.Close kdGenel.Open "SELECT TOP 1 Anket_ID FROM tblAnketSorular ORDER BY Anket_ID DESC", adoCon, 1, 3 intSonAnketID = kdGenel("Anket_ID") kdGenel.Close arrSecenekler = Split(strSecenekler, vbCrLf) For intLooper = 0 To UBound(arrSecenekler) If arrSecenekler(intLooper) <> "" Then kdGenel.Open "SELECT * FROM tblAnketSecenekler", adoCon, 1, 3 kdGenel.AddNew kdGenel("Anket_ID") = intSonAnketID kdGenel("Secenek") = arrSecenekler(intLooper) kdGenel.Update kdGenel.Close End If Next Response.Write("") Else Response.Write "" End If End If '// Seçenek eklemenin kaydedilmesi Elseif strIslem = "secenek_ekle" Then If blnAdmin <> True Then Response.Write "" Else intAnketID = Temizle(Trim(Request.Form("anket"))) strSecenek = BaslikTemizle(Trim(Request.Form("secenek"))) If intAnketID <> "" AND IsNumeric(intAnketID) AND strSecenek <> "" Then kdGenel.Open "SELECT * FROM tblAnketSecenekler", adoCon, 1, 3 kdGenel.Addnew kdGenel("Secenek") = strSecenek kdGenel("Anket_ID") = intAnketID kdGenel.Update kdGenel.Close Response.Redirect "yonetim_anket.asp?islem=duzenle&anket="& intAnketID Else Response.Write "" End If End If '// Seçenek Silinmesi Elseif strIslem = "secenek_sil" Then If blnAdmin <> True Then Response.Write "" Else intSecenekID = Temizle(Trim(Request.Querystring("secID"))) If intSecenekID <> "" AND IsNumeric(intSecenekID) Then kdGenel.Open "SELECT Anket_ID, Secenek_ID FROM tblAnketSecenekler WHERE Secenek_ID = "& CInt(intSecenekID) &"", adoCon, 1, 3 If Not kdGenel.Eof Then intAnketID = kdGenel("Anket_ID") kdGenel.Delete kdGenel.Update Response.Redirect "yonetim_anket.asp?islem=duzenle&anket="& intAnketID Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Anket Silinmesi Elseif strIslem = "sil" Then If blnAdmin <> True Then Response.Write "" Else intAnketID = Temizle(Trim(Request.Querystring("anket"))) If intAnketID <> "" AND IsNumeric(intAnketID) Then kdGenel.Open "SELECT Anket_ID FROM tblAnketSorular WHERE Anket_ID = "& CInt(intAnketID) &"", adoCon, 1, 3 If Not kdGenel.Eof Then kdGenel.Delete kdGenel.Update kdYardimci.Open "SELECT Anket_ID FROM tblAnketSecenekler WHERE Anket_ID = "& CInt(intAnketID) &"", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof kdYardimci.Delete kdYardimci.Update kdYardimci.Movenext Loop End If kdYardimci.Close Response.Write("") Else Response.Write "" End If Else Response.Write "" End If End If '// Oyların Sıfırlanması Elseif strIslem = "sifirla" Then If blnAdmin <> True Then Response.Write "" Else intAnketID = Temizle(Trim(Request.Querystring("anket"))) If intAnketID <> "" AND IsNumeric(intAnketID) Then kdGenel.Open "SELECT Anket_ID, Oy FROM tblAnketSecenekler WHERE Anket_ID = "& CInt(intAnketID) &"", adoCon, 1, 3 If Not kdGenel.Eof Then Do While Not kdGenel.Eof kdGenel("Oy") = 0 kdGenel.Update kdGenel.Movenext Loop End If kdGenel.Close Response.Write("") Else Response.Write "" End If End If '// Anket Listeleme Bölümü Else If blnAdmin <> True Then Response.Write "" Else Response.Write "

Anketler

" kdGenel.open "SELECT * FROM tblAnketSorular ORDER BY tarih DESC", adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Henüz anket oluşturulmadı." Else Do While NOT kdGenel.EOF Call AnketSonuc(kdGenel("Anket_ID")) Response.Write("

Düzenle | " & _ "Oyları Sıfırla | " & _ "Sil

") kdGenel.Movenext Loop End If kdGenel.Close End If End If %>