Подскажите плз где тут ошибка в цикле. Цикл убираю все работает. Ставлю цикл - пишет что не хватает ':'

Код

<%@ LANGUAGE="JSCRIPT" %> <%Connection = Server.CreateObject("ADODB.Connection");  Connection.Open("Provider=SQLOLEDB.1;Persist Security Info=True;User ID=u1;Initial Catalog=Sbit;Data Source=prg02a;Use Procedure For Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=PRG01A;Use Encryption For Data=False;Tag With column collation when possible=False");  S="SELECT * from sPFType";  rst = Connection.Execute(S); %> <% While (!rst.EOF) { %> <%=rst.Fields("PFType").Value%> <% rst.MoveNext();} %> <% rst.Close(); Connection.Close(); %>

Ошибку лень искать пиши как я пишу и троблов не будет:

Код

<% Set rs = Connection.Execute("SELECT * FROM sPFType") Do While Not rs.EOF Response.Write(rs("PFType")) rs.Movenext Loop Set rs = Nothing %>

Должно работать! Напсал по памяти!
Добавлено @ 13:15
Помоему у тебя там нехватает Loop, тогда он может выдавать ошибку, что цикл не закончен