In this case, I just used x. ' ----- basic clean function ------ function clean(it) it=replace(it,"'","") 'remove single quote it=replace(it,"<","") 'remove les then it=replace(it,">","") 'remove greater then deer in German: Hirsch, Reh Why is 10W resistor getting hot with only 6.5W running through it? Each iternation of the while loop (ie for each record) each array needs to allocate a new block of memory, copy all of its current elements to the new block and If your data looks like; str_X="one,two,three" arr_X=spit(str_X,", ") then arr_X(0) will still be "one,two,three" and there will be no arr_X(1) or arr_X(2). http://prcflow.com/vbscript-runtime/vbscript-runtime-error-451.html
Regards, Martin Windows and Linux work Together IT-Pros Community Member Award 2011 ‹ Previous Thread|Next Thread › This site is managed for Microsoft by Neudesic, LLC. | © Jump to content Sign In Create Account Search Advanced Search section: This topic Forums Members Help Files Calendar View New Content W3Schools.com Forums Members Calendar More W3Schools Forum → Login. Of course what is unspecified by the Question is how many concurrent ASP requests may be running this code at the same time. 20 concurrent active requests would effectively turn those http://stackoverflow.com/questions/11064329/microsoft-vbscript-runtime-error-800a0009
If you changed arr_X=spit(str_X,", ") to arr_X=spit(str_X,",") then you will have; arr_X(0)="one" arr_X(1)="two" arr_X(2)="three" 0 Message Author Comment by:romsom2013-10-12 I've removed the spaces and now my code looks like this: Perhaps that is the real issue. Dec 1 '11 #2 reply P: 2 Gavin MUNJANJA Hi Rabbit thanks for the reply ,can you assist what statement must add on the code above im a novice in ASP
Advanced Search VBForums Visual Basic ASP, VB Script [RESOLVED] VBScript runtime error 800a0009 If this is your first visit, be sure to check out the FAQ by clicking the link above. I tried to change line # 27 value of svrs_per_env = 100 to 200 but still it did not work. If you are expecting multiple values comma delimited, you don't need the space after the comma. Not the answer you're looking for?
Function StringConvUN dim tabConv dim rmLocation dim username username = Ucase(Request.ServerVariables("LOGON_USER")) if UCase(Request.ServerVariables("HTTP_AUTHORIZATION")) = "SITEMINDER" then StringConvUN = username else tabConv = split(username, "'") rmLocation = join(tabConv, "''") tabConv = split(rmLocation Seasonal Challenge (Contributions from TeXing Dead Welcome) Movie about encountering blue alien A question concerning Wolfram Alpha Trick or Treating in Trutham-And-Ly Why can't the second fundamental theorem of calculus be Why does multiple inheritance increase sizeof of the object despite no virtual functions? Browse other questions tagged asp-classic runtime-error or ask your own question.
English fellow vs Arabic fellah Advisor professor asks for my dissertation research source-code Given that ice is less dense than water, why doesn't it sit completely atop water (rather than slightly read the full info here Actual value may be "ü" end if arr_SunOff=split(strSunOff,",") ' no you will always have an array the size of 0 (1). Select all Open in new window I noticed in Register now! This is the version which doesn't display errors: <% 'declare variables Dim conn, strSQL, strBidLine 'Set values into variables strBidLine = request.Form("BidLine") strStartTime = request.Form("StartTime")
Just a suggestion, End of interrupt. http://prcflow.com/vbscript-runtime/vbscript-runtime-error-800a01fa.html Any other solution would solve my problem, as long as users are able to select different hours and days off for each line that is added on Page Two. 0 Whilst this code replicates the original munging of the title value this is here as an example only. With modern CPU and memory I don't think it's an issue.
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 i have checked it connection string everything seems to be ok... more stack exchange communities company blog Stack Exchange Inbox Reputation and Badges sign up log in tour help Tour Start here for a quick overview of the site Help Center Detailed http://prcflow.com/vbscript-runtime/vbscript-runtime-error-500.html I've uses textboxes instead and typed the ü character in them for the days off.
Or maybe people weren't accessing this page much before today. What's this I hear about First Edition Unix being restored? If not, then set it to some default value.
You have strSQL = strSQL & "('"& arr_BidLine(arr_count) &"','"& arr_StartTime(arr_count) &"','"& arr_EndTime(arr_count) &"','"& arr_SunOff(arr_count) &"','"& arr_MonOff(arr_count) &"','"& arr_TueOff(arr_count) &"','"& arr_WedOff(arr_count) &"','"& arr_ThuOff(arr_count) &"','"& arr_FriOff(arr_count) &"','"& arr_SatOff(arr_count) &"','"& strArea &"','"& strSubArea are changed based on what users type in before they submit the form. 0 LVL 52 Overall: Level 52 ASP 26 VB Script 11 Message Active today Expert Comment by:Scott Learn how to create a query and then a grouped report using the wizard. 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
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 This is a home-made function checking if an array is empty. There's more than one way to skin a cat. –Andy Davey Apr 11 '15 at 14:00 @AndyDavey: Even if IIS authentication is not set properly, the resultant value would http://prcflow.com/vbscript-runtime/vbscript-runtime-error-0x800a01a8.html Don't just blindly copy techniques from application to application.
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 Some suggestions. Reply HCamper 7929 Posts Re: Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 0]' Jan 04, 2012 11:28 PM|HCamper|LINK Hello, The connection string seems to be ok. Join Now For immediate help use Live now!
tabconv = Mid(UCase(Replace(Request.ServerVariables("LOGON_USER"), "'", "''")), _ Instr(Request.ServerVariables("LOGON_USER"), "\") + 1) But check IIS first. Your cache administrator is webmaster. If the split results in 3 items, and you try to access the fourth one, you'll get that error.Thanks for ur reply... share|improve this answer answered Apr 10 '15 at 11:58 Amessihel 646216 add a comment| up vote -2 down vote Instead of looking for position 1 in the array, which in this
I hope you get this sorted out. The following script submitted the Area, SubArea, JobTitle, Status, BidLine, StartTime, EndTime columns to the database without problems: <% 'declare variables Dim conn, strSQL, strBidLine 'Set How can I do that without getting the error? 0 Message Author Comment by:romsom2013-10-13 It is also working if I use a dropdown: