If ObjRightPoll. EOF And ObjRightPoll. BOF Then Değil, If ObjRightPoll. EOF or ObjRightPoll. BOF Then Olmalı.

hata msjı Tam olarak şu Microsoft VBScript runtime error '800a01a8' Object required: '' /haber01/haber_includes/menu_right. asp, line 12 12. satirda şu <% If ObjRightPoll. EOF And ObjRightPoll. BOF Then %> Veritaßanına ßi oßje mi eklemem lazim ama baktim bi eksiklik goremedim kodu tam olarak yazayim sizde ßakin ßi cozum uretelim lutfen <% If ObjRightPoll. EOF And ObjRightPoll. BOF Then %> <tr> <td class="right_1"><b>Anketler</b></td> </tr> <tr> <td class="right_1"><a href="help. asp?c=6"><u>Anket bulunmamaktadır</u></a></td> </tr> <% Else Do While Not ObjRightPoll. EOF Set ObjRightPollChoice = Createobject ObjRightPollChoice. open "SELECT FROM TblChoices Where PollID=" & ObjRightPoll & " order by ChoiceID desc", ObjConn, 1, 3 ObjCountOfRightPollChoice = ObjRightPollChoice. RecordCount Session = Request. Cookies If Cint(Session = Cint(ObjRightPollChoice Then %> <tr> <td class="right_1"> <table width="100%" class="right_1"> <tr> <td colspan="2" class="right_1"><b><%=ObjRightPoll %></b></td> </tr> <% Do While Not ObjRightPollChoice. EOF StrCountPoll = StrCountPoll + ObjRightPollChoice If StrCountPoll < Cint("100") Then StrBolCount = "1" End If If StrCountPoll > Cint("100") Then StrBolCount = "10" End If If StrCountPoll > Cint("1000") Then StrBolCount = "100" End If %> <tr> <td colspan="2" class="right_1"> <table width="100%" class="right_1"> <tr> <td><%=ObjRightPollChoice %></td> <td><p align="right"><img src="haber_images/im. gif" height="10" width="<%=ObjRightPollChoice / StrBolCount %>"> <b><%=ObjRightPollChoice %> Oy</b></td> </tr> </table> </td> </tr> <% ObjRightPollChoice. MoveNext Loop %> </table> </td> </tr> <% Else %> <form method="post" action="poll. asp"> <tr> <td class="right_1"><b><%=ObjRightPoll %></b></td> </tr> <tr> <td class="right_1"> <table class="right_1"> <% Do While Not ObjRightPollChoice. EOF %> <tr> <td><input type="radio" name="ChoiceID" value="<%=ObjRightPollChoice %>"></td> <td><%=ObjRightPollChoice %></td> </tr> <% ObjRightPollChoice. MoveNext Loop %> </table> </td> </tr> <tr> <td class="right_1"><center><input type="submit" value="GÖNDER"></center></td> </tr> <input type="hidden" name="Action" value="SendPollData"> <input type="hidden" name="PollID" value="<%=ObjRightPoll %>"> </form> <% ObjRightPollChoice. Close Set ObjRightPollChoice = Nothing End If ObjRightPoll. MoveNext Loop End If %> </table> </td> </tr> <tr> <td><img src="haber_images/spacer. gif" height="1" width="150"></td> </tr> </table> <% ObjRightPoll. Close Set ObjRightPoll = Nothing %>

tsk ederim arkadasim Halletmistim ama cok saol yardimin için