I recently inherited a website in ASP, which I am not familiar with. Yesterday, one of the pages began to throw an error:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'i'
default.asp, line 19
Here is the code from lines 13-27:
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM VENDORS_LIST_TBL WHERE inStr('"& dVendorStr &"','|'&ID&'|')", Cn
DIM dTitle(100), dDescription(100), dLink(100)
i = 0 : Do while NOT rs.EOF : i = i + 1
dTitle(i) = rs.fields.item("dTitle").value
dDescription(i) = rs.fields.item("dDescription").value
dLink(i) = rs.fields.item("dLink").value : if dLink(i) <> "" then dTitle(i) = "<a href=""" & dLink(i) & """>" & dTitle(i) & "</a>"
if NOT rs.EOF then rs.movenext
Loop
x = i
rs.Close : Set rs = Nothing
%>
Any ideas on what’s going on here and how I can fix it?
Thank you!
asked Jun 16, 2012 at 14:37
2
You’ve declared dTitle, dDescription and dLink as Arrays with a size of 100. As you are walking through the recordset, you are assigning elements to those arrays. It would appear that you have more than 100 records in your recordset, so the logic is trying to do something like:
dTitle(101) = rs.fields.item("dTitle").value
This will throw an error because your array isn’t big enough to hold all of your data.
answered Jun 16, 2012 at 15:31
1
The «solution» you chose is not very good. What if within 2 years there will be more than 500? You will forget all about this and waste hours yet again.
Instead of fixed size arrays you can just use dynamic arrays:
DIM dTitle(), dDescription(), dLink()
ReDim dTitle(0)
ReDim dDescription(0)
ReDim dLink(0)
i = 0
Do while NOT rs.EOF
i = i + 1
ReDim Preserve dTitle(i)
ReDim Preserve dDescription(i)
ReDim Preserve dLink(i)
dTitle(i) = rs.fields.item("dTitle").value
dDescription(i) = rs.fields.item("dDescription").value
dLink(i) = rs.fields.item("dLink").value
If (Not(IsNull(dLink(i)))) And (dLink(i) <> "") Then
dTitle(i) = "<a href=""" & dLink(i) & """>" & dTitle(i) & "</a>"
End If
rs.movenext
Loop
This will start with one (empty) item in each array — for some reason the code seems to need this — then on each iteration one more item will be added, preserving the others.
Note that I’ve also fixed small issue that might have caused trouble — in case of NULL value in «dLink» field, you would get blank anchors in your HTML because NULL is not empty string in VBScript.
answered Jun 17, 2012 at 14:25
3
This how GetRows
can be used to achieve the same goal.
<%
Function VendorSearch(sVendor)
Dim cn: Set cn = SomeLibraryFunctionThatOpensAConnection()
Dim cmd: Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandType = adCmdText
cmd.CommandText = "SELECT dTitle, dDescription, dLink FROM VENDORS_LIST_TBL WHERE inStr(?,'|'&ID&'|')"
cmd.Parameters.Append cmd.CreateParameter("Vendor", adVarChar, adParamInput, Len(sVendor), sVendor)
Set cmd.ActiveConnection = cn
Dim rs : Set rs = cmd.Execute()
VendorSearch = rs.GetRows()
rs.Close()
cn.Close()
End Function
Dim arrVendor : arrVendor = VendorSearch(dVendorStr)
Const cTitle = 0, cDesc = 1, cLink = 2
Dim i
For i = 0 To UBound(arrVendor, 2)
If IsNull(arrVendor(cLink, i) Or arrVendor(cLink, i) = "" Then
arrVendor(cTitle, i) = "<a href=""" & arrVendor(cLink, i) & """>" & arr(cTitle, i) & "</a>"
End If
Next
%>
Notes:
- The Select statement contains only those fields required in the results, the use of * should be avoided
- A parameterised command is used to avoid SQL Injection threat from SQL contactenation.
- Constants used for field indices into the resulting 2 dimensional array.
- Whilst this code replicates the original munging of the title value this is here as an example only. In reality construction of HTML should be left as late as possible and outputing of all such strings as title and description should be passed through
Server.HTMLEncode
before sending to the response.
answered Jun 18, 2012 at 12:49
AnthonyWJonesAnthonyWJones
187k35 gold badges233 silver badges306 bronze badges
- Remove From My Forums
-
Question
-
I have got one error in opening page inmy website, actually this sources are old and i am not familiar with this.. plz help me.. Error: Microsoft VBScript
runtime error ‘800a0009’ Subscript out of range: ‘[number: 0]’ /rescontrol/Default.asp, line 72 Plz check out here this link http://desert.somee.com/rescontrol/ Source Code can be found in http://pastebin.com/QthvEubE
Answers
-
-
Marked as answer by
Bruce Song
Thursday, January 26, 2012 9:39 AM
-
Marked as answer by
All replies
-
Some support informed there is error with Microsoft access file.
-
-
Marked as answer by
Bruce Song
Thursday, January 26, 2012 9:39 AM
-
Marked as answer by
|
|
To Fix (Microsoft VBScript runtime error ‘800a0009’) error you need to |
|
Шаг 1: |
|
---|---|
Download (Microsoft VBScript runtime error ‘800a0009’) Repair Tool |
|
Шаг 2: |
|
Нажмите «Scan» кнопка | |
Шаг 3: |
|
Нажмите ‘Исправь все‘ и вы сделали! | |
Совместимость: |
Ошибка выполнения Microsoft VBScript «800a0009» обычно вызвано неверно настроенными системными настройками или нерегулярными записями в реестре Windows. Эта ошибка может быть исправлена специальным программным обеспечением, которое восстанавливает реестр и настраивает системные настройки для восстановления стабильности
If you have Microsoft VBScript runtime error ‘800a0009’ then we strongly recommend that you
Download (Microsoft VBScript runtime error ‘800a0009’) Repair Tool.
This article contains information that shows you how to fix
Microsoft VBScript runtime error ‘800a0009’
both
(manually) and (automatically) , In addition, this article will help you troubleshoot some common error messages related to Microsoft VBScript runtime error ‘800a0009’ that you may receive.
Примечание:
Эта статья была обновлено на 2023-09-16 и ранее опубликованный под WIKI_Q210794
Содержание
- 1. Meaning of Microsoft VBScript runtime error ‘800a0009’?
- 2. Causes of Microsoft VBScript runtime error ‘800a0009’?
- 3. More info on Microsoft VBScript runtime error ‘800a0009’
Meaning of Microsoft VBScript runtime error ‘800a0009’?
Ошибка или неточность, вызванная ошибкой, совершая просчеты о том, что вы делаете. Это состояние неправильного суждения или концепции в вашем поведении, которое позволяет совершать катастрофические события. В машинах ошибка — это способ измерения разницы между наблюдаемым значением или вычисленным значением события против его реального значения.
Это отклонение от правильности и точности. Когда возникают ошибки, машины терпят крах, компьютеры замораживаются и программное обеспечение перестает работать. Ошибки — это в основном непреднамеренные события. В большинстве случаев ошибки являются результатом плохого управления и подготовки.
Ошибка выполнения is a type of error that happens while a certain program is running. Generally, this error is triggered when the software can no longer solve an issue that occured. This error is also referred to as a “bug”. When runtime error is shown, the software that caused it is often frozen or closed immediately.
Ошибки такого рода в основном обнаруживаются на начальном этапе разработки программного обеспечения. Однако, если вы столкнулись с этим, даже когда программное обеспечение уже выпущено для общественности, ожидается, что разработчик отправит исправление, чтобы устранить проблему.
Ошибки времени выполнения возникают в разных формах с различными триггерами, которые вызывают проблему. Вот некоторые из наиболее распространенных причин ошибок времени выполнения:
- Конфликтные проблемы с другими работающими программами
- Коррумпированная запись в системе
- Проблемы с низкой памятью
- Устаревшие драйверы
- Старое или поврежденное аппаратное устройство
- Вредная вирусная атака
- Плохая практика программирования
Causes of Microsoft VBScript runtime error ‘800a0009’?
Поскольку существует несколько типов ошибок времени выполнения, иногда трудно решить проблему проблемы. Некоторые типы ошибок времени выполнения включают логическую ошибку, ту, которая дает неправильный вывод. Еще одна проблема — утечка памяти, которая заставляет программу постоянно использовать больше ресурсов ОЗУ при ее запуске. И, сбой программы, который является наиболее распространенным типом ошибки времени выполнения. Это заставляет программу перестать работать неожиданно.
Самый простой способ определить причину ошибки времени выполнения — прочитать сообщение об ошибке. Оттуда вы можете определить программу, которая генерирует ошибку. Кроме того, одним из способов исследования проблемы является доступ к диспетчеру задач, нажатие Ctrl + Alt + Del на вашем компьютере. Оттуда вы можете начать закрывать каждое запущенное программное обеспечение по одному, чтобы узнать, какая из них вызывает ошибку времени выполнения.
Ошибки выполнения могут также быть вызваны самой запущенной программой. Поэтому лучше всего проверить наличие исправлений и исправлений ошибок, которые разработчик выпустил. Если проблема не устранена, вы также можете попытаться удалить и переустановить программное обеспечение с помощью нового установщика с веб-сайта разработчика. Чтобы справиться с ошибками во время выполнения, вызванными вирусом, вам необходимо иметь надежное программное обеспечение безопасности. Убедитесь, что у вас установлена последняя версия антивирусной системы. Вы также можете переустановить библиотеки времени выполнения Windows, чтобы исправить некоторые повторяющиеся проблемы.
More info on
Microsoft VBScript runtime error ‘800a0009’
РЕКОМЕНДУЕМЫЕ: Нажмите здесь, чтобы исправить ошибки Windows и оптимизировать производительность системы.
Ошибка выполнения Microsoft VBScript «800a01a8»
Ошибка выполнения Microsoft VBScript «800a01b6»
Hello all, I am testing a simple asp page with error message is below. Does anyone know what this means and how I can resolve it? I have all the pages built but I property or method: ‘Request.From’
/username/validation.asp, line 13
Any help appreciated, the several other forums but havent found anything too helpful.
I have looked though the Microsoft support pages and am getting an error in my validation page. Microsoft VBScript runtime error ‘800a01b6’
Object doesn’t support this IIS to learn how to develop a username and password system.
Ошибка выполнения Microsoft VBScript «800a01a8»
Когда я пытаюсь зарегистрироваться в чате, я в сети, или же это какая-то другая программа? Поэтому, если кто-то может помочь мне избавиться от этой проблемы. Если это IE, проблема не в брандмауэре, который блокирует VBS …
Я предполагаю, что вы используете IE для регистрации деталей немного? благодаря
на вашей стороне стены … Можете ли вы объяснить эту ошибку, когда я попытаюсь представить свои данные. Благодаря!!!!!!
Если вы не позади, поэтому я могу получить доступ к чатам, это было бы фантастически!
Ошибка выполнения Microsoft VBScript «800a000d» HELP
Я использую сервер 1.0a? Обратитесь к клику здесь: EN-US; 219160
Запускаете ли вы Asp.exe на личном веб-сайте, когда я пытаюсь заказать с защищенного веб-сайта. Может ли кто-нибудь помочь.
Привет, я получаю следующее сообщение об ошибке «Ошибка 800a000d» в Microsoft Windows VBScript недавно. У меня была эта проблема с AOL с XP.
Ошибка выполнения Microsoft VBScript «800a01ad»
Я получаю это
/SearchResults.asp, строка 79
not sure what the deal is with this… Microsoft VBScript runtime error ‘800a01ad’
ActiveX component can’t create object error on the web server. Really would like it if I didn’t have to reboot this machine.
Какую версию Windows и версию браузера вы используете?
Ошибка выполнения Microsoft VBScript «800a01a8»
чтобы этот скрипт работал.
Привет,
Нужна некоторая помощь, набрав его в Google.
У меня есть список пользователей, которые я отсортировал по группам, чтобы отправлять разные электронные письма.
Любая помощь Эта информация, которую я нашел, очень ценится.
Ошибка .asp Ошибка выполнения Microsoft VBScript «800a01a8»
Удалите строку, которую вы не хотите.
Ошибка выполнения vbscript
Ошибка выполнения Vbscript Runtime
Сценарий: C: windows \ system32 \ hosts.vbs
Линия: 6
Char: 1
Ошибка: разрешение отклонено
Код: 800A0046
Источник: Microsoft, я открываю учетную запись пользователя в WINXP HOME .. Спасибо заранее.
Здравствуйте,
У меня есть окно, когда ошибка времени выполнения VBscript
Это потенциальная проблема, поскольку все, кажется, работает нормально?
Ошибка выполнения VBScript «800a01a8»
Я запускаю IE 5.5 и повторно устанавливаю результат. Это может быть правильно, поскольку я смог
Мой контакт в бизнесе говорит, что он верит в журнал и доступ к данным с другого компьютера. Я попробовал сбросить настройки параметров инструментов IE до средней безопасности и расширенные настройки по умолчанию с тем же результатом.
Это проблема с моим компьютером. Благодаря!
идеи, пожалуйста? То же самое, думая, что это может быть проблема с браузером.
Error 2738 — Could not access VBScript runtime for Custom action
I have two attachments if I Hi Janice, you could post the URLs of the images, without used it for many years. I realize Win7 doesn’t like this years, that I have had problems updating my program Incredimail. NOW I’m getting the set up a new user, and gave it full administrative privileges.
I am the only one that uses this computer, so it Images added. I LIKE Incredimail, I’ve writing www/http and someone will fix the URL for you.
This is the second time in a couple program…I worked with the IM tech. When I needed to update IM I would go into this user, same message in both accounts?
The last time that I got these error messages, I finally and update the program in there and it updated for my user also. am ever allowed to attach a jpg. Update: makes no sense to me, to keep setting up user accounts.
Microsoft Visual C++ Runtime Library Runtime Error» error message
быть больше помощи.
Извините, я не могу заплатить, ожидая ответа. Тем временем вы можете попробовать удалить заказ, чтобы исправить эту проблему?
Что мне нужно в
Win7 — Microsoft Visual C ++ Runtime Library Runtime Ошибка только во время чистой загрузки
Wait another 30~50 seconds, the Microsoft Visual C++ This seem boot, I am stopped at the login screen. I was able to log back in by reverting the changes possible reasons for this error window?
EDIT: у меня никогда не было ошибки во время выполнения, и ошибка не появляется снова, если я не настроюсь на чистую загрузку.
I want to ask, what are some 30~50 seconds, the Microsoft Visual C++ Runtime Library Runtime Error window pops
вверх. Пользовательский значок и поле пароля не загружаются, а примерно в msconfig.exe во время безопасного режима, и поэтому это не мой вопрос. Появится окно ошибки Runtime Library Runtime Error. После перезапуска после настройки msconfig.exe для чистой, чтобы повторять бесконечно.
Если я нажму OK, окно ошибки исчезнет, но поле пользователя и пароль не появится.
Библиотека времени выполнения Microsoft Visual C ++ — Ошибка выполнения в Outlook 2003
Мне действительно нужно использовать мой Outlook, и он не исправил его. Спасибо в
Каждый раз, когда я пытаюсь открыть мои файлы MS Outlook или DLL для отображения сообщений с удаленного компьютера. Пожалуйста, помогите мне microsoft.com и ничего полезного.
Пожалуйста, свяжитесь с нами, и я не позволю изменить его. Любая помощь 2003, я получаю следующую ошибку:
Библиотека времени выполнения Microsoft C ++
Ошибка выполнения! Это не сработало, потому что мой компьютер продвигается!
Я сделал это и событие: (SpnRegister): Ошибка 1355.
Я должен был изменить решение, требующее изменения расширения файла. Я также наткнулся на возможную Runtime, чтобы прекратить его необычным способом. Программа: C: \ Program Files \ Microsoft Office \ OFFICE11 \ OUTLOOK.EXE
Это приложение запросило очень высокую оценку. Тогда сойти с ума здесь!
расширение * .dll на * .old. Следующая информация является частью пункта — нажать «ОК». Возможно, вы сможете использовать приложение флага / AUXSOURCE =. Моя единственная опция при этом изменении: C: \ Program Files \ Common Files \ Symantec Shared \ AntiSpam \ MsouPlug.dll.
Я пробовал искать, чтобы сохранить разум. Файл, который они сказали, я не могу понять, как это исправить. Для получения дополнительной информации на локальном компьютере может не быть необходимой группы поддержки реестра. Я наткнулся на возможное решение на symantec.com (потому что у меня есть Norton Anti-Virus и Norton Internet Security), и они сказали запустить Live Update для исправления.
Я собираюсь получить этот описатель …
Решено: Ошибка выполнения Runtime библиотеки Microsoft Visual C ++, не удается открыть Internet Explorer.
There is very little to clean up in able to help me to fix the problem. Personal, I have Norton Internet Security and Windows Auto Update. The first thing I’d like you Vladislav.
Добро пожаловать в TSG! это происходит.
Более того, можно открыть Runtime, чтобы закончить его обычным способом. попробуйте отключить панель инструментов Google. Я прочитал. Дайте мне знать, как ваш журнал, но мы доберемся до этого.
I hope that there is someone who will Microsoft Windows Millennium Edition in article «»Runtime Error. Microsoft itself in the same case for new Internet window from existing one by File-New-Window menu. I close the message, the existing Internet window stay working. That might stop the error for you.
Пожалуйста, свяжитесь со службой поддержки приложения для получения дополнительной информации. «
When I did cleaning both by Spybot S&D and Ad-Aware Se the FAQ here. Program: C:\Program Files\Internet Explorer\iexplore.exe
Это приложение запросило
С уважением,
Ошибка выполнения Runtime библиотеки Microsoft Visual C ++ при запуске
Затем я нажимаю на значок, и он возвращается. Также, когда я смотрю на Диспетчер задач Windows, окно и Norton на панели инструментов исчезает. Я хочу поблагодарить вас заранее за то, что svchost.exe (система) иногда работает на 58,000K до 27,000K. Сайт думает и что я должен делать.
Hello run a little slower at start up and always gives that error message. I didn’t like Desktop Error
Программа c: \ Program Files \ Общие файлы \ Symantec Shared \ ccSvcHst.exe
R6025
Чистый вызов виртуальной функции
___________________________________________________________________
I have ran norton and it works fine. I have run a full scan, windoc, and is a problem or not. I don’t know if this being such a great tool in our internet world.
Я также изменил некоторые Поиск и удалил его. Дай мне знать, что ты прав? Я пришел на этот сайт, потому что я был настолько искусным Техники! Я установил Microsoft Office, но продвинутый, я тоже.
Как только я нажимаю OK, ошибка выглядит великолепно. Является 2007and Microsoft Desktop Search вчера. Возможно, я делаю гору из мухи, но она делает пару других программ, чтобы избавиться от файлов реестра. Тейлор
RegCure и ParetoLogic.
Я не компьютер безграмотный, запускаю конфигурации с помощью msconfig. Сегодня утром при перезагрузке компьютера появилось сообщение об ошибке:
___________________________________________________________________
Microsoft Visual C++ Runtime Library
Runtime Я бежал помог около четырех лет назад, имея дело с …
Ошибка выполнения Ribre Runtime на Visual C ++ Runtime! w / DSUpdate
Моя ОС — Windows 7, и я продолжаю получать это сообщение: Microsoft Visual C ++ Runtime Libraray Runtime Error!
Microsoft Visual C ++ runtime library — ошибка времени выполнения — нужна помощь в разрешении
I’ve attached a hijackthis log below, and much for your time!! Thanks so very SP3 (WinNT 5.01.2600)
MSIE: Internet Explorer v8.00 (8.00.6001.18702)
Загрузите режима: Normal
Приветствуем и приветствуем майоров. Надеюсь, кто-то сюда придет и установит любое новое программное обеспечение? Только наши специалисты по вредоносным программам используют его и предоставляют любую дополнительную информацию по мере необходимости.
Добрый вечер,
I’ve just encountered this error hijack this reading forum. We aren’t a only then as part of many different applications. Did you just and am unsure on how to proceed. I will be glad to would appreciate any help anyone could provide.
DK
Logfile из Trend Micro HijackThis v2.0.4
Сканирование сохранено в 4: 20: 45 PM, на 1 / 15 / 2011
Платформа: Windows XP поможет вам справиться с вашей проблемой.
Библиотека Runtime Microsoft Visual C ++ — Ошибка выполнения DualB
Я был бы очень признателен, если бы вы могли помочь мне войти в систему.
Я полностью unistalled CCC, так как я думал windows 7 к окнам 8. Я использую драйверы, установленные W8. W8 загружается, и у меня есть эта ошибка при входе в систему.
«Библиотека времени выполнения Microsoft Visual C ++»
Ошибка выполнения
Моя графическая карта — Amd HD4330.
Каждый раз, когда я переключаюсь от меня, решая эту проблему, поскольку это очень раздражает. Однако у меня все еще есть CCC, установленный в W7.
У меня Windows 7 Home Pro и Windows 8 это то, что вызывало ошибку. Я получаю эту ошибку каждый Pro, установленный на отдельных разделах 2 на моем ноутбуке.
«Microsoft Visual C+ + Runtime Library Runtime Error!
to terminate it in an unusual way. Thank you for taking the time to read this message. Program: C:\windows\system32\0152\misconfig.exe
Это приложение запросило Runtime
This is my first question on here, because, although I have searched at least 15 different other posts for the answer to my issue, none have the answer. Please help!
QUESTION: How do I fix Error:800A0009?
DETAILS: I am creating a small program that gathers all local computers and sends them all an audio file to be played. Also, I need to know how to force send, if anyone knows. Lastly, I first run «Get Computers.bat».
My Code:
~~~~~~VBS FILE(Remote Speak.vbs)~~~~~~~~~~~~~~~~~~~
(Obtains variable transferred which contains network name of a computer, and sends it a file to be play using SAPI)
'get ip
Option Explicit
Dim args, strOut
set args = Wscript.arguments
strOut= args(0)
IP = strOut
'get MSG
MSG = InputBox("Type what you want the PC to say:", "Remote Voice Send By X BiLe", "")
If MSG = "" Then WScript.quit: Else
'vbs command to send
A = "on error resume next" & VBCRLF & _
"CreateObject(""SAPI.SpVoice"").speak " & """" & MSG & """" & VBCRLF & _
"CreateObject(""Scripting.FileSystemObject"").DeleteFile (""C:\Voice1.vbs"")"
' Create the vbs on remote C$
CreateObject("Scripting.FileSystemObject").OpenTextFile("\\" & ip & "\C$\Voice1.vbs",2,True).Write A
' Run the VBS through Wscript on remote machine via WMI Object Win32_Process
B = GetObject("winmgmts:\\" & IP & "\root\cimv2:Win32_Process").Create("C:\windows\system32\wscript.exe ""C:\Voice1.vbs""", null, null, intProcessID)
~~~BATCH PRIMARY (Get Computers.bat)~~~~~~~~~~~
(Gathers computer names and assign each one, using net view, filtering the «\» to Computer%num%. Also, :tempcall is just an error handler.)
@echo off
cls
set num=1
echo @echo off > Computers.bat
if "%1"=="loop" (
for /f "delims=\ tokens=*" %%a in ('net view ^| findstr /r "^\\\\"') do (
set comp=%%a
call :number
if exist %%f exit
)
goto :eof
)
cmd /v:on /q /d /c "%0 loop"
:tempcall
call temp.bat
echo.
echo.
echo.
echo You have %num%computers on your network!
pause>nul
del /q temp.bat
start Computers.bat
exit
:number
if %comp% == "" (
goto :tempcall
) else (
echo set Computer%num%=%comp% >> Computers.bat
echo cscript "Remote Speak.vbs" %1 >> Computers.bat
echo call "Remote Speak.vbs" >> Computers.bat
echo set num=%num% > temp.bat
echo Computer%num%: %comp%
set /a num=%num% + 1
)
BATCH SECONDARY (Computers.bat)
(The computers I made up off the top of my head, but they are generally in that format.)
@echo off
set Computer1=040227-CYCVN1
cscript "Remote Speak.vbs" //NoLogo > log.txt
set Computer1=051448-YZVN2
cscript "Remote Speak.vbs" //NoLogo > log.txt
pause>nul
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~END DETAILS~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.) Temp.bat is literally just temporary, it’s deleted, as you can see, almost immediately after it’s created, it simply holds the value of %num% after it breaks out of the loop, because it didn’t show «You have %num%computers on your network!» correctly.
2.) Don’t worry too much about the VBScript file except for the top lines:
Option Explicit
Dim args, strOut
set args = Wscript.arguments
strOut= args(0)
IP = strOut
3.) My main issue is that I am trying to find a safe way to have «Computers.bat» call the «Remote Speak.vbs» file and set it’s batch variables to be the exact same names to refer to the individual computers, in VBScript variable format.
-
May 12th, 2010, 09:06 AM
#1
Thread Starter
New Member
[RESOLVED] VBScript runtime error 800a0009
Fixed so removing the code
Last edited by coolgirl; May 12th, 2010 at 01:17 PM.
-
May 12th, 2010, 10:58 AM
#2
Re: VBScript runtime error 800a0009
The «Subscript out of Range» error means you’re trying to access an element of an array that doesn’t exist; like if your array has 3 elements, and you try to access the 4th element. On line 123, you’re using the aAppSrvs() array, which was defined as aAppSrvs(100,100), and the error message is telling you that «101» was used as either i or j. You either need to dim aAppSrvs with higher bounds, or you need to find out what’s causing i or j to be 101 when they’re expected to stay less than or equal to 100.
-
May 12th, 2010, 11:47 AM
#3
Re: VBScript runtime error 800a0009
I assume this query is probably returning more than 101 record which will make the loop go beyond the bounds that you have delcared for the i dimension.
72 sSQL = «SELECT e.* FROM tblEnvironment e WITH (nolock) WHERE e.RealEnvironment = 1 » _
73 & «and e.EnvironmentActive = 1 ORDER BY e.SortOrder»
-
May 12th, 2010, 12:18 PM
#4
Thread Starter
New Member
Re: VBScript runtime error 800a0009
Originally Posted by MarkT
I assume this query is probably returning more than 101 record which will make the loop go beyond the bounds that you have delcared for the i dimension.
72 sSQL = «SELECT e.* FROM tblEnvironment e WITH (nolock) WHERE e.RealEnvironment = 1 » _
73 & «and e.EnvironmentActive = 1 ORDER BY e.SortOrder»So what values should i change to make it work.
I tried to change line # 27 value of svrs_per_env = 100 to 200 but still it did not work.
-
May 12th, 2010, 12:19 PM
#5
Thread Starter
New Member
Re: VBScript runtime error 800a0009
Originally Posted by coolgirl
So what values should i change to make it work.
I tried to change line # 27 value of svrs_per_env = 100 to 200 but still it did not work.
Select by Application works fine but when I click select by Environment it gives me this error.
-
May 12th, 2010, 12:53 PM
#6
Re: VBScript runtime error 800a0009
Give this a try.
Change line 38 from
Dim aAppSrvs(100, 100)
to
Dim aAppSrvs()then at line 119 add
Redim aAppSrvs(UBound(aColumns), SVRS_PER_ENV)You will also have to update the code for aAppSrvsColor in the same way.
-
May 12th, 2010, 01:00 PM
#7
Thread Starter
New Member
Re: VBScript runtime error 800a0009
Originally Posted by MarkT
Give this a try.
Change line 38 from
Dim aAppSrvs(100, 100)
to
Dim aAppSrvs()then at line 119 add
Redim aAppSrvs(UBound(aColumns), SVRS_PER_ENV)You will also have to update the code for aAppSrvsColor in the same way.
I tried Dim aAppSrvs(200, 200) and also for aAppSrvsColor(200, 200) and it worked.
Thanks all for your help!
-
May 12th, 2010, 01:08 PM
#8
Re: VBScript runtime error 800a0009
and it will continue to work until you return more than 201 records.