Вопрос опроса | Число проголосовавших | Начало | Окончание | <% 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(«
---|---|---|---|
» & 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(« |