I am having a problem that has been duplicated on both an NT4.0 IIS 4.0
server and a windows 2000 IIS 5.0 server.
The page renders without data, and there are no errors. I have gone
through all the RDO client/server configuration information I could find,
this list archives, msdn.microsoft.com, rdsdeveloper.com, and various
other sites. I have done all the NTFS, IIS and IE settings. Can someone
help me?
Here's the code I am attempting. I am using the "Wrox Professional ADO
RDS Programming with ASP" book as my main reference.
Please anyone help me!!!!!
<%@ LANGUAGE=VBSCRIPT %>
<html>
<head>
<title>SortExample</title>
</head>
<object classid="clsid:bd96c556-65a3-11d0-983a-00c04fc29e33" id="objDC"
height="0" width="0">
<param name="Server" value="http://<%=Request.ServerVariables
("SERVER_NAME")%>">
<param name="Connect" value="DSN=Northwind;UID=sa;PWD=;">
<param name="FetchOptions" value="adcFetchAsync">
<param name="ExecuteOptions" value="adcExecSync">
<param name="SQL" value="SELECT CompanyName, ContactName, ContactTitle,
Address, City FROM Customers">
</object>
<script language="VBSCRIPT">
Sub btnSort_OnClick
Dim Direction, Column
Direction = cboDirection.value
Column = cboColumn.value
Select Case Direction
Case "ASC"
Select Case Column
Case "CompanyName"
objDC.SortDirection = True
objDC.SortColumn = "CompanyName"
objDC.Refresh
Case "ContactName"
objDC.SortDirection = True
objDC.SortColumn = "ContactName"
objDC.Refresh
Case "ContactTitle"
objDC.SortDirection = True
objDC.SortColumn = "ContactTitle"
objDC.Refresh
Case "Address"
objDC.SortDirection = True
objDC.SortColumn = "Address"
objDC.Refresh
Case "City"
objDC.SortDirection = True
objDC.SortColumn = "City"
objDC.Refresh
End Select
Case "DSC"
Select Case Column
Case "CompanyName"
objDC.SortDirection = False
objDC.SortColumn = "CompanyName"
objDC.Refresh
Case "ContactName"
objDC.SortDirection = False
objDC.SortColumn = "ContactName"
objDC.Refresh
Case "ContactTitle"
objDC.SortDirection = False
objDC.SortColumn = "ContactTitle"
objDC.Refresh
Case "Address"
objDC.SortDirection = False
objDC.SortColumn = "Address"
objDC.Refresh
Case "City"
objDC.SortDirection = False
objDC.SortColumn = "City"
objDC.Refresh
End Select
End Select
End Sub
Sub btnReset_OnClick()
objDC.SortColumn = ""
objDC.Refresh
End Sub
</script>
<body bgcolor="#BDB76B">
<hr>
<!-------------------------------------------------------------------------
-->
<font size="4"><b>
<p align="center">Northwind Customers</b></font></p>
<hr>
<!-------------------------------------------------------------------------
-->
<font size="2"><b>
<p align="center">Choose Sort Direction:</b> <select
id="cboDirection"
width="15" size="1">
<option selected value="ASC">Ascending</option>
<option value="DSC">Descending</option>
</select> <b>Choose Sort Column:</b> <select
id="cboColumn" width="25" size="1">
<option selected value="CompanyName">CompanyName</option>
<option value="ContactName">ContactName</option>
<option value="ContactTitle">ContactTitle</option>
<option value="Address">Address</option>
<option value="City">City</option>
</select></p>
<p align="center"> <input type="button" id="btnSort"
value="Sort Table" style="font-weight: bold; font-size: 8pt">
<input type="button" id="btnReset" value="Reset Table"
style="font-weight: bold; font-size: 8pt"></p>
<table ID="tblData" datasrc="#objDC" border="1" align="center"
bgcolor="#F0E68C">
<THEAD>
<tr>
<td><font size="3"><b>CompanyName</b></font></td>
<td><font size="3"><b>ContactName</b></font></td>
<td><font size="3"><b>ContactTitle</b></font></td>
<td><font size="3"><b>Address</b></font></td>
<td><font size="3"><b>City</b></font></td>
</tr>
</THEAD>
<TBODY>
<tr>
<td><span datafld="CompanyName" style="font-weight: bold; font-size:
10pt"></span></td>
<td><span datafld="ContactName" style="font-weight: bold; font-size:
10pt"></span></td>
<td><span datafld="ContactTitle" style="font-weight: bold; font-size:
10pt"></span></td>
<td><span datafld="Address" style="font-weight: bold; font-size:
10pt"></span></td>
<td><span datafld="City" style="font-weight: bold; font-size:
10pt"></span></td>
</tr>
</TBODY>
</table>
</font>
</body>
</html>
View Cart
