Microsoft Vbscript Runtime Error 800a01f5 Asp
Forum Visual Basic Programming Visual Basic 6.0 Programming VBScript Illegal assignment: 'i' If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register or Login before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. Results 1 to 3 of 3 Thread: VBScript Illegal assignment: 'i' Tweet Thread Tools Show Printable Version Email this Page… Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode April 18th, 2008,11:06 AM #1 Nibinaear View Profile View Forum Posts Member Join Date Dec 2004 Posts 438 VBScript Illegal assignment: 'i' I've just learning VBScript, so this is probably easy to sort out: Code: Microsoft VBScript runtime error '800a01f5' Illegal assignment: 'i' /dima_devel/template_display_functions.asp line 15 I have a template which is working perfectly on all pages, but when I include the md5.asp file I get an error, obviously the two must be clashing. Here is the code for the line it's referencing: Code: 'Displays the breadcrumb bar using the parameter array as the source of the data Sub outputBreadcrumbArray(breadcrumb_array) array_length = UBound(breadcrumb_array) 'Response.write(array_length) If array_length < 2 Then x = 0 Else x = 1 End if for i = x to array_length if i=array_length then %> <%=breadcrumb_array(i,0) %> <% Else %> <%=breadcrumb_array(i,0) %> > <% end if Next End Sub The for i = x to array_length line is line 15. I've tried changing i and x variables in md5.asp which is the file it's referencing. The md5 file is a standard set of functions for generating md5 hashes in asp. Like I say if I take out the link to this md5 file everything works, but obviously without the functionality to make it do hashes. Just posting here as a last resort. Reply With Quote April 18th, 2008,03:06 PM #2 SoToasty1 View Profile View Forum Posts Junior Member Join Date Apr 2008 Posts 5 Re: VBScript Illegal assignment: 'i' I'm not too up on ASP but I would say t
for Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Ask a Question Ask for Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Expand Search Submit Close Search Login Join Today Products BackProducts Gigs Live Careers Vendor Services Groups Website Testing Store Headlines Experts Exchange > Questions > Microsoft VBScript runtime error '800a01f5' Illegal assignment Want to Advertise Here? Solved Microsoft VBScript runtime error '800a01f5' Illegal assignment Posted on 2006-03-28 ASP 1 Verified Solution 1 Comment 3,155 Views Last Modified: 2008-01-09 This page is supposed to add a new category to a table in my database. When I submit the form http://forums.codeguru.com/showthread.php?451185-VBScript-Illegal-assignment-i to add the new category I get the following error: Microsoft VBScript runtime error '800a01f5' Illegal assignment: 'doSaveEditCat' /catFuncs.asp, line 76 Despite this the category is successfully added to the database. Can anyone tell me why I get this error? I have included the referenced code below: '--Function: Add a new category function doSaveAddNewCat(catname, parent) Dim sqltext Dim retVal if (len(parent) = 0) Then parent = 0 end if sqltext = "INSERT https://www.experts-exchange.com/questions/21792673/Microsoft-VBScript-runtime-error-'800a01f5'-Illegal-assignment.html INTO tblCategoryNew (Category, Parent) VALUES ('" & dbSafeString(catname) & "'," & parent & ")" retVal = doDBWrite(sqltext) writeLogEntry "Add New", "Directory Category", now, dbSafeString(catname), session("User_FirstName") & " " & session("User_Lastname"), sqltext doSaveEditCat = retVal end function Also, when I try to delete categories I get a "page can not be found" page and the category does not get deleted. I don't know if these two issue are related, but the following code may help with the second problem: '--Function: Delete a category function doDeleteCat(catID) Dim retVal Dim lrecords Dim sqltext Dim parent retVal = "" parent = getParentID(catID) sqltext = "DELETE FROM tblCategoryNew WHERE CategoryID = " & catID if (checkAccess(0,ADMIN) = 1) Then on error resume next lRecords = 0 conData.execute sqlText,lRecords if (err.number <> 0) Then retVal = sqltext else sqltext = "DELETE FROM tblCategoryNew WHERE Parent = " & temp lRecords = 0 conData.execute sqlText,lRecords end if end if writeLogEntry "Delete", "Directory Category", now, getCatName(catID), session("User_FirstName") & " " & session("User_Lastname"), sqltext doDeleteCat = retVal end function I welcome and and all suggestions! Thanks. 0 Question by:blob150 Facebook Twitter LinkedIn Google LVL 1 Best Solution bytwhite333 The first problem is in your function called doSaveAddNewCat. The last line of your function reads: doSaveEditCat = retVal It should
Tweets Tweets http://www.cffkb.com/Main.asp?irid=124&Type=Article by @cffkb Recent Articles CDO.Message.1 error '80040605' Unknown Error Compiler Error Message: BC30277: Type character '&' does not match declared data type 'String'. Lenovo G770 Settings Graphics microsoft vbscript Dedicated Memory in BIOS error: 40 - Cannot connect to Server/Instance Specified The server was not found or was not accessible Provider error '8002000a' Out of present range. Top Viewed Articles Microsoft VBScript runtime microsoft vbscript runtime error '800a0046' Permission denied FileSystemObject The backup set holds a backup of a database other than the existing ADODB.Parameters error '800a0e7c' Parameter object is improperly defined Microsoft OLE DB Provider for SQL Server error '80040e57' String or binary data would be truncated. or The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data. Where does adobe application manager store downloads CFF Links The Spotlight Knowledge Exchange CFF Coding Source Carrz-Fox-Fire Promotions CFF Picture Gallery © 2011-2016 CFF Knowledge Base. All rights reserved. Login Close Username Password Back to top
Tweets Tweets by @cffkb Recent Articles CDO.Message.1 error '80040605' Unknown Error Compiler Error Message: BC30277: Type character '&' does not match declared data type 'String'. Lenovo G770 Settings Graphics Dedicated Memory in BIOS error: 40 - Cannot connect to Server/Instance Specified The server was not found or was not accessible Provider error '8002000a' Out of present range. Top Viewed Articles Microsoft VBScript runtime error '800a0046' Permission denied FileSystemObject The backup set holds a backup of a database other than the existing ADODB.Parameters error '800a0e7c' Parameter object is improperly defined Microsoft OLE DB Provider for SQL Server error '80040e57' String or binary data would be truncated. or The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data. Where does adobe application manager store downloads CFF Links The Spotlight Knowledge Exchange CFF Coding Source Carrz-Fox-Fire Promotions CFF Picture Gallery © 2011-2016 CFF Knowledge Base. All rights reserved. Login Close Username Password Back to top