dynamic-include

Hello,

I have check the box in the salescart bot so the dynamic-include page can give options to the customer. When I check the box I receive this error:

Microsoft VBScript runtime error '800a01fa'

Class not defined: 'CSimpleAdo'

/mall/dynamic-include.asp, line 21

Does anyone know how to fix this to make the dynamic-include work? Thanks!

Hello,

Thanks for responding. I did what you said and added the apostrophe to the beginning of the line...but now a new error comes up:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/mall/dynamic-include.asp, line 22

Here is the code for dynamic-include.asp. Thanks!

<%
'edit this file for the options you want to display
'There is no longer a maximum number of options but all must be named option
'you can delete the options you don't need
'you can specify a price increase for option but separating the option value with the delimiter (default=$) specified in the wizard

     ' The separator field is what you want to separate different options, can be "" or "<p>"
Separator = "<br>"
%>

<%
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("Products1_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
%>

I still have not heard anything from Support at SalesCart. I will let you all know if I hear anything.