Problema con Get UniqueID

[Deslizator]

Lo típico, hacer un recordset para coger el ultimo OrderID para un carrito de compra, sumarle uno y guardarlo en una variable de Sesion. No me da error la pagina, pero no me almacena nada en la Session. Estoy loco. El codigo es de Ultradev Cart, en que falla?:
<%
UC_OrderIdSessionVar = "OrderID"
If Session(UC_OrderIdSessionVar)="" Then
' Get a unique OrderID number and save to session.
UC_tableName = "Orders"
UC_fieldName = "OrderID"
UC_sql = "select " & UC_fieldName & " from " & UC_tableName
tmp = "ADODB.Recordset"
set UC_rsId = Server.CreateObject(tmp)
UC_rsId.ActiveConnection = "dsn=desliza.net.shop;"
UC_rsId.Source = UC_sql
UC_rsId.CursorType = 0 ' adOpenForwardOnly
UC_rsId.CursorLocation = 2 ' adUseServer
UC_rsId.LockType = 2 ' adLockPessimistic
UC_rsId.Open
UC_rsId.Update
UC_rsId.Close
set UC_rsId = Nothing
Session(UC_OrderIdSessionVar) = UC_rsId.Fields(UC_fieldName).value
UC_rsId.Fields(UC_fieldName).value = (Session(UC_OrderIdSessionVar) + 1)

End If
%>

Muchas gracias!!