<%
set Conn=Server.CreateObject(«ADODB.Connection»)
call Conn.Open(«FileDSN=WWW»)
set rs=Conn.Execute(«select *,Counter=(select sum(Counter) from wwPollAnswers « &_
 «where QuestionCode=Code) from wwPollQuestions order by Code»)
do while not rs.EOF
 if Request.QueryString(«Question»)=CSTR(rs(«Code»).Value) then ?вызов страницы с параметром
 Response.Write(«»)
 Response.Write(«»)
 Response.Write(«»)
 else
 Response.Write(«») ? организация ссылки
 Response.Write(«»)
 end if
 Response.Write(«»)
 rs.MoveNext
loop
rs.Close
Conn.Close
%>

Опросы

Вопрос опроса Число проголосовавших Начало Окончание
» & rs(«Question»).Value) Response.Write(«» & rs(«Counter»).Value) Response.Write(«» & rs(«BeginDate»).Value) Response.Write(«» & rs(«StopDate»).Value) Response.Write(«
») Response.Write(PollQuestion(rs(«Code»).Value)) ? вызов функции опроса Response.Write(«
» & rs(«Question»).Value & «») Response.Write(«» & rs(«Counter»).Value) Response.Write(«» & rs(«BeginDate»).Value) Response.Write(«» & rs(«StopDate»).Value) Response.Write(«