<% 'This function inserts a message board into the database 'Returns: ID of board in DB function AddBoard(ByRef pobjCon, ByVal pstrName, ByVal pstrDescription, ByVal pblnReadOnly, ByVal pblnHidden) Dim objRs, intBoardID, strSQL call BeginTransaction(pobjCon, "AddBoard") 'make room in displayorder for board strSQL = "UPDATE forumBoards SET displayOrder=displayOrder+1" pobjCon.execute strSQL 'insert new board Set objRs = Server.CreateObject ("ADODB.Recordset") call objRs.Open("forumBoards", pobjCon, adOpenKeySet, adLockPessimistic, adCmdTable) call objRs.AddNew() objRs.Fields.Item("boardname").Value = pstrName objRs.Fields.Item("description").Value = pstrDescription objRs.Fields.Item("readonly").Value = pblnReadOnly objRs.Fields.Item("hidden").Value = pblnHidden objRs.Fields.Item("displayOrder").Value = 1 call objRs.Update() intBoardID = GetNewID(pobjCon, objRs) objRs.Close set objRs = Nothing call CommitTransaction(pobjCon, "AddBoard") AddBoard = intBoardID end function %>