asp array problem,Subscript out of range: 'Lbound'
tgonzo | Posted 3:37am 25. March 2009 Server Time |
hi there i ve got the following problem:
i got an error:Microsoft VBScript runtime error '800a0009',Subscript out of range: 'Lbound',/s/t/u/studentshareweb/probe/n3_class.asp, line 90
here is the code i used, the code works fine using const conArrDimension=2, i added an additional field conArrMemberRealCode and upgraded conArrDimension to 3 since then the error above happens, any ideas, please help, i can't find the problem:
<%
Option Explicit
Const conArrDimension = 3
Const conArrMemberUserName = 0
Const conArrMemberPassword = 1
Const conArrMemberRealName = 2
Const conArrMemberRealCode = 3
Const conVersion = "0.6"
Class n3_MembersFree
Private m_blnLogIn
Private m_blnMembers
Private m_txtUser
Private m_txtPassword
Private m_blnForm
Private m_realName
Private m_realCode
Private m_action
Private arrMembers
Private i
Public page
Public caption
Public blnLogIn
Public realName
Public realCode
Private Sub Class_Initialize()
m_blnLogIn = False
m_txtUser = Server.HTMLEncode(Trim(Request.Form("txtUser")))
m_txtPassword = Server.HTMLEncode(Trim(Request.Form("txtPassword")))
m_blnForm = Server.HTMLEncode(Request.Form)
m_action = Lcase(Request.QueryString("action"))
page = "http://studentshareweb.brinkster.net/probe/index.asp"
caption = "Members Only Access"
blnLogIn = m_blnLogIn
realName = Null
realCode = Null
End Sub
Private Sub Class_Terminate()
' terminate
End Sub
Public Function membersFreeVersion()
End Function
Public Function logOutLink()
logOutLink = "<a href=""" & page & "?action=LogOut"">Log Out</a>"
End Function
Private Sub initMembers()
ReDim arrMembers(conArrDimension,0)
m_blnMembers = True
i = 0
End Sub
Private Sub preserveMembers()
ReDim Preserve arrMembers(conArrDimension,i)
End Sub
Public Sub addMember(UserName,Password,RealName,RealCode)
If IsEmpty(m_blnMembers) Then initMembers()
If (UserName <> "") And (Password <> "") And (RealName <> "") And (RealCode <> "") Then
arrMembers(conArrMemberUserName,i) = UserName
arrMembers(conArrMemberPassword,i) = Password
arrMembers(conArrMemberRealName,i) = RealName
arrMembers(conArrMemberRealCode,i) = RealCode
i = i + 1
If IsArray(arrMembers) Then preserveMembers()
End If
End Sub
Public Sub checkMember()
If Not IsArray(arrMembers) Then
caption = "<span class=""n3-error"">No members have been added to the allowed members " & _
"list. Use the config.asp file to add members as needed.</span>"
Exit Sub
End If
i =i-1
preserveMembers()
For i = (Lbound(arrMembers,conArrDimension) To Ubound(arrMembers,conArrDimension)
If (StrComp(m_txtUser, arrMembers(conArrMemberUserName,i), 1) = 0) And _
(strComp(m_txtPassword, arrMembers(conArrMemberPassword,i), 1) = 0) Then
m_realName = arrMembers(conArrMemberRealName,i)
m_realCode = arrMembers(conArrMemberRealCode,i)
m_blnLogIn = True
Exit For
End If
Next
sessionState()
End Sub
I ve to shorten the code !!!
End Class
%>
|
