close ad
Databridge V2 with MySQLi support IS Now Available!
open ad
View Menu

Technical Support Forums

Free, outstanding support from WebAssist and your colleagues

DW CS3 Data Assist Sort Object Error

Thread began 2/24/2011 1:51 pm by linda422846 | Last modified 2/24/2011 8:01 pm by linda422846 | 1016 views | 3 replies


DW CS3 Data Assist Sort Object Error

I purchased Data Assist for DW this week. So far I'm not very happy - but this could be my own fault.

I'm using DW CS3 with Microsoft Access 2007. I had been using ASP.NET, but since this only works with VB Script, I'm using plain .asp pages now.

Page Name: Index3.asp
Recordset: rsTest

I'm getting the following error after I followed your "Sorting by Column Links" tutorial exactly:


Microsoft VBScript runtime error '800a01a8'

Object required: ''

/Index3.asp, line 50


I realize the object is not being set *somewhere,* but I don't have the coding chops to figure out exactly where.

The problem seems to happen when I set up the "To Add the Sort Server Behavior" in the Data Assist "Sort" dialogue box.

Any help you can offer would be greatly appreciated.

Here is the page code:


<!--#include virtual="/WADbSearch/HelperVB.asp" -->
' WA QueryString Binding (Copyright 2007,
WADA_QSBind_FilteredString = WA_QSBind_QueryString(cStr(Request.QueryString), "sort")
function WA_QSBind_QueryString(tStr, exList)
dim exStr, varStr, n, retCount, thisItem, retTempLen
exList = Split(Replace(cStr(exList), " ", ""), ",")
tStr = Replace(cStr(tStr), "&", "&")
qsArr = Split(tStr, "&")
exStr = ""
varStr = ""
retCount = 0
retTempLen = cInt(UBound(qsArr) + UBound(Split(cStr(Request.Form), "&"))) + 1
ReDim retArr (cInt(UBound(qsArr) + UBound(Split(cStr(Request.Form), "&"))) + 1)
ReDim retVars (UBound(retArr) + 1)
for n=0 to UBound(exList)
exStr = exStr & "§" & exList(n) & "§"
for n=0 to UBound(qsArr)
tstArr = Split(qsArr(n), "=")
if (NOT InStr(exStr, "§" & tstArr(0) & "§") > 0) then
retArr(retCount) = qsArr(n)
retVars(retCount) = tstArr(0)
retCount = retCount + 1
varStr = varStr & "§" & tstArr(0) & "§"
end if
if (retCount > 0) then
WA_QSBind_QueryString = ""
for x=0 to retCount-1
if(x <> 0 ) then
WA_QSBind_QueryString = WA_QSBind_QueryString & "&" & retArr(x)
WA_QSBind_QueryString = WA_QSBind_QueryString & retArr(x)
end if
exit function
end if
WA_QSBind_QueryString = ""
end function
<!--#include virtual="/Connections/GAE.asp" -->
'WA DataAssist Sort (Copyright 2007,
'Recordset: rsTest;
set WADA_Sort_1 = new WADA_SortObject
WADA_Sort_1.DefaultSort = "LastName"
WADA_Sort_1.ColumnList = "" & cStr(cStr(Request.QueryString("sort"))) & "^" & cStr((rsTest.Fields.Item("LastName").Value)) & ""
WADA_Sort_1.SortOrderList = "Ascending^Ascending"
WADA_Sort_1.ToggleOn = true
if (cStr(cStr(Request.QueryString("sort"))) <> "") then
WADA_Sort_1.SetToClause = WADA_Sort_1.getDefaultSetToClause()
if (WADA_Sort_1.ToggleOn AND cStr(Session("WADA_OrderClause_Index3")) <> "undefined") then
WADA_Sort_1.ToggleClause = Session("WADA_OrderClause_Index3")
end if
elseif (cStr(Session("WADA_OrderClause_Index3")) <> "undefined") then
WADA_Sort_1.SetToClause = Session("WADA_OrderClause_Index3")
end if
Session("WADA_OrderClause_Index3") = WADA_Sort_1.SetToClause
Dim rsTest
Dim rsTest_cmd
Dim rsTest_numRows

Set rsTest_cmd = Server.CreateObject ("ADODB.Command")
rsTest_cmd.ActiveConnection = MM_GAE_STRING
rsTest_cmd.CommandText = "SELECT * FROM CONTACTS"
rsTest_cmd.Prepared = true

setQueryBuilderSource rsTest_cmd, WADA_Sort_1, false
Set rsTest = rsTest_cmd.Execute
rsTest_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
rsTest_numRows = rsTest_numRows + Repeat1__numRows
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">
<html xmlns="">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<link href="/wwwroot/css/basil.css" rel="stylesheet" type="text/css" />

<p>The time is now <%= Time %>.</p>
<table width="99%" border="1" cellspacing="0" cellpadding="8">
<td><a href="/wwwroot/Index3.asp?sort=<%=(rsTest.Fields.Item("LastName").Value)%>">LastName</a></td>
While ((Repeat1__numRows <> 0) AND (NOT rsTest.EOF))
Set rsTest = Nothing


Build websites with a little help from your friends

Your friends over here at WebAssist! These Dreamweaver extensions will assist you in building unlimited, custom websites.

Build websites from already-built web applications

These out-of-the-box solutions provide you proven, tested applications that can be up and running now.  Build a store, a gallery, or a web-based email solution.

Want your website pre-built and hosted?

Close Windowclose

Rate your experience or provide feedback on this page

Account or customer service questions?
Please user our contact form.

Need technical support?
Please visit support to ask a question





Ease of use


security code refresh image

We do not respond to comments submitted from this page directly, but we do read and analyze any feedback and will use it to help make your experience better in the future.

Close Windowclose

We were unable to retrieve the attached file

Close Windowclose

Attach and remove files

add attachmentAdd attachment
Close Windowclose

Enter the URL you would like to link to in your post

Close Windowclose

This is how you use right click RTF editing

Enable right click RTF editing option allows you to add html markup into your tutorial such as images, bulleted lists, files and more...

-- click to close --

Uploading file...