|
Sub EditOnLoad()
set
rstmp
= dal.orders.Query(strWhereClause,"")
CustomerID = rstmp(0)
rstmp.Close : set
rstmp = nothing
response.write "Orders
placed by "
& customerid & "<br>"
set rsOrders = dal.orders.Query("where
customerid='"
& customerid & "'","")
do
while not rsOrders.eof
response.write "<a
target=_blank href=orders_edit.asp?editid=" &_
rsOrders("OrderID")
& ">"
& rsOrders("OrderID")
& "</a>
"
& rsOrders("OrderDate")
& "<br>"
rsOrders.MoveNext
loop
rsOrders.Close : set
rsOrders = nothing
End
Sub
|
