http://forum.salescart.com/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 21 Apr 2026 15:47:27 +0000 Thu, 21 Oct 2004 07:48:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.04 360 forum.salescart.com/forum/RSS_post_feed.asp?TID=215 http://forum.salescart.com/forum/forum_images/web_wiz_forums.png http://forum.salescart.com/forum/ http://forum.salescart.com/forum/forum_posts.asp?TID=215&PID=779&title=class-not-defined-csimpleado#779 Author: UpstateGirl
Subject: 215
Posted: October/21/04 at 7:48am

When attempting to use the dynamic-include.asp file to add options I am receiving the following error.
Microsoft VBScript runtime error '800a01fa'
Class not defined: 'CSimpleAdo'
/dynamic-include.asp, line 19

If I remove the lines in the dynamic-include.asp file that refer to the the Class then no error appears but neither do the options.

This is how the dynamic-include page is added in my product page
<!-- #include file="dynamic-include.asp" -->

Here is the text from the dynamic-include.asp page
<%
thisproduct = FP_Field(fp_rs,"ProdID")

'READ STUFF From Database
     Dim objSimpleAdo, rstRS, SQLStmt

     SQLStmt = "SELECT * From Options "
     SQLStmt = SQLStmt & "WHERE [ProdID] =" & thisproduct & " "
     SQLStmt = SQLStmt & "ORDER BY Options.Attribute, Options.[AttNo]; "

     Set SimpleAdo = New CSimpleAdo
     SimpleAdo.setConnectionString = Application("webdata_ConnectionString")
     Set RS = SimpleAdo.getRecordSet(SQLStmt)
     'Do stuff with the record set
%><%
     CurrentRecord = 0
     ChangeFlag = ""
     Do While CheckRS(RS)
     Description = RS("Description")
           ' Save Attribute name if first time in
           If CurrentRecord = 0 Then
                ChangeFlag = RS("Attribute")
                Response.write ("<Strong>" & ChangeFlag & "</Strong><select name=option size=1>")
           End If

     'Hasn't changed
     If RS("Attribute") = ChangeFlag Then
           Response.write ("<option value=" & RS("FmVal") & ">" & RS("Choice") & "</option>")
           Else
                Response.write ("</select>" & RS("Description") & separator)
                ChangeFlag = RS("Attribute")
                Response.write ("<Strong>" & ChangeFlag & "</Strong><select name=option size=1>")
                Response.write ("<option value=" & RS("FmVal") & ">" & RS("Choice") & "</option>")
     End If

     RS.MoveNext
           CurrentRecord = CurrentRecord + 1
     Loop

Response.write ("</select>" & Description & separator)


'Done with everything
Set SimpleAdo = Nothing
Set RS = Nothing
%>
]]> Thu, 21 Oct 2004 07:48:38 +0000 http://forum.salescart.com/forum/forum_posts.asp?TID=215&PID=779&title=class-not-defined-csimpleado#779