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:
---
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/WADbSearch/HelperVB.asp" -->
<%
' WA QueryString Binding (Copyright 2007, WebAssist.com)
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) & "§"
next
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
next
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)
else
WA_QSBind_QueryString = WA_QSBind_QueryString & retArr(x)
end if
next
exit function
end if
WA_QSBind_QueryString = ""
end function
%>
<!--#include virtual="/Connections/GAE.asp" -->
<%
'WA DataAssist Sort (Copyright 2007, WebAssist.com)
'Recordset: rsTest;
set WADA_Sort_1 = new WADA_SortObject
WADA_Sort_1.init()
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
WADA_Sort_1.initialize()
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" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<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" />
</head>
<body>
<p>The time is now <%= Time %>.</p>
<table width="99%" border="1" cellspacing="0" cellpadding="8">
<tr>
<td>ID</td>
<td>FirstName</td>
<td><a href="/wwwroot/Index3.asp?sort=<%=(rsTest.Fields.Item("LastName").Value)%>">LastName</a></td>
<td>Company</td>
<td>JobTitle</td>
<td>BusinessAddressStreet</td>
<td>BusinessAddressCity</td>
<td>BusinessAddressState/Province</td>
<td>BusinessAddressZip/PostalCode</td>
<td>BusinessAddressCountry</td>
<td>BusinessPhone</td>
<td>Categories</td>
<td>EMAILADDRESS</td>
<td>Notes</td>
<td>ReferredBy</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsTest.EOF))
%>
<tr>
<td><%=(rsTest.Fields.Item("UNIQUEID").Value)%></td>
<td><%=(rsTest.Fields.Item("FirstName").Value)%></td>
<td><%=(rsTest.Fields.Item("LastName").Value)%></td>
<td><%=(rsTest.Fields.Item("Company").Value)%></td>
<td><%=(rsTest.Fields.Item("JobTitle").Value)%></td>
<td><%=(rsTest.Fields.Item("BusinessAddressStreet").Value)%></td>
<td><%=(rsTest.Fields.Item("BusinessAddressCity").Value)%></td>
<td><%=(rsTest.Fields.Item("BusinessAddressState/Province").Value)%></td>
<td><%=(rsTest.Fields.Item("BusinessAddressZip/PostalCode").Value)%></td>
<td><%=(rsTest.Fields.Item("BusinessAddressCountry").Value)%></td>
<td><%=(rsTest.Fields.Item("BusinessPhone").Value)%></td>
<td><%=(rsTest.Fields.Item("Categories").Value)%></td>
<td><%=(rsTest.Fields.Item("EMAILADDRESS").Value)%></td>
<td><%=(rsTest.Fields.Item("Notes").Value)%></td>
<td><%=(rsTest.Fields.Item("ReferredBy").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsTest.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rsTest.Close()
Set rsTest = Nothing
%>
---