I get this error : '800a01c2'

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • moranLiel
    New Member
    • May 2010
    • 2

    I get this error : '800a01c2'

    hi,

    i het this error :

    Microsoft VBScript runtime error '800a01c2'

    Wrong number of arguments or invalid property assignment: 'offers'

    /d6-test/index.asp, line 296

    the code is:
    Code:
    <% i=0
    						Dim offerNum
    						offerNum = ubound(mydealerInfo.offers)
    						for i=0 to offerNum
    							offerCode=mydealerInfo.offers(i,0)
    							offerLink=mydealerInfo.offers(i,1)
    						 	If offerCode <> "" Then
    								If offerLink <> "" Then%>
    									 <a href='<%=offerLink%>?centerNum=<%="&mydealerInfo.dealerNum&"%>&request='><%= offerCode %></a><%
    								Else
    									 Response.Write "							<li>"& offerCode & "</li>"
    								End If							
    							End If
    						Next%>
    the line : offerCode=mydea lerInfo.offers( i,0) is line 296.

    if you can help me solve this problem i will be very happy!!!

    thanks!!!
    Last edited by jhardman; May 18 '10, 05:01 AM. Reason: added code tags. please include code tags in the future
  • nedu
    New Member
    • Nov 2006
    • 65

    #2
    Originally posted by moranLiel
    hi,

    i het this error :

    Microsoft VBScript runtime error '800a01c2'

    Wrong number of arguments or invalid property assignment: 'offers'

    /d6-test/index.asp, line 296

    the code is:

    <% i=0
    Dim offerNum
    offerNum = ubound(mydealer Info.offers)
    for i=0 to offerNum
    offerCode=mydea lerInfo.offers( i,0)
    offerLink=mydea lerInfo.offers( i,1)
    If offerCode <> "" Then
    If offerLink <> "" Then%>
    <a href='<%=offerL ink%>?centerNum =<%="&mydealerI nfo.dealerNum&" %>&request='><% = offerCode %></a><%
    Else
    Response.Write " <li>"& offerCode & "</li>"
    End If
    End If
    Next%>

    the line : offerCode=mydea lerInfo.offers( i,0) is line 296.

    if you can help me solve this problem i will be very happy!!!

    thanks!!!
    what is that mydealerInfo.of fers meant for . . Is it an array from third party . .

    Regards
    Nedu

    Comment

    • moranLiel
      New Member
      • May 2010
      • 2

      #3
      hi!this is the code for offers
      Code:
      strSQL11 = "SELECT count(*) as XX from DEALER_OFFERS where clientId='"+myDealerInfo.clientId+"';"
      	set rst22 = mobjConn.execute(strSQL11)
      	arraySize=rst22("XX")
      	Dim offers()
      	ReDim Preserve offers(arraySize,2)
      	
      	strSQL3 = "SELECT OFFER_DESC,linkDestination FROM DEALER_OFFERS where clientId='"+myDealerInfo.clientId +"' order by offer_code;"
      
      	set rst3 = mobjConn.execute(strSQL3)
          i=0	
      	Do while not rst3.eof
              offers(i,0)= rst3("OFFER_DESC")
      		offers(i,1)= rst3("linkDestination")
      		i=i+1
      	    rst3.movenext
      	loop
      	
      	myDealerInfo.weOffer = offers
      thanks!!!!
      Last edited by jhardman; May 18 '10, 05:01 AM. Reason: added code tags

      Comment

      • jhardman
        Recognized Expert Specialist
        • Jan 2007
        • 3405

        #4
        then shouldn't you be looking for myDealerInfo.we Offer(i, 0) rather than offerCode=mydea lerInfo.offers( i,0)?

        Jared

        Comment

        Working...