<% Response.Buffer = true varRecipient = Request.Form("recipients") varSubject = Request.Form("SHORT_DESC") varMessage = Request.Form("ENTRY_TEXT") Set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open "DBQ=" & Server.Mappath("db\SIMSShell_REVISED.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" sqlStatement = "INSERT INTO Calendar(CALENDAR_OF, ENTRY_TEXT, DATE_START, DATE_END, SHORT_DESC, ENTERED_BY) VALUES('ALERTS', '" & varMessage & "', #01/01/2001 00:00:00#, #01/01/2001 00:00:00#, '" & varSubject & "', '" & session("STAFF_ID") & "')" set rsConnect = objConnect.execute(sqlStatement) set rsConnect = Server.CreateObject("ADODB.Recordset") rsConnect.CursorLocation = 2 rsConnect.CursorType = 2 rsConnect.LockType = 3 sqlStatement = "SELECT ENTRY_ID FROM Calendar" rsConnect.open sqlStatement, objConnect, , , &H0001 rsConnect.movelast ENTRY_ID = rsConnect("ENTRY_ID") Do While varRecipient <> "" sqlStatement = "INSERT INTO AlertRecipients(ENTRY_ID, STAFF_ID, READ) VALUES('" & ENTRY_ID & "', '" & Left(varRecipient, InStr(varRecipient, ";") - 1) & "', No)" set rsConnect = objConnect.execute(sqlStatement) varRecipient = Mid(varRecipient, InStr(varRecipient, ";") + 1) Loop response.redirect("logon.asp") %>