<% Dim cnn2 Dim cmd2 if not transaction = 1 then transaction = 2 Set cnn2 = Server.CreateObject("ADODB.Connection") Set cmd2 = Server.CreateObject("ADODB.Command") cnn2.Open Application("Connection1") With cmd2 .ActiveConnection = cnn2 .CommandType = adCmdStoredProc .CommandText = "sp_update_manager" .Parameters.Append .CreateParameter("@id",adInteger, _ adParamInput, 4, Session("ID")) .Parameters.Append .CreateParameter("@name", adVarChar, _ adParamInput, 50, Request.Form("name")) .Parameters.Append .CreateParameter("@office_id",adInteger, _ adParamInput, 4, Request.Form("office_id")) .Parameters.Append .CreateParameter("@email", adVarChar , _ adParamInput, 50, Request.Form("email")) .Parameters.Append .CreateParameter("@cc", adVarChar , _ adParamInput, 50, Request.Form("cc")) .Execute status End With Set cnn2 = Nothing Set cmd2 = Nothing %>