CREATE PROCEDURE RecentPurchaseByCustomerID @CustomerID nchar(5), @ProductName nchar(40) output AS SELECT @ProductName = (SELECT top 1 ProductName FROM Products INNER JOIN ([Order Details] INNER JOIN Orders ON Orders.OrderID=[Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID WHERE Orders.OrderDate = (SELECT MAX(orders.orderdate) FROM Orders where CustomerID=@CustomerID) AND Orders.CustomerID=@CustomerID) GO
dim s s = "<?xml version=""1.0""?>" & vbcrlf s = s & "<command><commandtext>" s = s & "CustOrderHist" s = s & "</commandtext>" s = s & "<returnsdata>" &True</returnsdata>" s = s & "<param>" s = s & "<name>CustomerID</name>" s = s & "<type><%=adVarChar%></type>" s = s & "<direction>" & <%=adParamInput%></direction>" s = s & "<size>" & len(CustomerID)& "</size>" s = s & "<value>" & CustomerID &"</value>" s = s & "</param>" s = s & "</command>"