خطای لاگین مربوط به کاربر

[hassan1365]

سلام
این خطا مال چیه؟من که سردر نمی آرم.


Error Type:
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'
/login.asp, line 23
loop


این سورسشه:



<!--#include file="membersconn.asp"-->
<!--#include file="membersrecordset.asp"-->
<%
dim strusername,strpass
strusername=request.Form("txtname")
strpass=request.Form("txtpass")

do while not rsmembers.eof
' blnregistered=false
if strusername=rsmembers("id") and strpass=rsmembers("password") then
if rsmembers("isadmin")="true" then
session("member")="admin"
'exit do
else if rsmembers("isadmin")="false" then
session("member")=strusername
'exit do
else
rsmembers.movenext
end if
end if
rsmembers.movenext
loop
...



موفق باشید.

[archangel]

دلیلش اینه که کلمه‌ی else رو در if دومی (if داخلی) به if سوم نچسبوندی.

دستور if ... else ...end if به این صورت استفاده می‌شه:


if ... then
elseif ... then
elseif ... then
else
end if

[hassan1365]

سلام
فکرنمیکنم ازاین باشه ولی تست میکنم جوابشو میدم.

موفق باشید.

[shahroozj]

بله دقیقا مشکل همینجاست که elseif را به هم نچسبانده اید