<%@ Language="VBScript" %> <% Dim Connect, connr Dim msg,act,id,ano,question question= Request.Form("question") act = Request.QueryString("act") id = Request.QueryString("pollid") msg = Request.QueryString("msg") ano = 1 %> <%IF msg = "added" Then%>

sucessfully.Thank you.

<%ELSEIF msg = "add" Then%> <% IF act <> "q" Then Dim rsPoll Set rsPoll= Server.CreateObject("ADODB.Recordset") rsPoll.open "questions Where id Like '" & id & "'", connr, 3, 3 Dim rsAnswer Set rsAnswer= Server.CreateObject("ADODB.Recordset") rsAnswer.open "answers Where question_id Like '" & id & "'", connr, 3, 3 set fer=teksan.Execute("Select Count(*) as toplam from answers Where question_id Like '" & id & "'") tople=""&fer("toplam")&"" topl=tople+1 END IF %> <%IF act = "q" Then%>

<%ELSE%> " method="post" name="cpr" id="cpr"> <%END IF%> <%IF act <> "q" Then%> <%DO UNTIL rsAnswer.EOF%> <%ano = ano + 1%> <%rsAnswer.MoveNext%> <%LOOP%> <%END IF%>

YENİ ANKET

ANKET BAŞLIĞI

<%=question%><%ELSE%><%=rsPoll("poll_name")%><%END IF%>" size="50" maxlength="255" readonly>

ANKET = <%=ano%>
RESİM

<% if rsAnswer("picture")<>picture then %>

" width="25" height="25" border="0"><% else %><% end if%>

" size="33" readonly>
" size="33" readonly>

Anket Seçeneği
Resim İsteğe bağlı

<% if ""&topl&""="" then %>1
1 [Gözat]
<% end if %> <% if ""&topl&""="2" then %>2
2 [Gözat]
<% end if %> <% if ""&topl&""="3" then %>3
3 [Gözat]
<% end if %> <% if ""&topl&""="4" then %>4
4 [Gözat]
<% end if %> <% if ""&topl&""="5" then %>5
5 [Gözat]
<% end if %> <% if ""&topl&""="6" then %>6
6 [Gözat]
<% end if %> <% if ""&topl&""="7" then %>7
7 [Gözat]
<% end if %> <% if ""&topl&""="8" then %>8
8 [Gözat]
<% end if %> <% if ""&topl&""="9" then %>9
9 [Gözat]
<% end if %> <% if ""&topl&""="10" then %>10
10 [Gözat]
<% end if %> <% if ""&topl&""="11" then %>11
11 [Gözat]
<% end if %> <% if ""&topl&""="12" then %>12
12 [Gözat]
<% end if %> <% if ""&topl&""="13" then %>13
13 [Gözat]
<% end if %> <% if ""&topl&""="14" then %>14
14 [Gözat]
<% end if %> <% if ""&topl&""="15" then %>15
15 [Gözat]
<% end if %> <% if ""&topl&""="16" then %>16
16 [Gözat]
<% end if %> <% if ""&topl&""="17" then %>17<% end if %>

<%IF ano > 2 Then%>BİTİR TAMAM<%END IF%>

<%ELSE%> <%END IF%>