Code:
starte checkntlogin.asp …
") end if '## ADMINMODUS
NTBENUTZER = Request.ServerVariables(„REMOTE_USER“)
IP = Request.ServerVariables(„REMOTE_ADDR“)
'## ADMINMODUS AUSGABEN
if modus = 1 then Response.Write ("User: " & ANMELDUNG & "
") end if '## ADMINMODUS
if modus = 1 then Response.Write ("IP: " & IP & "
„) end if '## ADMINMODUS
if modus = 1 then Response.Write (“ … checkntlogin.asp beendet!
") end if '## ADMINMODUS
’ #######################
while not rs.EOF and not mitglied
if lcase(ntbenutzer) = lcase(rs(„icr_login“)) then
if modus = 1 then Response.Write ("
" & ntbenutzer & " gefunden!
") '## ADMINMODUS
error = 0
mitglied = true
else
error = 1
mitglied = false
end if
if modus = 1 then
Response.Write (ntbenutzer & " NICHT gefunden!
") '## ADMINMODUS
end if
end if
rs.MoveNext
wend
%>
Fehler heißt!:
Kompilierungsfehler in Microsoft VBScript-Fehler ‚800a0400‘
Anweisung erwartet
/entwicklung1/pub/programme/icr2/checkntlogin.asp, Zeile 30
end if
^