Dim oCmd Set oCmd = Server.createobject("ADODB.Command") Set oCmd.ActiveConnection = oConn oCmd.CommandText = "sp_addschool" Cmd.CommandType = adCmdStoredProc oCmd.Parameters.append oCmd.CreateParameter("u_school", adVarChar, adParamInput,30,sSName) OCmd.Parameters.append oCmd.CreateParameter("u_pass", adVarChar, adParamInput,30,sPass) oCmd.Parameters.append oCmd.CreateParameter("u_fname", adVarChar, adParamInput,30,sFName) oCmd.Parameters.append oCmd.CreateParameter("u_lname", adVarChar, adParamInput,30,sLName) oCmd.Parameters.append oCmd.CreateParameter("u_state", adVarChar, adParamInput,30,sState) set oReturn = oCmd.CreateParameter("u_id", adInteger, adParamOutput) oCmd.Parameters.append oReturn oCmd.execute()