I have an ASP form (VBScript) that lists Appointment slots (there are several of the same time but I use a summing query to list just one each) and people who need to schedule themselves in. When all slots are full, that time is filtered out. When the user selects their name and Appt Slot and clicks Submit, I want to update one record of the Appt table with the ID of the person. I tried a SELECT that returns multiple fields but I can't edit/update the UserID. UPDATE doesn't accept a [TOP 1] parameter.

  qryCheckPre = "SELECT [OpenSlots].[TimeStart], [OpenSlots].[TestSlot], [OpenSlots].[Location], [OpenSlots].[TimeLoc] "
  qryCheckPre = qryCheckPre + "FROM [OpenSlots] "
  qryCheckPre = qryCheckPre + "WHERE ([OpenSlots].[TimeLoc] = '"
  qryCheck = qryCheckPre + tmpTime + " - " + tmpLoc + "'); "
  Set WriteRS = Server.CreateObject("ADODB.Recordset")
  WriteRS.Open qryCheck, FitTestDB, adOpenForwardOnly, adLockOptimistic, adCmdText
    WriteRS("UserID") = tmpUserID
    WriteRS("Submit") = Now