Microsoft VBScript runtime (0x800A0009)

December 15th, 2003, 12:14 PM

Hi everyone
I am developing an Intranet application, using asp connect to SQL server 2000, the asp file runs with an error message of

Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '[number: 1]'
/customers/contactlist.asp, line 21

Code:

<%
Dim eUser, rsCheckListRole
eUser=split(Request.ServerVariables("logon_user"), "/")

set rsCheckListRole=con.execute("sp_GetListUser "&eUser(1)) line 21

Any help will be very much approciated

thanks in advance
Peter

Jonax · December 15th, 2003, 01:13 PM

The 'subscript out of range' error means that the index (1) is higher than the upper bound of the array - in this case it means that there is no / in request.servervariables("logon_user")...

You might want to check for this:

Code:

if ubound(eUser) > 0 then
   set rsCheckListRole=con.execute("sp_GetListUser " & eUser(1))
else
   response.write "Some error message"
   response.end
end if

Jonax · December 15th, 2003, 01:15 PM

The response.end in the above code might be a bit premature - you'll want to close the db-connection aso. - but you know what I mean...