<%
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(«