Рейтинг ресурсов УралWeb

Уважаемые подписчики!

Если рассылка окажется неэффективной, она будет закрыта. Эффективность определяете Вы. Давайте решим: продолжать или закрыть рассылку!

Сделайте шаг навстречу авторам, уделите им минуту внимания за часы их труда - голосуйте за рассылку и узнайте результат опроса

 <% '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 if Not IsObject(conn) Then Set conn = CreateObject("ADODB.Connection") conn.open "public","","" End If Set rs = CreateObject("ADODB.Recordset") Response.Expires=-1 function DelHttp(ByVal http) dim http1 if left(UCase(http),4)="HTTP" then if http<>"" then DelHttp=right(http,len(http)-7) else DelHttp=http end if end function %> Оцените этот выпуск <%sql="SELECT * FROM vote WHERE who=1" set rs = conn.execute(sql) if not rs.eof then%> <%do while not rs.eof%> <%rs.movenext loop 'while not rs.eof%> <%sql="SELECT sum(ray) as aa FROM vote WHERE who=1" set rs = conn.execute(sql) if not rs.eof then%> <%end if 'not rs.eof%>
"> <%=rs("vote")%>
Всего проголосовавших (из 16120 подписчиков) - <%=rs("aa")%>
<%end if 'not rs.eof%> <% adStateOpen=1 if isObject(rs) then set rs= Nothing end if Set conn = Nothing %>

Мы Вам очень благодарны! Сделайте это регулярно.

Примечание: Опрос обновляется с каждым выпуском

* * *

TopListРейтинг ресурсов УралWeb