Hi i would like to ask about my get unique ID

i have this error
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/project/Webpages/cart_checkout.asp, line 24, column 87
If Session(UC_SessionVar) =""Then Set UC_GUID = Server.CreateObject("ADODB.Recordset" UC_GUID.ActiveConnection = MM_Fruits_STRING UC_Table ="Order"UC_Field ="OrderID"UC_GUID.Source ="SELECT"&UC_Field&"FROM"&UC_Table UC_GUID.CursorType = 0 UC_GUID.CursorLocation = 2 UC_GUID.LockType = 2 UC_GUID.Open Session(UC_SessionVar) = UC_GUID.Fields("OrderID".value UC_GUID.Fields("OrderID".value = UC_GUID.Fields("OrderID".value + 1 UC_GUID.Update UC_GUID.Close Set UC_GUID = Nothing End If
--------------------------------------------------------------------------------------^


this is my code

<%
' UltraCart 3
' Get Unique ID
UC_SessionVar = Session("OrderID"
If Session(UC_SessionVar) =""Then Set UC_GUID = Server.CreateObject("ADODB.Recordset" UC_GUID.ActiveConnection = MM_Fruits_STRING UC_Table ="Order"UC_Field ="OrderID"UC_GUID.Source ="SELECT"&UC_Field&"FROM"&UC_Table UC_GUID.CursorType = 0 UC_GUID.CursorLocation = 2 UC_GUID.LockType = 2 UC_GUID.Open Session(UC_SessionVar) = UC_GUID.Fields("OrderID".value UC_GUID.Fields("OrderID".value = UC_GUID.Fields("OrderID".value + 1 UC_GUID.Update UC_GUID.Close Set UC_GUID = Nothing End If %>




thx alot