ASP移动数据记录问题，求大虾帮忙修改下！

<%
Dim reQ_strCmds
reQ_strCmds =Request("Cmds")

If reQ_strCmds ="up" or reQ_strCmds ="down" Then Call MoveRec(reQ_strCmds)

Sub MoveRec(paR_strCmds)

Dim reQ_intID, reQ_intCID, intMove
reQ_intID =Request("ID")
reQ_intCID =Request("CID")
Set Rs =Conn.Execute("Select Move From [Product] where ID ="& reQ_intID)
intMove =Rs("Move")
Set Rs =Nothing

If paR_strCmds ="up" Then
Set Rs =Conn.Execute("Select Top 1 ID, Move From [Product] where typeid ="& reQ_intCID &" and Move <"& intMove)
If Not Rs.Eof Then
Conn.Execute("Update [Product] Set Move ="& Rs("Move") &" where ID ="& reQ_intID)
Conn.Execute("Update [Product] Set Move ="& intMove &" where ID ="&Rs("ID"))
End If
Set Rs =Nothing
Else