VBScript проблемы с Rs.EOF
народ короче проблема такая вот кодик который вбивает из базы в селект наименования:
<select name="kind">
<option value="0">Нет</option>
<%
Do Until Rs.Fields.Item("id") = id + 1
For i = 0 to Rs.Fields.Count -3%>
<option value="<%= Rs.Fields.Item("kind_id")%>"><%= Rs.Fields.Item("name")%></option>
<%
Next
Rs.MoveNext
If Rs.EOF Then
end_data()
Else
End If
Loop
%>
</select>
Когда дело доходит до последней строки то не срабатывает Rs.EOF не знаете почему?
<select name="kind">
<option value="0">Нет</option>
<%
Do Until Rs.Fields.Item("id") = id + 1
For i = 0 to Rs.Fields.Count -3%>
<option value="<%= Rs.Fields.Item("kind_id")%>"><%= Rs.Fields.Item("name")%></option>
<%
Next
Rs.MoveNext
If Rs.EOF Then
end_data()
Else
End If
Loop
%>
</select>
Когда дело доходит до последней строки то не срабатывает Rs.EOF не знаете почему?
Вообщето я в VB не особо но попробуй зделать так
Do Until (Rs.Fields.Item("id") = id + 1) or (not RS.EOF) (или and)(за синтаксис не ручаюсь)
Do Until (Rs.Fields.Item("id") = id + 1) or (not RS.EOF) (или and)(за синтаксис не ручаюсь)